Son satırı bulma hk.

[mumugul]

Merhaba,

Aşağıdaki kod ile bulduğumuz değerin bulunduğu sütunun son satırını nasıl bulabiliriz, yardımcı olur musunuz?

Saygılarımla...

Set Sehir = Worksheets("Sayfa1").[1:1].Find("Ankara", , xlValues, xlWhole)

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod ile bulabilirsiniz.

Sub EnSonHucre()
    Dim Kolon As Long
    Dim SonSatir As Long
    Set sehir = Worksheets("Sayfa1").[1:1].Find("Ankara", , xlValues, xlWhole)
    Kolon = sehir.Column
    SonSatir = Cells(Rows.Count, Kolon).End(3).Row
    MsgBox "En son dolu satır no: " & SonSatir & vbLf & "En son dolu hücre adresi: " & Cells(SonSatir, Kolon).Address
End Sub

 

[mumugul]

Teşekkürler...

 

[mumugul]

Merhaba,

Son satırı yukarıdan farklı kullanım olarak bir de "ListBox1.RowSource" ekledim ama,
bulduğumuz sütunu aşağıda ki kod da "Sayfa1!A3:E" yerine giremedim, yardımcı olur musunuz?

Saygılarımla...

Set sehir = Worksheets("Sayfa1").[1:1].Find(ComboBox1.Value, , xlValues, xlWhole)
ListBox1.RowSource = "Sayfa1!A3:E" & Worksheets("Sayfa1").Cells(Rows.Count, sehir.Column).End(3).Row

 

[Korhan Ayhan]

"sehir" isimli değişkene veri yüklenmiyorsa hata verecektir.

 

[mumugul]

Merhaba,

Sadece "A3E" kısmını gelen değişkene göre uyarlayamadım.

 

[Muzaffer Ali]

Sayın Korhan Ayhan'ın dediği gibi muhtemelen
Set sehir = Worksheets("Sayfa1").[1:1].Find(ComboBox1.Value, , xlValues, xlWhole)
satırında "ComboBox1.Value" de bulunan değer 1. satırda bulunamıyor olmalı.
Yoksa yazdığınız 2. satırda bir sorun yok.

 

[mumugul]

Merhaba,

Herhangi bir sorun yok.
Kolonu değiştiremiyorum.
"Sehir" değişkeni "$A$1" diye geldiğinde "A3E" kısmını gelen değişkene göre uyarlayamadım.
"Sehir" değişkeni "$G$1" diye geldiğinde "A3E" kısmı nasıl otomatik hale gelebilir?

 

[Muzaffer Ali]

Dosyanızı eklemeniz mümkünse ekleyin üzerinde bakalım.
Eğer dosyanızda önemli bilgiler varsa silin örnek amaçlı veriler girin.

 

[mumugul]

Merhaba,

Örnek dosyam ekte.

 

[Muzaffer Ali]

"Private Sub ComboBox1_Change()" kodlarını aşağıdakiler ile değiştirin.

Private Sub ComboBox1_Change()
    Dim Kolon As Long
    Dim Adres As String
    Dim SonSatir As Long
    Kolon = Worksheets("Sayfa1").[1:1].Find(ComboBox1.Value, , xlValues, xlWhole).Column
    SonSatir = Worksheets("Sayfa1").Cells(Rows.Count, Kolon).End(3).Row
    Adres = Cells(2, Kolon).Address
    Adres = Adres & ":" & Cells(SonSatir, Kolon + 4).Address
    ListBox1.RowSource = "Sayfa1!" & Adres
End Sub

 

[mumugul]

Teşekkürler...