Makroda küçük bir değişiklik için...

[acolkesen1]

Merhaba,
Aşağıdaki makrodaki hücre adresini ("a1:a100") olarak değiştirdiğimde veya tüm sütunu (Column olarak) yazdığımda hata veriyor.
1- a1:a1oo arasında çalışması için
2- Tüm A sütununda çalışması için kodları nasıl değiştirmeliyim?

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("a1").Value = "PERSONEL" Then
MsgBox "PERSONEL ADINI YAZINIZ.."
Exit Sub
End If
End Sub

İlgilenen arkadaşlara teşekkür ederim..

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SUT As Long
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") = "PERSONEL" Then
MsgBox "PERSONEL ADINI YAZINIZ.."
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki şekilde kullanabilirsiniz.

1)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
    If Target = "PERSONEL" Then
    MsgBox "PERSONEL ADINI YAZINIZ.."
    Exit Sub
    End If
End Sub

2)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = "PERSONEL" Then
    MsgBox "PERSONEL ADINI YAZINIZ.."
    Exit Sub
    End If
End Sub

 

[acolkesen1]

Sayın N.Ziya Hiçdurmaz ve Sayın Korhan Ayhan arkadaşlar, her ikinize de ilginiz için çok teşekkür ederim.
İyi çalışmalar.