ne işe yarar

[yuxexes]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:B65536")) Is Nothing Then Exit Sub
If (WorksheetFunction.CountIf(Range("A:A"), Cells(Target.Row, 1)) > 1 And _
WorksheetFunction.CountIf(Range("B:B"), Cells(Target.Row, 2)) > 1) Or _
WorksheetFunction.CountIf(Range("F:F"), Cells(Target.Row, 2)) < 1 Then
MsgBox "OLMAYAN BİR CİHAZ NUMARASI GİRDİNİZ VEYA AYNI TARİHE, AYNI CİHAZ NUMARASI" & vbCrLf & _
"İLE İKİNCİ KEZ GİRİŞ YAPIYORSUNUZ. SLİPLERDEN SATIŞLARI KONTROL EDİNİZ.", , "DİKKAT"
Target = ""
Target.Activate
End If
End Sub


merhaba;
yukarıdaki kodların ne işe yaradığını aşama aşama bana tarif edebilecek bir arkadaş varmı.
bir hata varda çözmek istiyorum ve yardımlarınızı rica ediyorum.

şimdiden teşekkür ederim.

 

[parametre]

ne yapmak istiyorsun onu soylesende ona gore calısma yapabilsek daha iyi olmazmı ek dosya gonderseniz sorunuzu orada sorsanız iyi olur diye dusunurum haksızmıyım gerci daha iyisini siz bilirsiniz ama saygılar

 

[yuxexes]

ekli dosya

merhaba;
dosya ekte ve az önce gönderdiğim kodda kayıtlı.
benim istediğim a hücresine tarih girmek b hücresine cihaz no seçmek ve tutar bölümü olan c hücresinede tutar girmek.
benim istediğim veri girişi yaparken aynı tarihle aynı cihaz nosu girdiğimde hata mesajı versin.
bunu ilk satırda yapıyor ancak bir iki tarih girdikten sonra farklı tarihlerde bile girsem. aynı cihaz no girdiğimde hata veriyor.
yardımlarınızı rica ediyorum.

 

[Orion1]

Aşağıdaki linkte cevap verdim.
http://www.excel.web.tr/showthread.php?goto=newpost&t=69705