Son dolu satıra gitme makrosu

[BARGENX]

Bunun için internette bazı makrolar bulup kullandım fakat benim işime yaramadı. Çünkü benim sekmemde 2000 bin satırlık bir biçimlendirilmiş tablo var. Bu makroları kullandığımda ikibininci satıra gidiyor. oysa benim tablomda dolu olan son satır 500. Yani makro biçimlendirilmiş satırları da dolu olarak algılıyor. bu soruna yardımcı olabilecek biri var mı. Şimdiden ilgilenen herkese teşekkür ediyorum.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Örnek bir dosya koysanız probleminiz kolaylıkla çözülür diye düşünüyorum.
İyi çalışmalar

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

  [E1] = 2 + 2000 - WorksheetFunction.CountIf(Range("C3:C2002"), "")
  Range("C" & [E1].Text).Select

işinizi görür diye düşünüyorum. Deneyin lütfen
İyi çalışmalar

 

[BARGENX]

Merhaba Arkadaşım,

  [E1] = 2 + 2000 - WorksheetFunction.CountIf(Range("C3:C2002"), "")
  Range("C" & [E1].Text).Select

işinizi görür diye düşünüyorum. Deneyin lütfen
İyi çalışmalar

denedim ancak çalışmadı

 

[BARGENX]

Merhaba Arkadaşım,
Örnek bir dosya koysanız probleminiz kolaylıkla çözülür diye düşünüyorum.
İyi çalışmalar

Örnek dosya

örnek dosya.xlsx

Sayfa1 Kütüphane Kitabı Teslim Alma Sayfası,SON TESLİM TARİHİNE KALAN GÜN: , - ,1/13/2023 Süresi Geçmiş,ÖĞRENCİ,Kitap No,Sayfa Sayısı,KİTAP ADI,ÖDÜNÇ ALMA TARİHİ,İADE TARİHİ,GÜN,Sütun1 ZEYNEP YÜSRA ZORLU1,,ZEYNEP YÜSRA ZORLU,16,9/10/2021,9/10/2021, - ZEYNEP YÜSRA ZORLU2,,ZEYNEP YÜSRA ZORLU,...

docs.google.com

 

[Tevfik_Kursun]

Merhaba,
Aradığınız, C sütununda son dolu hücre ise, bunun için makroya ihtiyacınız yok. Ctrl + aşağı ok tuşlarına birlikte basınız, yeterli olacaktır.
İyi çalışmalar

 

[BARGENX]

Merhaba,
Aradığınız, C sütununda son dolu hücre ise, bunun için makroya ihtiyacınız yok. Ctrl + aşağı ok tuşlarına birlikte basınız, yeterli olacaktır.
İyi çalışmalar

Bu kadar kolay mıydı. Çok teşekkür ederim....

 

[Furkan TARAKÇI]

Bu kadar kolay mıydı. Çok teşekkür ederim....

sekme içerisindeki istediğim bir tablonun sonuna gitmek için bir makro var mı.

 

[hamitcan]

Bulunduğunuz sütunun son dolu hücresine gitmek için;

Sub SonHucreyeGit()
    Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub