Çift Kayıt Engelleme.

Katılım
14 Eylül 2004
Mesajlar
121
hazırladığım örnek dosyada A sütununun tamamına Veri Doğrulama uygulaması yaptım. A sütununa, M sütununda bulunmayan değer girildiğinde uyarı mesajı geliyor.

Benim istediğim, bu uyarı mesajında evet seçeneğini seçince aynı zamanda Userformunda açılması.

Dosyayı inceleyip bu konuda beni aydınlatırmısınız.

teşekkür ederim.
 

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
Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın.

[vb:1:187b4ad8df]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Or Target = 0 Then Exit Sub
UserForm1.Show
End Sub
[/vb:1:187b4ad8df]
 
Katılım
14 Eylül 2004
Mesajlar
121
Aşağıdaki kod sadece a sütunu için geçerli, buna birde e sütununu nasıl eklerim?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Or Target = 0 Then Exit Sub
UserForm1.Show
End Sub
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
If Intersect(Target, [a:a]) Is Nothing Or Target = 0 Then Exit Sub

satırını

If Intersect(Target, [a:e]) Is Nothing Or Target = 0 Then Exit Sub

şeklinde değiştirin
 
Katılım
14 Eylül 2004
Mesajlar
121
Evet ama bu sefer a ile e arasındaki tüm sütunlar bu şekilde oldu. ben sadece a ve e sütununun böyle olmasın ı istiyorum.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
birde bu şekilde deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 5 Then
UserForm1.Show
End If
End Sub
 
Katılım
14 Eylül 2004
Mesajlar
121
şimdi durum düzeldi ama bir sorun daha var!

M sütununda bulunan bir kaydı A sütununa yazdığımızda dahi userform çıkıyor. Kayıt M sütununda bulunuyorsa userformun açılmaması lazım.
 

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
Kodu aşağıdaki gibi düzenleyin.

[vb:1:86412bcfb7]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 5 Then
say = WorksheetFunction.CountIf([m:m], Target)
If say > 0 Then Exit Sub
UserForm1.Show
End If
End Sub[/vb:1:86412bcfb7]
 
Katılım
14 Eylül 2004
Mesajlar
121
Değerli leventm arkadaş;

Yardımların için çok teşekkürler...
 
Üst