Estrapolare report

Hai un problema con Excel?

Nuova discussione

Estrapolare report
di Braddy (utente non iscritto) data: 23/09/2010
Ciao ragazzi, sono nuovo e scusate se già l'argomento è stato postato altrove.
non riesco a creare una macro o formula per questo problema.
ho una tabella a1:ah45, nella collonna ah ho la somma dei valori contenuti nei rispettivi record es.: ah9=somma(c9:ag9)e via dicendo
il database puo contenere celle in ah vuote, e mi serve un sistema per visualizzare su un'altro foglio di tutti i record solo quelli con valore diverso da zero.
esempio con meno celle.
foglio 1
a-----------b--------c---------d--------e
nome-----ore gen--ore feb---ore mar---totale
rossi------10--------2---------4--------16
bianchi-----0--------0---------0---------0
verdi-------2-------10---------8--------20
neri--------0--------0---------0---------0

il risultato da ottenere è:
foglio 2
-a----------b
nome----totale
rossi------16
verdi------20

spero di essere stato chiaro e grazie!
Estrapolare report
di Braddy (utente non iscritto) data: 23/09/2010
Ciao ragazzi, sono nuovo e scusate se già l'argomento è stato postato altrove.
non riesco a creare una macro o formula per questo problema.
ho una tabella a1:ah45, nella collonna ah ho la somma dei valori contenuti nei rispettivi record es.: ah9=somma(c9:ag9)e via dicendo
il database puo contenere celle in ah vuote, e mi serve un sistema per visualizzare su un'altro foglio di tutti i record solo quelli con valore diverso da zero.
esempio con meno celle.
foglio 1
a-----------b--------c---------d--------e
nome-----ore gen--ore feb---ore mar---totale
rossi------10--------2---------4--------16
bianchi-----0--------0---------0---------0
verdi-------2-------10---------8--------20
neri--------0--------0---------0---------0

il risultato da ottenere è:
foglio 2
-a----------b
nome----totale
rossi------16
verdi------20

spero di essere stato chiaro e grazie!

di Enzo (utente non iscritto) data: 24/09/2010
Usa questa istruzione e fa sapere

sub copia()
Application.ScreenUpdating = False
Foglio2.Range("a1:b65000").ClearContents
Sheets("Foglio1").Select
Set RNG = [a1].Parent.UsedRange
ultimariga = RNG.Find(What:="*", _
                       After:=RNG.Cells(1), _
                       Lookat:=xlPart, _
                       LookIn:=xlFormulas, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious, _
                       MatchCase:=False).Row
h = 1
For i = 2 To ultimariga
If Range("ah" & i).Value <> 0 Then
Foglio2.Range("a" & h) = Foglio1.Range("a" & i).Value
Foglio2.Range("b" & h) = Foglio1.Range("ah" & i).Value
h = h + 1
End If
Next i
Application.ScreenUpdating = True
end sub

di Enzo (utente non iscritto) data: 24/09/2010
Mi dimenticavo
devi adattarlo alle tue esigenze
nell'esempio foglio 1 contiene tutti i report
foglio2 e' dove vengono inseriti i campi che volevi (nome e totale)

Vuoi Approfondire?