DA UN RIEPILOGO INSERIRE RIGA E TOTALE

[luca62]

Carissimi ,

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


[Anthony47]

Prova ad aggiungere dopo Next RR1:

Codice: Seleziona tutto

Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Formula = "=SUM(H2:H" & Cells(Rows.Count, "H").End(xlUp).Row & ")"
Cells(Rows.Count, "H").End(xlUp).Offset(0, -1).Value = "Totale"

Per la seconda domanda, prima di End Sub:

Codice: Seleziona tutto

Range("A1").Value = "COMM")

Ciao

[luca62]

Anthony, la seconda richiesta ok, mentre la prima mi funziona solo se richiamo la macro dal foglio "ORDINE", mentre non funziona se la faccio partire da un altro foglio con lo stesso pulsante che mi serve per far funzionare la macro medesima

[luca62]

Mi sono accorto che in realtà mi necessiterebbe una macro
che data una lista con 8 colonne da A-H,del solito foglio di lavoro dal quale viene attivata la macro,
potesse cancellare le prime 3 colonne A-B-C ed H, quindi unire le righe uguali, sommandone la quantità
(le quantità sono presenti nella colonna F).
Una volta fatto questo, creare nella colonna C una colonna che abbia C1= "ITEM" e C2-....Cn
i numeri progressivi 1,2...n fino a quante righe compilate ho.
Poi creare una colonna H che abbia per H1 = "Costo tot" e c2---cn il prodotto f2*g2 per c2
f3*g3 per c3 etc....fino ad n per quante righe compilate ho.
Alla fine creare un "TOTALE" in Gn+1 e in Hn+1 la somma di h2+h3...hn

allego esempio ..se non sono stato chiaro..
.https://www.dropbox.com/home?preview=ESEMPIOLUCA62.xlsx

[Anthony47]

Il link postato non consente il download del file; tuttavia mi pare che hai pubblicato delle specifiche funzionali, non una richiesta di aiuto su un forum...

Il codice che ti ho dato e' da integrare nella Sub CANCELLARESTO che avevi pubblicato, usato in altri contesti dara' altri risultati.

Ciao