İsteğim c2 de yazan değeri c4den c3180 e kadar olan hücrelerde arayıp o hücreye gitme

[ilhan40]

İsteğim c2 de yazan değeri c4den c3180 e kadar olan hücrelerde arayıp o hücreye gitme

 

[Ömer]

Merhaba,

Module kopyalayıp bir butona bağlayınız.

Option Explicit
 
Sub Git()
 
    Dim k As Range
 
    Set k = Range("C4:C3180").Find(Range("C2"), _
                                LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not k Is Nothing Then
        Application.Goto k
    End If
 
End Sub

.

 

[ilhan40]

Ellerinize Sağlık Çok Teşekkür Ederim.