la soluzione di riportare una cella in altro non mi aiuta perchè spesso compilo dei preventivi anche di 3 pagine, e non avendo una cifra di chiusura non riesco più ad orientarmi.....
comunque sto lavorando su questa macro, che va corretta perchè non riesco a farla partire dalla riga fissa ( 24 ) ed addizionarla per le N. righe che compongono il preventivo.....ci iresco solo per un range definito di 4 o 5 righe ...
Sub totalePrev()
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 1 ' trova la prima riga vuota'
Worksheets("preventivo").Range("A" & UBI) = "Totale delle voci sopra descritte" ' scrive il testo di chiusura in colonna A alla prima riga vuota ' ( ed è ok)
Worksheets("preventivo").Range("F" & UBI).FormulaR1C1 = "=SUM(R[-1]C:R[-4]C)" ' totale delle celle sopra che partono dalla riga 24 e non sono mai un numero costante ( es. 50 voci ) ..... ma non riesco a completarla ....
....
a questo punto vorrei che mi si facesse il totale delle voci che riporto sora, ma non ci riesco, perchè il numero di celle che compilo non è costante....
' assegno i formati cella e numeri '
Worksheets("preventivo").Range("F" & UBI).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Worksheets("preventivo").Range("A" & UBI).Font.Bold = True
Worksheets("preventivo").Range("F" & UBI).Font.Bold = True
' scrivi le righe di chiusura'
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 1
Worksheets("preventivo").Range("A" & UBI) = "___________________________"
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 1
Worksheets("preventivo").Range("A" & UBI) = "___________________________"
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 1
Worksheets("preventivo").Range("A" & UBI) = "___________________________"
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 1
Worksheets("preventivo").Range("A" & UBI) = "___________________"
UBI = Worksheets("preventivo").Range("A3333").End(xlUp).Row + 3
Worksheets("preventivo").Range("A" & UBI) = "firma per accettazione_______________________"
End Sub
qualcuno riesce ad aiutarmi ??