makroya ekleme;

[abbasonline]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts
Set ts = Sheets("GİRİŞ")
On Error GoTo Son
If Intersect(Target, Range("C4:C" & Rows.Count)) Is Nothing Then Exit Sub
If Target <> "" Then
If WorksheetFunction.CountIf(ts.Range("G4:G" & Rows.Count), Target) < 1 Then
MsgBox "Bu malzemenin depoya girişi bulunmamaktadır.!!!", vbCritical, "Hata"
Target.ClearContents
Target.Select
Exit Sub
End If
End If
Son:
End Sub


bu makro "giriş" sayfasındaki g sütununda arama yapıyor yazılan "giriş" sayfasının g sütununda bulunmuyorsa uyarı verip veriyi yazdırmıyor.

yapmak istediğim bu makroya birde "devir" sayfasının g sütununu eklemek istiyorum, yazılan veriyi hem "giriş", hemde "devir" sayfalarının g sütununda arasın yazılan veri yoksa uyarı verip veriyi yazdırmamasını istiyorum.

 

[mersilen]

Merhaba
Dener misiniz?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ts1
dim ts2
Set ts1 = Sheets("GİRİŞ")
Set ts2 = Sheets("devir")
On Error GoTo Son
If Intersect(Target, Range("C4:C" & Rows.Count)) Is Nothing Then Exit Sub
If Target <> "" Then
If WorksheetFunction.CountIf(ts1.Range("G4:G" & Rows.Count), Target) < 1 and WorksheetFunction.CountIf(ts2.Range("G4:G" & Rows.Count), Target) < 1 Then
MsgBox "Bu malzemenin depoya girişi bulunmamaktadır.!!!", vbCritical, "Hata"
Target.ClearContents
Target.Select
Exit Sub
End If
End If
Son:
End Sub

 

[abbasonline]

Teşekkürler kolay gelsin,