VBA FIND kodu

[mersilen]

Merhabalar
Aşağıdaki kod ile;
her bulunan adresin satır ve sütun numaralarını bir yere yazdırmak;
her bulunan hücrenin aynı satırındaki bir sütundan değer almak
bulunanları listelemek

Sorunum c.address 'in satır ve sütun değerini alamamak.

Private Sub CommandButton1_Click()
For Each h In [A5:A20]  'İLK DÖNGÜ


With Worksheets("Sayfa1").Range("J5:M20") ' BAKILACAK TABLO
    Set c = .Find(h.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
       [COLOR="lime"] 'cc = c.Rows
        'cc1 = firstaddress.Rows
        'dd = c.Columns[/COLOR]
        Do
        [COLOR="lime"]'a = firstaddress
        'b = firstaddress.Rows
        'c = firstaddress.Column[/COLOR]
            [COLOR="Red"]Cells(h.Rows, "D").Value = Cells(c.Rows, "M").Value [/COLOR][COLOR="Lime"]'SONUCUN ALINACAĞI HÜCRE[/COLOR]
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With

Next h

End Sub

 

[Zeki Gürsoy]

Cells(h.[COLOR=red][B]Row[/B][/COLOR], "D").Value = Cells(c.[COLOR=Red][B]Row[/B][/COLOR], "M").Value

.

 

[mersilen]

Teşekkürler

Bir sorum olabilir mi?
Arama sutununda neden ilk değeri en son veriyor

verdiği satır sıralamasıyla veriler dd005 -dd00 7 - dd009- dd001 olarak geliyor

aslında 1 den başlaması gerekmez miydi?

 

[Zeki Gürsoy]

Arama aralığını "J4" ten başlatmayı deneyin.