Makro arama kodu

[donjun]

Merhaba

arkadaşlar şöyle bir sorum olacak.

Sayfa1 de A1 hücresindeki değeri sayfa2 de E sütununda aratıp buldugu hücrenin hücre adresini veren bilen varsa yazabilir mi lütfen.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Option Explicit 
Sub AdresBul()
Dim c As Range
Dim sat As Long
Dim ilkadres As Variant
Dim S1, S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S1.Select
Range("B:B").ClearContents
With S2.Range("E:E")
    Set c = .Find(Range("A1"), LookIn:=xlValues)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            sat = sat + 1
            Cells(sat, "B") = c.Address
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
End Sub

.

 

[donjun]

Ömer bey çok teşekkür ediyorum.Tam istediğim gibi.