'makroda bul' yardım

[prof77]

Iyi günler
ekteki tabloda mazot hesabı tutuyorum.
Bul makrosu ekledim.fakat son sıra numarasından itibaren geriye dönük 5 sayıyı bulmuyor.
Yani tabloda 7 sıra veri varsa sıra bul kutusuna 7 yazıp bul dediğimde aradığınız isimde kayıt bulunamadı diyor aynı şekilde 6 , 5 , 4 ve 3 sıra numarasındada aynı hata mesajı çıkıyor 2 yadığımda kayıt çıkıyor veya 1 yazdığımda

yardımcı olurmusunuz

 

[suleyman242]

Iyi günler
ekteki tabloda mazot hesabı tutuyorum.
Bul makrosu ekledim.fakat son sıra numarasından itibaren geriye dönük 5 sayıyı bulmuyor.
Yani tabloda 7 sıra veri varsa sıra bul kutusuna 7 yazıp bul dediğimde aradığınız isimde kayıt bulunamadı diyor aynı şekilde 6 , 5 , 4 ve 3 sıra numarasındada aynı hata mesajı çıkıyor 2 yadığımda kayıt çıkıyor veya 1 yazdığımda

yardımcı olurmusunuz

WorksheetFunction.CountA(s1.Range("A6:A5000"))

yani

For Each ser In s1.Range("A6:A[COLOR="Red"][B]7[/B]"[/COLOR])

şeklindeki kodunuz 7 sayısını veriyor ama sizin satırsayınız 12
yani kodu

    For Each ser In s1.Range("A6:A" & WorksheetFunction.CountA(s1.Range("A6:A5000")) + 5)

bu şekilde düzenle
veya

    For Each ser In s1.Range("A6:A" & WorksheetFunction.CountA(s1.Range("A[COLOR="Red"][B]1[/B][/COLOR]:A5000")))

bu şekilde yazarsanızda ilk satırların boş olmaması lazım

 

[prof77]

teşekkürler

 

[suleyman242]

teşekkürler

Rica ederim.