Döngü kopyalama

[oborahan]

Selamlar Arkadaşlar,

Ek'teki dosyanın göz atarsanız memnun olurum. Küçük bir döngü sorunum var.

 

[veyselemre]

Sub Doldur()
    For x = 4 To 66
        If Cells(x, 1) = "" Then Cells(x, 1).FillDown
    Next
End Sub

 

[Kemal Demir]

Bende Küçük bir çözüm sunmak isterim.Gerçi Veysel ßey'in cozumu Satır sayısı olarak daha kısa.

Sub doldur()
For x = 4 To 65
If Cells(x + 1, 1).Value = "" Then
Cells(x + 1, 1).Value = Cells(x, 1).Value
End If
Next
End Sub

 

[oborahan]

Arkadaşlar ellerinize sağlık. Çok teşekkürler yalnız bu döngünün tüm a sütunu boyunca bunu tekrarlaması gerekiyor.En son dolu hücreye kadar.

 

[mehmett]

Sn veyselemre'nin kodlarına aşağıda kırmızı renklendirilen kısımları ekleyin.

Sub Doldur()
[COLOR=red]son = [a65536].End(3).Row[/COLOR]
For x = 4 To [COLOR=red]son[/COLOR]
If Cells(x, 1) = "" Then Cells(x, 1).FillDown
Next
End Sub