boş olan son satıra gelme

[mavi_patikli]

Arkadaşalr çalıştığım excel dosyasında 15 sutun veri giriyorum tüm sutunlarda otomatik süz var süzlerden birisi seçili kaldıgında en son boş satıra gitmeyip aradaki boş satıra gidiyor süzler seçili oldugu taktirde bile tüm süzleri kapalı varsayıp listenin en sondaki boş satıra gitmesi için nasıl bir kod gerekli??

liste arasında başka boş satırlarda mevcut ama benim istedğim liste sonuna gitsin.buton şekli olabilir sayfa ilk çalıştırıldıgında otomatik gidebilir.

şimdiden teşekkürler

 

[halit3]

Arkadaşalr çalıştığım excel dosyasında 15 sutun veri giriyorum tüm sutunlarda otomatik süz var süzlerden birisi seçili kaldıgında en son boş satıra gitmeyip aradaki boş satıra gidiyor süzler seçili oldugu taktirde bile tüm süzleri kapalı varsayıp listenin en sondaki boş satıra gitmesi için nasıl bir kod gerekli??

liste arasında başka boş satırlarda mevcut ama benim istedğim liste sonuna gitsin.buton şekli olabilir sayfa ilk çalıştırıldıgında otomatik gidebilir.

şimdiden teşekkürler

Kodu ThisWorkbook' un içine koyunuz ilgili sayfayı açtığınız zaman en son satır ve sutündaki boş hücreye gidecektir.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If WorksheetFunction.CountA(Cells) > 0 Then
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Cells(sat, sut).Select
End If
End Sub

 

[mavi_patikli]

Yardımlarınız için teşekkürler...

 

[halit3]

Yardımlarınız için teşekkürler...

iyi çalışmalar

 

[ZuCChiNi]

Buradaki kodu kullanmakta olduğum bir sayfada denedim ama istediğim gibi olmadı.

Private Sub Suz_AidatDefteri_Change()
    If Suz_AidatDefteri <> "" Then
     Range("B6").AutoFilter Field:=2, Criteria1:=Suz_AidatDefteri.Value
    Else
     Range("B6").AutoFilter Field:=2
    End If
End Sub

Yukarıdaki kod textboxa değer yazdıktan sonra yazdığım değere göre süzme işlemi yapıyor.

Yapmak istediğim ise süzme yaptıktan sonra R sütununun en sonundaki boş satıra gitmesi.

Yardım lütfen.

 

[halit3]

Kod:

Private Sub Suz_AidatDefteri_Change()
    If Suz_AidatDefteri <> "" Then
     Range("B6").AutoFilter Field:=2, Criteria1:=Suz_AidatDefteri.Value
    Else
     Range("B6").AutoFilter Field:=2
    End If
  [COLOR="Red"]  sat = Cells(Rows.Count, "r").End(3).Row + 1
    Range("r" & sat).Select[/COLOR]
    
End Sub

 

[ZuCChiNi]

Teşekkür ederim.
Daha ilk rakamı yazınca doğrudan R'deki en son boş satıra gidiyor.

 

[halit3]

Kodlarınızı Change olay yordamına değil Click olay yordamına yazınız.

Suz_AidatDefteri_[COLOR="Red"]Change[/COLOR]
Suz_AidatDefteri_[COLOR="red"]Click[/COLOR]