Çift Kayıt Engelleme.

[abhaz]

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]

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]

 

[abhaz]

teşekkürler dostum...

 

[abhaz]

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]

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

 

[abhaz]

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]

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

 

[abhaz]

ş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]

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]

 

[abhaz]

Değerli leventm arkadaş;

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