seçilihücreden itibaren alt 12 satıra bak.Kod olarak yazabilir misiniz?

[KONYA42]

Mrb.arkadaşlar,Sayfamda belli seçili hücre yok.Yani a:a, b:b gibi sütun yazmayacağım.Öyle olsa kod olarak yazabiliyorum.O yüzden seçili hücre olarak kod yazmak istiyorum.Ama yapamadım. "Seçili hücreden itibaren alt alta 12 satıra bak ve ı6 hücresine eşit olanı seç." Tam olarak istediğim bu.Bu formülü kod şeklinde yazabilecek lütfen olsun.Buna benzer buraya çalışma sayfası ekledim ama cevap veren çıkmadı.Bu yüzden kendim bişeyler yapmaya çalışacağım.

 

[hamitcan]

Bir dosya eklerseniz, daha çabuk cevap bulabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim BUL As Range, X As Byte
    
    Set S1 = Sheets("lojman kira")
    Set S2 = Sheets("Sayfa1")
    
    If S1.Range("A2") <> "" Then
        Set BUL = S2.Cells.Find(S1.Range("A2"))
        If Not BUL Is Nothing Then
            For X = 2 To 13
                If S1.Range("B2") = S2.Cells(X, BUL.Column) Then
                    S2.Cells(X, BUL.Column + 1) = "X"
                    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
                    Exit For
                End If
            Next
        Else
            MsgBox "Aranan isim bulunamamıştır.", vbExclamation
        End If
    End If
 
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[KONYA42]

Teşekür ederim Korhan bey.Evde internet olmadığı için haftasonu cevap yazamadım.Tamda istediğim buydu.Tek kelimeyle;harika olmuş.Ellerinize,emeğinize sağlık.