Aramak ve Hücre renklendirme

[k.guclu]

Merhaba arkadaşlar,

Bir tablo hazırladım ve bu tablodaki verileri başka bir sayfadan almaya çalıştım. Bunu yaptım fakat hücreye değer girip
tekrar geri seçmem gerekiyor tabi buda olmuyor bir bakarsanız çok memnun olurum.

Diğer yapmak istediğim tabloda aynı değerler olunca uyarı vermesi.

Kodları aşağıda:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isaret As String
If Intersect(ActiveCell, [a5:a100]) Is Nothing Then
    Else
    isaret = ActiveCell.Value
        Set rng = Sheets("VERİ").Range("C1:C50").Find(isaret, Lookat:=xlWhole)
If rng Is Nothing Then
Exit Sub
Else
ActiveCell.Offset(0, 2) = rng.Offset(0, 5)
ActiveCell.Offset(0, 3) = rng.Offset(0, 7)
End If
Set rng = Nothing
End If
End Sub

Yaptığım uygulamayı ilişikte görsel olarak gösterdim.

SAYGILARIMLA

 

[k.guclu]

Arkadaşlar anlatamadığım bir şey varsa daha fazla bilgi verebilirim. Konu başlığını aslında yanlış gönderdim. çünkü arama yapmaktan girdiğim değerin hemen işlem girmesini sağlamak.

Yani A10 hücresine değer girdiğimde makronun burada çalışmasını sağlamak. benim yaptığımda ise hücreye değer giriyorum sonra orada makronun aktif olması için tekrar üzerine gelmem gerek.

Bu konuda bir link varsa söylerseniz memnun olurum.

 

[k.guclu]

Arkadaşlar lütfen bana yardımcı olun. bir konu başlığı olsa dahi olur.

 

[dEdE]

Merhaba,
Worksheet_Change olayını denediniz mi?

 

[k.guclu]

Üstat tammdır ilişkte yaptığımı gönderiyorum arkadaşlara yardımcı olması ümidiyle
Saygılarımla