SommapiuSE | Excel e gli applicativi Office

sommapiùse

Hai un problema con Excel?

Nuova discussione

somma.più.se
di F (utente non iscritto) data: 12/05/2014 15:45:53
salve,
qualcuno mi può dire perchè se uso la formula seguente ottengo il risultato corretto..poi quando la uso in VBA non funziona?

=SE(B5<>"";SOMMA.SE(Foglio1!C$1:C$499;B5;Foglio1!A$1:A$449);SOMMA.PIÙ.SE(Foglio1!A$1:A$499;Foglio1!B$1:B$499;A5;Foglio1!C$1:C$499;""))


fine = Sheets("Foglio2").Cells(Rows.Count, "A").End(xlUp).Row

For Each cell In Sheets("Foglio2").Range("c5:c" & CStr(fine)).Cells
     
cell.FormulaR1C1 = "=if(RC[-1]<>"",SUMIF   (Foglio1!R1C:R449C,RC[-1],Foglio1!R1C[-2]:R499C[-2]),SUMIFS      (Foglio1!R1C[-2]:R499C[-2],Foglio1!R1C[-1]:R499C[-1],rc[-2],Foglio1!R1C:R499C,""))"


Next

di Mister_x (utente non iscritto) data: 12/05/2014 18:26:36
ciao

hai provato ad usare il creatore di macro???
la tua funzine proposta in excel
=SE(B5<>"";SOMMA.SE(Foglio1!C$1:C$499;B5;Foglio1!A$1:A$449);SOMMA.PIÙ.SE(Foglio1!A$1:A$499;Foglio1!B$1:B$499;A5;Foglio1!C$1:C$499;""))
col creatore verrebbe in questo modo come si deve scrivere in VBA
"=IF(R[1]C[1]<>"""",SUMIF(Foglio1!R1C[2]:R499C[2],R[1]C[1],Foglio1!R1C:R499C),SUMIFS(Foglio1!R1C:R499C,Foglio1!R1C[1]:R499C[1],R[1]C,Foglio1!R1C[2]:R499C[2],""""))"

come vedi gia' i doppi apici come segno di nullo vengono racchiusi fra a sua voltra in doppi apici

ciao
"=IF(R[1]C[1]<>"""",SUMIF(Foglio1!R1C[2]:R499C[2],R[1]C[1],Foglio1!R1C:R499C),SUMIFS(Foglio1!R1C:R499C,Foglio1!R1C[1]:R499C[1],R[1]C,Foglio1!R1C[2]:R499C[2],""""))"
di F (utente non iscritto) data: 13/05/2014 08:00:05
grazie

Mister_x ho seguito il tuo suggerimento e adesso è tutto OK.

Vuoi Approfondire?