- Katılım
- 17 Ocak 2006
- Mesajlar
- 241
- Excel Vers. ve Dili
- excel xp türkçe
Merhaba Arkadaşlar herkese kolay gelsin...
Arkadaşlar benim istediğim hücre içine yazılacak olan yazıyı hem c sütununda hemde başka bir sayfada arama yapacak..
Yaniiii
C sütununa yazılan metni daha önce yazılmış isim listesinden aarayacak aynı zamanda Sayfa2 deki A sütunuda arama yapacak
benim yazdığım kod aşağıda ama bir türlü tamamlayamadım..
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Adres
On Error GoTo HATA
If Target.Column = 3 And Not Target = "" Then
Set Bul = Range("C:C").Find(Target, LookAt:=xlWhole)
Adres = Bul.Address
Set Bul = Range("C:C").FindNext(Bul)
If Not Bul.Address = Adres Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
HATA:
End Sub
bu konuda bana yardımcı olurmusuunuz:???
Arkadaşlar benim istediğim hücre içine yazılacak olan yazıyı hem c sütununda hemde başka bir sayfada arama yapacak..
Yaniiii
C sütununa yazılan metni daha önce yazılmış isim listesinden aarayacak aynı zamanda Sayfa2 deki A sütunuda arama yapacak
benim yazdığım kod aşağıda ama bir türlü tamamlayamadım..
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Adres
On Error GoTo HATA
If Target.Column = 3 And Not Target = "" Then
Set Bul = Range("C:C").Find(Target, LookAt:=xlWhole)
Adres = Bul.Address
Set Bul = Range("C:C").FindNext(Bul)
If Not Bul.Address = Adres Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
HATA:
End Sub
bu konuda bana yardımcı olurmusuunuz:???