Aktif Hücreye Otomatik metin ekleme veya silme

[Feylosof]

Merhaba;
Vba ile şu şartı yerine getiren bir koda ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

Eğer A1 hücresi aktif değilse veya A1 dışında herhangi bir hücre seçili yada herhangi bir hücre seçili değilse A1 hücresine "No Ekle" yazacak. A1 hücresini seçince bu yazı silinecek.

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağ tıklatın "Kod Görüntüle" seçinaçılan kod penceresine aşağıdaki kodları kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1") = "No Ekle"
    Else
        Range("A1") = ""
    End If
End Sub

 

[Feylosof]

Değerli @dalgalikur hocam çok teşekkür ederim. Emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[vurkan]

Merhaba bu işlem A1 hücresine bir şey yazılınca silinip, o yazı silinince nasıl tekrar gelebilir? Mesela A1 hücresi boşken Sınıf Şube Giriniz Yazsa. Sınıf Şube girilip işlem yapılsa. Sonra o sınıf şube silinince tekrar Sınıf Şube Giriniz yazması için nasıl bir değişiklik gerekir? Saygılar.

 

[Korhan Ayhan]

Deneyiniz.

 

[vurkan]

Sayın Korhan Ayhan Hocam. İlginize teşekkür ederim. Ancak altın üye olmadığım için deneyemedim. Saygılar.

 

[Korhan Ayhan]

Harici Link (Silinebilir) ; https://we.tl/t-9I1XbEOKls

 

[vurkan]

Sayın Korhan Ayhan Hocam. Dosyayı aldım. İlginize çok teşekkür ederim. Saygılar.