+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek (/konu-butonla-sayfalar-arasi-geciste-dolu-olan-son-satira-gitmek.html)
Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek - derzulya - 05/01/2022
merhaba. sayfamda butonum var sayfalar arası geçişimi sağlıyor. sheets 1 de ki kodum şu şekilde
Kod:
Private Sub CommandButton1_Click()
Worksheets("sheets2").Activate
End Subörneğin sheets2 de 500 satır var dolu olarak tıkladığımda 501. boş satıra gelsin
RE: Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek - berduş - 05/01/2022
BU aşağıdaki kısım sabit diğer numaralandırılmışlardan her hangi biri kullanılabilir
Not: Denemedim teorik
Dim sht As Worksheet
Dim LastRow As Long'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet1 - 'Using Find Function (Provided by Bob Ulmas) 'yanılmıyorsam çok veri olduğunda ağır çalışıyor ama emin değilim tek tek tüm hücreleri kontrol ediyor
LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
2 - 'Using SpecialCells Function 'Özel hücrelere göre ==>xlCellTypeLastCell=Son hücre
LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row
3 - 'Ctrl + Shift + End 'eğer belli bir sütuna göre olacaksa diyelimk i A sütununa göre
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
4 - 'UsedRange özelliğine göre ama burada biçimlendirme yada daha önce veri eklenip silme benzeri bir şey olmuşsa boş satırları bile dolu kabul eder
sht.UsedRange 'Refresh UsedRange
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
RE: Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek - derzulya - 05/01/2022
3 - 'Ctrl + Shift + End 'eğer belli bir sütuna göre olacaksa diyelimk i A sütununa göre
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
bu olabilir ama yinede son satıra gitmiyor.
Kod:
Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim LastRow As Long 'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
FindingLastRow = LastRow
End SubRE: Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek - berduş - 05/01/2022
ben sadece son satırı bulma kodunu yazmıştım siz hücreyi belirtmemişsiniz o nedenle o hücreye gitmiyor
son satırı bulduktan sonra ilgili hücreyi seçmesini de sağlamalısınız