La solita funzione SE nidificata !!

[Rosario77]

Bentrovati a tutti voi del forum .
Dopo tanti mesi di assenza, torno a disturbate per un problema su cui ci sbatto il muso da una settimana circa .
Le celle della colonna A, intervallo 10:50 del foglio1, contengono una spunta se l'articolo è presente in magazzino, se l'articolo non è in magazzino la cella è vuota.
La funzione deve valutare se, cominciando dalla cella A10, è presente la spunta ( ovvero se la cella se è piena ) oppure se non è presente ( la cella è vuota ).
Nel primo casa ferma la verifica, preleva il contenuto della cellla accanto, B10; e lo copia in una terza cella, foglio2 cella A10, nel secondo caso ( se è vuota ) va alla cella successiva, A11, per effetuare lo stesso controllo, sino ad arrivare alla cella A50.
Spero di aver esposto bene il mio problema , preciso che ho provato a nidificare la funzione SE abbinandola alle funzioni E e O ma non ho avuto fortuna .
Attendo fiducioso .

SL SL a tutti

[Flash30005]

Se ho capito bene questa macro dovrebbe risolvere.
Suppongo che quando non trova nulla nella cella A del foglio1 oltre a non scrivere nulla nel foglio2 non passi alla cella successiva di questo foglio quindi, nel foglio2 alla fine avrai meno righe, giusto?

Codice: Seleziona tutto

Sub Verif()
'RigheB = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
RigaF2 = 10
For I = 10 To 50
    If Worksheets("Foglio1").Range("A" & I).Value <> "" Then
    Worksheets("Foglio2").Range("A" & RigaF2).Value = Worksheets("Foglio1").Range("B" & I).Value
    RigaF2 = RigaF2 + 1
    End If
Next I
End Sub


Per comodità, nel caso tu abbia più righe di 50 puoi usare le formula commentata (togliendo il commento) e mettere RigheB al posto di 50 in questa maniera

Codice: Seleziona tutto

For I = 10 To RigheB

Ciao

[Rosario77]

Oltre ad essere un vero Flash sei veramente magnifico. Ti riongrazio per l'aiuto, funziona benissimo. Se il VB era l'unico modo per riuscirci allora io non avevo, veramente, nessuna speranza.
Grazie ancora