ara aktifleştir

[necmettin_tok]

Arkadaşlar Sayfa1 de A1 hücresindeki tarih değerini Sayfa2 A sütununda aratıp değeri bulduğu hücreyi aktif (activate) yapmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If Not IsEmpty(Target) Then
    If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A:A"), Target) > 0 Then
    Sheets("Sayfa2").Select
    Sheets("Sayfa2").Range("A:A").Find(Target).Activate
    Else
    MsgBox "ARANAN TARİH BULUNAMAMIŞTIR.", vbCritical
    End If
    End If
End Sub

 

[ileriexcel]

Değişik bir örnek
Sub TEST()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each bak In s2.Range("a1:a50")
If bak.Value = s1.[a1].Value Then
s2.Select
bak.Activate
Exit Sub
End If
Next
End Sub