stok kontrolü

[zehfeysal]

iyi günler arkadaşlar.stok kontrol verilerini düzenlemek istiyorum. yaklaşık 900 çeşit ve 4000 civarı satır veri girişi yapılacak.o model yılına ait toplam stok miktarını mükerrer girmek istemiyorun. yardımcı olabilir misiniz?

 

[Metin Karaağaç]

http://www.excel.web.tr/forumdisplay.php?f=120

 

[zehfeysal]

Teşekkür ederim Sn. Metin Karaağaç. Define bulmuş gibi oldum. Bu çalışmalardan biri işimi mutlaka görür.

 

[zehfeysal]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, onay As String, son As Long
son = [A65536].End(3).Row
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set c = Range("C1:C" & son - 1).Find(Target, LookIn:=xlValues)
If Not c Is Nothing Then
If Cells(c.Row, "B") = Target.Offset(0, -1) Then
onay = MsgBox("Mükerrer Giriş ~ (Evet)=Devam - (Hayır)=Git", _
vbCritical + vbYesNo, "Dikkat !")
If onay = vbNo Then
Target.ClearContents
Application.Goto c
End If
End If
End If
End Sub


Sn.Ömer' in bir çalışmasını gördüm. ancak burada B ve C sütunu mükerre olunca C sütununa kayıt için uyarıyor.
Ben A,B ve C sütununa mükerrer olunca C sütununa kayıt için uyarmasını istiyorum.