En dolu satıra kadar dosya adı yazma

[Erdinç FIRTINA]

B sütunundaki en son dolu satıra kadar dosya adı A sütununa makro ile yazdırılabilir mi ?

Örnek dosyam ektedir ?

Yardımlarınız için şimdiden teşekkürler !!!

 

[zafer]

Merhaba

Aşağdıdaki kodları kullanabilirsiniz.

Sub yaz()
son = Cells(65500, 2).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = "dosya adını yaz"
Next

End Sub

 

[Necdet]

Bu kodlarda başka bir seçenek olsun.

Sub Yaz()
    Dim i   As Long
    i = Cells(Rows.Count, "B").End(3).Row
    Range("A2:A" & i) = "Dosya Adını Yaz"
End Sub

 

[Erdinç FIRTINA]

Sayın Zafer, Sayın Yeşertener,
Yüreğinize, ellerinize sağlık. Çok teşekkür ederim.