2 değerin kesişim hücresine gitmek

[flamenker]

Merhaba ekteki örnek dosyada c sütunu ve 3. satırda değerler var.
c ütunundaki değerlerden birini ve 3. satırdaki değerleden birini girince 2 sinin kesişimi olan hücrenin seçili olmasını istiyorum.
Umarım mümkündür.
Şimdiden teşekkürler

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k3:l3")) Is Nothing Then Exit Sub
If Range("k3") = "" Or Range("l3") = "" Then
MsgBox "aranacak değerler eksik!"
Exit Sub
End If
    satir = Application.WorksheetFunction.Match(Range("k3"), Range("c4:c12"), 0)
    kolon = Application.WorksheetFunction.Match(Range("l3"), Range("d3:j3"), 0)
Cells(satir + 3, kolon + 3).Select
End Sub

 

[flamenker]

Merhaba
İlginize teşekkürler.
Aradığım tam da böyle birşey ama sanki 2 hücreye de veri girdikten sonra bir tuşa bassak yada 2.hücreye veri girince arama yapsa daha kullanışlı olur.Çünkü misal en son a ve 5 in kesişimini aradık diyelim ilgili kesişim hücresine de ulaştık sonra b 4 ün kesişimine gitmek istiyoruz.b yazar yazmaz b ve 5 in kesişimine gidiyor.Tekrar ilgili hücreye giderek 5 yazmam gerekiyor ki çok büyük sayfalarda kullanışszı oabilir.
Saygılarımla

 

[flamenker]

Tekrar ilgili hucreye gidip 4 yazmam gerekiyor demeliydim yanlis yazmışım.

 

[flamenker]

Arkadaşlar şunu bir butona bağlayamazmıyız ?
Oluru yok mu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub GİT()
    Dim SATIR As Range, SÜTUN As Range
    
    Range("D4:J12").Interior.ColorIndex = xlNone
    
    Set SATIR = Range("C4:C12").Find(Range("A1"), , , xlWhole)
    Set SÜTUN = Range("D3:J3").Find(Range("B1"), , , xlWhole)
    
    If Not SATIR Is Nothing And Not SÜTUN Is Nothing Then
        Cells(SATIR.Row, SÜTUN.Column).Select
        ActiveCell.Interior.ColorIndex = 8
    Else
        MsgBox "Eksik bilgi girişi yaptınız !" & Chr(10) & _
        "Lütfen kontrol ediniz !", vbCritical
    End If
 
    Set SATIR = Nothing
    Set SÜTUN = Nothing
End Sub