bul için kodda hata mı yapmışım

[natura]

merhaba, ekteki dosyada seçilen epino yu görüntülede 130 ve sonrasını bulmuyor, yardımcı olabilirseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Ben dosyanızı rar içinden çıkaramadım. Hata mesajı veriyor.

 

[natura]

yeniledim, ilginize teşekkürler

 

[Korhan Ayhan]

Selamlar,

Kodunuzda kullanmış olduğunuz aşağıdaki kodu;

For Each baka In Range("a6:a" & WorksheetFunction.CountA(Range("a6:a65536")))

Aşağıdaki ile değiştirin.

For Each baka In Range("a6:a" & Range("a65536").End(3).Row)

 

[natura]

çok teşekkür ederim sorun çözüldü. iyi çalışmalar dilerim.