İki hücre eşit değilse mesaj vererek silmesi

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Ekte gönderdiğim excel sayfamda C ile I birleştirilmiş hücre, K ile Q birleştirilmiş hücre ve S ile Y birleştirilmiş hücredeki bilgiler AB sütunundaki bilgelere eşit değilse, uyarı mesajı vererek verinin silinmesini, eşitse aynı değeri yazsın istiyorum.

Makrodan fazla anlamadığım için yapamadım yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

http://s2.dosya.tc/server/5xcov2/Ornek.xls.html

.

 

[ASLAN7410]

Merhaba arkadaşlar.

Excel sayfama aşağıdaki kodları uyguluyorum, bu seferde sürekli mesaj geliyor, mesaj kapanmıyor.

Aşağıdaki kodu düzenleyebilir misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Row = 8 Then
If Range("C8") <> Range("AB1") Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("C8:H8").Select
Selection.ClearContents
Range("C8").Select
End If
End If

If Target.Column = 3 Or Row = 8 Then
If Range("K8") <> Range("AB2") Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("K8:Q8").Select
Selection.ClearContents
Range("K8").Select
End If
End If

If Target.Column = 3 Or Row = 8 Then
If Range("S8") <> Range("AB3") Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("S8:Y8").Select
Selection.ClearContents
Range("S8").Select
End If
End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi düzenleyebilirsiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C8:I8,K8:Q8,S8:Y8")) Is Nothing Then Exit Sub
If Target.Address = "$C$8" And Range("C8") <> [AB1] Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("C8:H8").Select
Selection.ClearContents
Range("C8").Select
End If
If Target.Address = "$K$8" And Range("K8") <> [AB2] Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("K8:Q8").Select
Selection.ClearContents
Range("K8").Select
End If
If Target.Address = "$S$8" And Range("S8") <> [AB3] Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("S8:Y8").Select
Selection.ClearContents
Range("S8").Select
End If
End Sub

 

[ASLAN7410]

Sayın PLİNT ilginiz için çok teşekkür ediyorum, önceki gönderdiğim excel sayfamda kodlar güzel çalışıyor.

Ancak ekte gönderdiğim sayfamda kodlar hata veriyor, nedenini bulamadım.
Yardımcı olur musunuz?

 

[PLİNT]

Sayın PLİNT ilginiz için çok teşekkür ediyorum, önceki gönderdiğim excel sayfamda kodlar güzel çalışıyor.

Ancak ekte gönderdiğim sayfamda kodlar hata veriyor, nedenini bulamadım.
Yardımcı olur musunuz?

Örnek dosyanızı www.Dosya.tc yede yüklermisiniz?

 

[ASLAN7410]

Örnek dosya aşağıdaki linkte.

http://s5.dosya.tc/server/4mdlgg/Ornek1.xls.html

 

[ASLAN7410]

Sayın PLİNT sayfada TC kontrolü yapmak istiyorum, örneğin C8 hücresine yanlış TC no yazıp entere bastığımda veriler silinecek mesajı geliyor tamam dediğimde debug hatası verip aşağıdaki kodu sarıya boyuyor.

If Target.Address = "$C$8" And Range("C8") <> [AB1] Then

 

[PLİNT]

[AB] hücrelerinde formül varmış aşağıdaki gibi deneyelim;

 Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C8:I8,K8:Q8,S8:Y8")) Is Nothing Then Exit Sub
If Target.Text = "" Then Exit Sub
If Target.Address = "$C$8" And Range("C8").Text <> Range("AB1").Text Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("C8:H8").Select
Selection.ClearContents
Range("C8").Select
End If
If Target.Address = "$K$8" And Range("K8").Text <> Range("AB2").Text Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("K8:Q8").Select
Selection.ClearContents
Range("K8").Select
End If
If Target.Address = "$S$8" And Range("S8").Text <> Range("AB3").Text Then
MsgBox ("Veri eşit değil, veri silinecek.")
Range("S8:Y8").Select
Selection.ClearContents
Range("S8").Select
End If
End Sub

 

[ASLAN7410]

Sayın PLİNT uzun uğraşlar sonucu AB1,AB2 ve AB3 hücrelerindeki formüllere EĞERHATA formülünü uyguladığımda sorun çözüldü.

İlginiz ve emeğinize çok teşekkür ediyorum, hayırlı geceler hayırlı çalışmalar.

Belki birilerinin işine yarayabilir diye ekleme yapıyorum.

http://s4.dosya.tc/server/iy3px1/Ornek2.xls.html

.