- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Herkese Selamlar,
Bir Çalışma sayfasında B, C ve D sütunları birleştirilmiş. Ve yukarıdan aşağıya doğru belirli aralıklarla sıralanmış. İlgili kodu bir türlü uyarlayamadım. Hata veriyor. Saygılarımı sunuyorum.
İlgili Kod :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If WorksheetFunction.CountIf(Range("A1:A" & Target.Row - 1), Target) > 0 Then
MsgBox "BU İSİM KAYITLIDIR"
Target.Clear
Target.Select
End If
End If
End Sub
İlgili Dosya Aşağıda :
Bir Çalışma sayfasında B, C ve D sütunları birleştirilmiş. Ve yukarıdan aşağıya doğru belirli aralıklarla sıralanmış. İlgili kodu bir türlü uyarlayamadım. Hata veriyor. Saygılarımı sunuyorum.
İlgili Kod :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If WorksheetFunction.CountIf(Range("A1:A" & Target.Row - 1), Target) > 0 Then
MsgBox "BU İSİM KAYITLIDIR"
Target.Clear
Target.Select
End If
End If
End Sub
İlgili Dosya Aşağıda :