Sayfada seçili hücre değiştiğinde uyarı vermek....

[yollabana]

Merhaba arkadaşlar,
Excelde bi çalışma sayfasında örneğin f5 hücresindeyken f6 ya geçtiğimde bi uyarı verdirmek istiyorumm.Msgbox şeklinde bi uyarı olabilir.Hücrenin değeri değiştiğinde değilde başka bir hücreye geçildiği anda uyarı vermem lazım.Bunu nasıl yapabilirimm???
Teşekkürler...

 

[Recep İpek]

Sayın yollabana,

Aşağıdaki kodları sayfanın modül kısmına kopyalayın.

[vb:1:86a769ff25]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [F21:F20]) Is Nothing Then Exit Sub 'Geçerli Alan
MsgBox "OK"
End Sub
[/vb:1:86a769ff25]

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [F6]) Is Nothing Then
Exit Sub
End If
ActiveCell = ActiveCell
MsgBox "İlgili Hücreye Giriş Yapıldı", vbCritical, "Dikkat !!"
End Sub

 

[yollabana]

Çok teşekkürler... Elinize sağlık..Şu intersect ne işi yarar nedir?Bu konuda kısa bi açıklama alırsak üstadlarımızdan çok memnun olurumm

 

[Levent Menteşoğlu]

intersect; makronun sayfa üzerinde çalışmasını istediğiniz aralığı tanımlamak için kullanılan bir komuttur. Örneğin;Aşağıdaki satırın anlamı; Eğer(if) hedef hücre(target), A1:A20 hücreler aralığında([A1:A20]) değilse (is nothing), çalışmayı sonlandır (exit sub)


If Intersect(Target, [A1:A20]) Is Nothing Then Exit Sub

 

[yollabana]

Çok teşekkürler Sayın leventm
şimdi daha iyi anlamış oldum sayenizde..
İyi çalışmalar dileklerimle...