Pasif hücreye açıklama ekleme

[Yesilyurtlu]

Değerli Üstadlarım;
C16 hücresine "ilgi varsa buraya giriniz""
B16 hücresine "Yazı Metnini Buraya giriniz"
C20 hücresine "Arz / Rica kısmını Buraya giriniz"
gibi hücreye uyarı yazdırmak istiyorum. Veri girince uyarı yok olacak. Bu sistemi biçim Koşullu biçimlendirme sisteminden nasıl yapabilirim? Yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Bahsi geçen uygulama Sayfa1 de düşünülmüştür.

Standart bir module;

Sub Auto_Open()
 
    With Sheets("Sayfa1")
        If .[C16] = "" Then
            .[C16] = "ilgi varsa buraya giriniz"
        End If
        If .[B16] = "" Then
            .[B16] = "Yazı Metnini Buraya giriniz"
        End If
        If .[C20] = "" Then
            .[C20] = "Arz / Rica kısmını Buraya giriniz"
        End If
    End With
 
End Sub

Sayfa1'in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [C16,B16,C20]) Is Nothing Then Exit Sub
 
    Auto_Open
 
End Sub

Bu işlemlerden sonra dosyanızı kapatıp açın ve sonuçları inceleyiniz.

.

 

[Yesilyurtlu]

Ömer Abi Teşekkür ederim
ellerine sağlık istediğim gibi olmuş
Hakkını helal et

 

[Yesilyurtlu]

Ömer Abi
yukarıda vermiş olduğunuz kod yazıcıdan çıktı alırken yazmış olduğumuz açıklamalar görünmeye bilir mi? Böyle bir imkanımız var mı?
Çünkü "ilgi varsa buraya giriniz" uyarısı çıkıyor. İlgi yoksa eğer yazıda "ilgi varsa buraya giriniz" açıklamasıda çıkıyor yazdırırken.