Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Postdi luca62 » 16/04/15 09:08

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
luca62 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Postdi Anthony47 » 16/04/15 14:52

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Postdi luca62 » 16/04/15 15:58

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 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Re: DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Postdi luca62 » 16/04/15 17:30

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
luca62 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Re: DA UN RIEPILOGO INSERIRE RIGA E TOTALE

Postdi Anthony47 » 16/04/15 21:41

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "DA UN RIEPILOGO INSERIRE RIGA E TOTALE":

Formula Rif.riga
Autore: salatony
Forum: Programmazione
Risposte: 0

Chi c’è in linea

Visitano il forum: CANAPONE e 16 ospiti