Copia se cella vuota da altra cella

[Filippo1970]

Buonasera a tutti e grazie in anticipo per aiuto che potrete fornirmi.
Avrei questa necessita: creare una macro per lanciarla su una colonna (che sarà sempre la "D") dove, se la cella è valorizzata (D1=4;D2=4;D3=4) salta a quella successiva ma se eventualmente la cella è vuota (D4= ) deve andare a copiare li dentro il valore che si trova nella cella corrispondente della colonna "F" (F=19000) quindi in D4 deve copiarci 19000.
Potrebbe avverarsi il caso che a cella D vuota corrisponda anche cella F vuota; in questo caso D deve rimanere vuota
Cosi per tutta la colonna D per 50.000 righe.
Se volete ho piccolo file di esempio
Grazie in anticipo e spero di essere stato chiaro nelle mie spiegazioni.
Confido in voi che già in orecedenza mi avete risolto una macro.
Grazie ancora

[Anthony47]

Prova con questa macro:

Codice: Seleziona tutto

Sub FtoD()
Dim I As Long, J As Long
'
For I = 1 To Cells(Rows.Count, "F").End(xlUp).Row
    If Len(Cells(I, "D").Value) = 0 Then
        Cells(I, "D").Value = Cells(I, "F").Value
        J = J + 1
    End If
Next I
MsgBox ("Completato..." & vbCrLf & J & " sostituzioni")
End Sub


Fai sapere...

[Filippo1970]

ok grazie lunedi provo e faccio sapere
Grazie mille

[recalcatiiti]

Ciao Anthony e ciao Filippo,

Codice: Seleziona tutto

& vbCrLf & J &

riporta quante volte il ciclo esegue l'istruzione, ma come posso inserirlo in una cella?

ad esempio, per un timer so che si procede in questo modo:

Codice: Seleziona tutto

Sub xxx()
[...]
itime = Timer
[...]
ftime = Timer: Cells(5, 5) = Format(ftime - itime, "0.00") & "sec"
End sub


Così in E5 ho il tempo impiegato per l'esecuzione in sec.

Se in una cella volessi avere anche il numero di volte che viene eseguita l'istruzione da un ipotetico ciclo, come dovrei fare?

Grazie a TUTTI

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Range("E6").Value = J


(se J e' il contatore di cicli fatti)

[recalcatiiti]

La verità è sulla superficie, diceva qualcuno. Grazie, non ci avevo pensato.