Çözüldü Son dolu Satıra Kadar Düşeyara VBA

[TiOr]

Merhaba Üstatlarım,
Aşağıdaki kod ile sayfalar arası geçiş yaptığımda Worksheet_Activate olayı ile otomatik düşe yara yaptırmaktayım.
Fakat şöyle bir durum var mesela bazen dosyalar farklı boyutlarda olabiliyor yani ilkinde sayfa1 de 4551 satır varken bir sonraki listede 4499 veya daha düşük veya daha büyük veri olabiliyor. Böyle olunca ilk işlem yaptığımda 4551 satıra kadar işlem yapıyor fakat listenin 4499 olduğunda işlemi yapıyor ama 52 satıra #YOK atıyor. Bu işlemi eğer hata ile çözebilirdim ama bu seferde 4551 satırdan fazla veri olması durumunda işlem yapmıyor bu satırlara 4551 de kalıyor özetle.

Bahsi geçen işlemi son dolu satıra işlem yaptırabilmem için kodda revizeye ihtiyacım var. Veya farklı bir kod var ise de olabilir.
Desteklerinizi talep eder, hayırlı akşamlar dilerim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Merhaba abey.
Sanırım A sütununun son satır no buma kodunu yazmamıza gerek yok
Son olarak deşiken tanımlayıp buldurun 4551 i silip "B2:B" & son olarak değiştirin.
Denemedim ama çalışması gerek.

 

[RBozkurt]

Deneyiniz, AI mahsül

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[TiOr]

Merhaba abey.
Sanırım A sütununun son satır no buma kodunu yazmamıza gerek yok
Son olarak deşiken tanımlayıp buldurun 4551 i silip "B2:B" & son olarak değiştirin.
Denemedim ama çalışması gerek.

Refaz hocam bana afiyet olsun fırçamı yedim bilgi için teşekkür ederim. & Bunu yaptım değişken de atadım ama yapamadım hep hata aldım ama hatayı nerde yaptığımı gördüm RBozkurt hocam göstermiş henüz uygulamadım kontrol edip döneceğim pc başına geçince. Hayırlı akşamlar diliyorum.

 

[TiOr]

Deneyiniz, AI mahsül

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

RBozkurt hocam teşekkür ederim.
Uygulayıp dönüş yapacağım telefondan yazıyorum. Hayırlı akşamlar diliyorum.

 

[Refaz]

Yok abey fırça değil
Sadece bunu yaparsınız diye yazdımki herzaman karşınıza çıksn kodlar diye.
Bozkurt hocamızın koduyla aynı mantık zaten.