For Next yardım

[suha]

Sevgili arkadaşlar
Ekte bulunan çalışma sayfasında F sütununa bir formül yazdım ama ben bu işi For Next döngü olarak 65000 satırda yapamadım yardım edermisiniz.

 

[uzmanamele]

merhaba

makro yerine bu aşağıdaki yöntem işinizi görmez mi?
Boş Hücreleri Kendinden Önceki Hücre İle Doldurmak

 

[suha]

Sayın hocam linki inceledim farklı uygulamalar için çok faydalı fakat hazırlamaya çalıştığım uygulamada ki döngülerle beraber çalışacağı için vb koduna ihtiyacım var.
Saygılar;

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?
kendi sütununda

Sub bosluk_doldur_1()
ss = Range("a65536").End(3).Row
For i = 2 To ss
If Cells(i, "c") <> "" Then
isim = Cells(i, "c").Text
End If
If Cells(i, "c") = "" Then
Cells(i, "c") = isim
End If
Next
End Sub

F sütununda

Sub bosluk_doldur_2()
ss = Range("a65536").End(3).Row
For i = 2 To ss
If Cells(i, "c") <> "" Then
isim = Cells(i, "c").Text
Cells(i, "f") = isim
End If
If Cells(i, "c") = "" Then
Cells(i, "f") = isim
End If
Next
End Sub

 

[suha]

Hocam teşekkürler çok işime yaradı ayrıca öğrenmem için çok yararlı oldu bu arada daha önce dediğim gibi siz bize yardımcı oluyorsunuz biz size nasıl yardımcı olabiliriz.............