Seçili alanda en son hücrenin adresi nedir?

[Orion1]

Seçili alandaki X bulunan hücrenin bulunduğu satırda En son hücrenin adresini nasıl Buluruz?
Dosyayı ekledim.

 

[Necdet]

Merhaba,

X değerine sahip hücre seçildikten sonra :

Sub Makro1()
Range("IV" & ActiveCell.Row).End(xlToLeft).Select
MsgBox Selection.Address
End Sub

Makro çalıştırılır ve adres alınır.

 

[Levent Menteşoğlu]

Sn Evren bey

Daha pratik bir çözüm bulunana kadar aşağıdaki mantık işinizi görecektir.

Sub sonhucrebul()
adr = Split(Selection.Address, ",")
For a = 0 To UBound(adr)
If WorksheetFunction.CountIf(Range(adr(a)), "X") = 0 Then GoTo 10
sat = Range(adr(a)).Find("X").Row
sut = Range(adr(a)).Cells(Range(adr(a)).Cells.Count).Column
MsgBox Cells(sat, sut).Address(0, 0)
10 Next
End Sub

 

[Necdet]

Tekrar Merhaba,

Ben soruyu yanlış mı anladım acaba?

 

[hamitcan]

Ben de anladığım şekilde cevap vereyim.

Sub secilialandakisonhucre()
    x = Selection.Find("X").Row
    y = Selection.Columns.Count
    MsgBox Cells(x, y).Address
End Sub

 

[Skorpiyon]

Sanırım Evren Hocam'ın istediği, sizin cevabınız Necdet Hocam.

Kopya çekip Necdet Hocam ile Hamitcan Hocamın kodlarını birleştireyim

Sub bul()
x = Cells.Find("X").Select
Range("IV" & ActiveCell.Row).End(xlToLeft).Select
MsgBox Selection.Address
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub SEÇİLİ_ALANDAKİ_SON_HÜCRE()
    Set BUL = Selection.Find("X", LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    MsgBox Cells(BUL.Row, 256).End(1).Address(0, 0)
    End If
End Sub

 

[Ayhan Ercan]

Merhaba,

Ben olayı farklı kavradım. "Seçili alan" daki son hücre isteniyor herhalde.

Sayın Evren Hocam

Doğru algıladıysam aşağıdaki kodlarıda bir denermisiniz?

Sub sonhucresec()
Dim hcr As Range, i As Byte, j As Byte
i = Selection.Columns.Count - 1
j = Selection.Column
    For Each hcr In Selection
        If hcr.Value = "X" Then
            MsgBox Cells(hcr.Row, i + j).Address(0, 0)
        End If
    Next

End Sub

 

[Orion1]

Arkadaşlar,Hepinize teker teker teşekkür ederim.
İstediğim Cevabı Ayhan bey 8 numaralı mesajda vermiş.
İyi geceler.

 

[Ayhan Ercan]

İşinize yaradığına sevindim Evren hocam.
Size de iyi geceler... k::