Skip to main content

AccessTr.neT


Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek

Butonla Sayfalar Arası Geçişte Dolu Olan Son Satıra Gitmek

Çözüldü #1
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

bunu sheets2 deki en son boş satıra gelmesini nasıl sağlarım?

örneğin sheets2 de 500 satır var dolu olarak tıkladığımda 501. boş satıra gelsin
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 05/01/2022, 11:38, Düzenleyen: derzulya.
Cevapla
#2
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 = ActiveSheet

1 - '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
Cevapla
#3
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 Sub

yanlışmı yapıyorum
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#4
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task