ciao
in A1 il numero colonne....se è un fisso scrivi il numero al posto della cella
in A6 il numero righe
la macro funziona sulla cella attiva
in pratica selezioni la cella dove vuoi creare la tabella e poi lanci la macro
Sub CreaTabella()
Dim Righetotali, Colonnetotali As Integer
Righetotali = Range("A6").Value + ActiveCell.Row
Colonnetotali = Range("A1").Value + ActiveCell.Column - 1
Range(ActiveCell, Cells(Righetotali, Colonnetotali)).Select
Selection.Borders(xlEdgeLeft).Weight = xlMedium
Selection.Borders(xlEdgeTop).Weight = xlMedium
Selection.Borders(xlEdgeBottom).Weight = xlMedium
Selection.Borders(xlEdgeRight).Weight = xlMedium
Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
End Sub
volendo si può fare al doppio click sulla cella
il problema è cancellare i bordi prima di ricreare la tabella ( se sono meno righe/colonne non varia)
ora se la tabella nel foglio è una è semplice
ma se sono varie tabelle diventa leggermente più complicato
vediamo i vbaisti cosa dicono
[Modificato da federico460 13/03/2024 09:18]