[EXCEL] Macro per somma valori con determinati criteri

[zeok]

Salvo, sono nuovo del forum. Vi ho scoperto casualmente grazie a google perchè cercavo una soluzione per il mio quesito.

Prima di tutto, il file di prova:
http://dl.dropbox.com/u/6279369/Esempio.xls

Cerco di essere chiaro:
- Nella colonna A sono presenti le attività lavorative. Come potete notare alcune iniziano con un numero (es. XX - nomeattività; XXX - nomeattività), altre invece no (nomeattività).
- Nella colonna B invece sono indicate le corrispettive ore.

Io vorrei ottenere questo, tramite l'utilizzo di una macro:
- Avere nella colonna F l'elenco delle attività presenti nella colonna A che iniziano con il NUMERO. Specifico che che nella colonna F non si devono ripetere. Inoltre, la macro dovrebbe considerare le celle vuote presenti nella A;
- Nella colonna G, per ogni attività, dovrebbe essere visualizzata la somma delle ore.

Fino ad ora, utilizzavo la funzione "Tabella Pivot" per ottenere ciò.

Spero di essere stato chiaro, in caso mi scuso.

Grazie in anticipo

[Flash30005]

Ciao Zeok e benvenuto nel Forum

prova questa macro

Codice: Seleziona tutto

Sub CreaElencoESomma()
Dim WS1 As Worksheet
Set WS1 = Worksheets("Foglio1")
UR1 = WS1.Range("A" & Rows.Count).End(xlUp).Row
If UR1 < 2 Then UR1 = 2
UR2 = WS1.Range("F" & Rows.Count).End(xlUp).Row
If UR2 < 2 Then UR2 = 2
WS1.Range("F1:G" & UR2).ClearContents
For RR1 = 1 To UR1
    Esiste = 0
    Cli1 = WS1.Range("A" & RR1).Value
    If Cli1 <> "" Then
        If Asc(Mid(Cli1, 1, 1)) >= 48 And Asc(Mid(Cli1, 1, 1)) <= 57 Then
            For RR2 = 2 To UR2
                Cli2 = WS1.Range("F" & RR2).Value
                If Cli1 = Cli2 Then
                    Esiste = 1
                    WS1.Range("G" & RR2).Value = WS1.Range("G" & RR2).Value + WS1.Range("B" & RR1).Value
                End If
            Next RR2
            If Esiste = 0 Then
                WS1.Range("A" & RR1).Copy Destination:=WS1.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
                WS1.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Value = WS1.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Value + WS1.Range("B" & RR1).Value
            End If
        End If
    End If
Next RR1
End Sub


Ciao

[zeok]

Prima di tutto, grazie mille per l'interessamento.

Ho provato subito a testarla però funziona parzialmente.
Sempre considerando l'esempio proposto, quando eseguo la macro mi copia i seguenti valori:
02 - b 3
350 - c 3
350 - c 2

perciò:
- a non viene CORRETTAMENTE copiato ed è perfetto
- 02 -b compare una sola volta e viene eseguita la somma
- Invece per quanto riguarda 350 - c non viene eseguita la somma e compare due vole. L'unico problem.

Ora me la guardo meglio che magari c'è qualcosa di semplice da sistemare (se ci arrivo xD)

[Flash30005]

Assolutamente no!

io ho preso il tuo file e non presenta quel valore due volte
controlla bene perché c'è differenza tra
"350 - c"
e
"350 - c "

eventuali spazi alla fine della stringa
se ci sono molte stringhe spurie puoi adottare la funzione Trim
in queste due righe codice

Codice: Seleziona tutto

For RR1 = 1 To UR1
    Esiste = 0
    Cli1 = Trim(WS1.Range("A" & RR1).Value)  '<<<<<<<<<<<<<<< modificare con Trim
    If Cli1 <> "" Then
        If Asc(Mid(Cli1, 1, 1)) >= 48 And Asc(Mid(Cli1, 1, 1)) <= 57 Then
            For RR2 = 2 To UR2
                Cli2 = Trim(WS1.Range("F" & RR2).Value)  '<<<<<<<<<<< modificare con Trim
                If Cli1 = Cli2 Then

[zeok]

Che stupido, hai ragione, c'era uno spazio, pardon.

Ora lo adatto ad un altro foglio di lavoro