makro ile satir numarasi bulma

[gurcan21]

Arkadaslar merhaba,

Uzerinde calistigim dosyada soyle birseye ihtiyacim var. A sutunundaki hucrede 5 ve B sutunundaki hucrede 3 degerini iceren hucre ikilisinin bulundugu satirin numarasi lazim. Daha acik ifadeyle ornegin A6=5 ve B6=3 ise bana satir numarasi olarak 6 yi vermeli? nasil yapabilirim?

Tesekkurler

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub SatirNoBul()
 
    Dim c As Range, Adr As Variant, sat As String, sonhcr As Range
 
    With Range("A:A")
        Set sonhcr = .Cells(.Cells.Count)
        Set c = .Find(5, sonhcr, xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                If Cells(c.Row, "B") = 3 Then sat = sat & Chr(10) & c.Row
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
            If sat = "" Then sat = "Bulamadım"
            MsgBox "Satır Numaraları :" & sat, , "excel.web.tr"
        End If
    End With
 
    Set sonhcr = Nothing: Set c = Nothing
     
End Sub

.

 

[mustafaine1]

Guzel cevap olmus Omer Bey, tesekkurler..

 

[Necdet]

Merhaba,

Ömer bey Find komutunda ilk satır olayını çözdü, şimdi Find komutuna şarkı söylettiriyor

 

[Ömer]

Teşekkür ederim arkadaşlar.

Şarkı kim biz kim Necdet bey

.