İşlem Yapılan Son Hücreden Devam Etme VBA Yardım!!!

[hasanyaprak]

Ekteki excel klasör altındaki pdf dökümanlarını linkli halde excele listeliyor. Bazen farklı klasör altındaki dosyalarıda aynı listenin devamına eklemek istediğimde baştan başlıyor(A2). Örnekteki gibi A6 dan başlayarak devam etmesini için kodlarda revize neler yapmalıyım?

Bu şekilde bir kod ekliyorum bu kez işlem yapmıyor.
Set R = Range("A2").End(xlDown).Offset(1, 0).Select

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
makronuzda Set R = Range("A2") satırın yerine
Son = Cells(Rows.Count, "A").End(3).Row
Set R = Range("A" & 1 + Son)
bu satırları ekleyin
Yukarıdaki Dim ile başlayan satırlara da
Dim Son As Long
bu satırı ekleyerek deneyiniz
İyi çalışmalar

 

[hasanyaprak]

Merhaba Arkadaşım,
makronuzda Set R = Range("A2") satırın yerine
Son = Cells(Rows.Count, "A").End(3).Row
Set R = Range("A" & 1 + Son)
bu satırları ekleyin
Yukarıdaki Dim ile başlayan satırlara da
Dim Son As Long
bu satırı ekleyerek deneyiniz
İyi çalışmalar

Teşekkür ettim.

 

[Tevfik_Kursun]

Rica ederim, dönüş yaptığınız için ben teşekkür ederim