- Katılım
- 17 Ocak 2006
- Mesajlar
- 241
- Excel Vers. ve Dili
- excel xp türkçe
Günaydın
daha önce yardım istenmiş bir konu ama
istediğim arama işlem olduğu zaman
yapılan bulma işlemine göre mesaj versin.
aynı sütundaysa daha yazılmış
yada
diğer belirlenmiş sayfa2 de ise yasaklanmış isim diyerek
------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Bul1 As Range
Dim Bul2 As Range, Adres
If Target.Column = 4 And Not Target = "" Then
Bul1 = WorksheetFunction.CountIf(Columns("d"), Target)
Bul2 = WorksheetFunction.CountIf(Sheets("kayıtdışı").Columns("b"), Target)
If Bul1 > 0 Or Bul2 > 0 Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
End Sub
-------------------------------------------
mümkünse bu konuda bana yardımcı olurmusunuz?????
bu arada herkese kolay gelsin
daha önce yardım istenmiş bir konu ama
istediğim arama işlem olduğu zaman
yapılan bulma işlemine göre mesaj versin.
aynı sütundaysa daha yazılmış
yada
diğer belirlenmiş sayfa2 de ise yasaklanmış isim diyerek
------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Bul1 As Range
Dim Bul2 As Range, Adres
If Target.Column = 4 And Not Target = "" Then
Bul1 = WorksheetFunction.CountIf(Columns("d"), Target)
Bul2 = WorksheetFunction.CountIf(Sheets("kayıtdışı").Columns("b"), Target)
If Bul1 > 0 Or Bul2 > 0 Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
End Sub
-------------------------------------------
mümkünse bu konuda bana yardımcı olurmusunuz?????
bu arada herkese kolay gelsin