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

Katılım
7 Temmuz 2005
Mesajlar
70
Excel Vers. ve Dili
Office Xp - Türkçe
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...
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
7 Temmuz 2005
Mesajlar
70
Excel Vers. ve Dili
Office Xp - Türkçe
Ç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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
7 Temmuz 2005
Mesajlar
70
Excel Vers. ve Dili
Office Xp - Türkçe
Çok teşekkürler Sayın leventm
şimdi daha iyi anlamış oldum sayenizde..
İyi çalışmalar dileklerimle...
 
Üst