(A7:A65...) Change olayı

[yeniyetme]

Sayfa 2 de (A2 =1)- (a3=2)-(a4=3) (A65000) e kadar devam eden sayılarım var.

sayfa 1 'e de a7 den den başlayarak elimle sıra numarası giriyorum.
vermek istediğim komut a7-ile a65000 arasında bir değişiklik olduğunda (sıra numarası girdiğimde) sayfa 2 de a sutununda o sıra numarasını bul hemen sağındaki hücreye "değişiklik oldu" diye yazsın

bu makro sadece a7 den a65000 'e kadar hücrelerde değişiklik olursa çalışsın.
böyle birşey mümkünmüdür acaba.

benim çok işime yarayacak. yoksa her komut butonu için aynı makroları tekrar tekrar yazmak zorunda kalıcam.

 

[Zeki Gürsoy]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a7:a65000]) Is Nothing Then Exit Sub
    Call Kontrol(Target.Value)
End Sub

Private Sub Kontrol(ref As Long)
    With Sheets("Sayfa2")
        Set f = .Columns("a").Find(ref)
        If Not f Is Nothing Then .Cells(f.Row, "b").Value = "değişiklik yapıldı."
    End With
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A7:A65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If IsNumeric(Target) = True Then
    Set BUL = Sheets("Sayfa2").Range("A:A").Find(Target, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Sheets("Sayfa2").Range("B" & BUL.Row) = "Değişiklik oldu."
    Else
    MsgBox "Girdiğiniz sıra no bulunamamıştır !", vbExclamation, "Dikkat !"
    End If
    End If
    Set BUL = Nothing
End Sub

 

[yeniyetme]

Arkadaşlar hızınıza hayran kaldım ya çok teşekkür ederim .
Beni çok büyük bir dertten kurtardınız. Sağolun varolun.

 

[yeniyetme]

arkadaşlar bir sorunum daha var ama soruda bunu belirtmedim. kusura bakmayın
şimdi a7 den a65000 e kadar olan satırlarda bir değişiklik olduğunda makro istenileni harika şekilde yapıyor fakat
yaptığım programda textboxtan a sütununa bilgi attığım zaman bu makro çalışmıyor.

bu makroda nasıl bir değişiklik yapmam gerekiyor acaba.

 

[yeniyetme]

kusura bakmayın arkadaşlar kod sorunsuz çalışıyor. zamanlama hatası yapmışım....