Ho elaborato (bugiardo..ho leggemente modificato un macro di Flash... ) che dato un insieme di righe e colonne, mi copia in un foglio specifico solo alcuni dati in base a dei valori.
Il tutto funziona, ma avrei bisogno di un altro aiutino.
Mi necessita che una volta copiato nel foglio di lavoro "ordine", mi aggiungesse un ulteriore riga
(con stessa formattazione di quelle copiate) con scritto nella colonna G la parola "TOTALE"
e nella stessa riga in colonna H la somma dei valori copiati da H2: H (ultima riga copiata)
è una cosa possibile?
iNFINE è POSSIBILE DIRE CHE ALLA FINE DELLA MACRO, IL VALORE DELLA CELLA A1 DEL FOGLIO "ORDINE"
VENGA CAMBIATO IN "COMM" ?
allego mia macro esistente:
- Codice: Seleziona tutto
Sub CANCELLARESTO()
'
' CANCELLARESTO Macro
Sheets("ORDINE").Cells.Clear '<<<< commenta o cancella questa linea codice se non vuoi resettare il foglio2
UR1 = Worksheets("INCOLONNA").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 1 To UR1
If RR1 = 1 Then Worksheets("INCOLONNA").Rows(1).Copy Destination:=Worksheets("ORDINE").Range("A1")
If Worksheets("INCOLONNA").Range("K" & RR1).Value = Worksheets("INCOLONNA").Range("M1").Value Then
Worksheets("INCOLONNA").Rows(RR1).Copy
Sheets("ORDINE").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
Next RR1
Application.CutCopyMode = False
Sheets("ORDINE").Select
Range("I:IV").Delete
Range("A1").Select
End Sub