Hücre Boş ise boş hücrelere "Giriş Yapılmadı" yazsın

[1Al2Ver]

Merhabalar,

C1:K30 aralığındaki hücreler boş ise, boş hücrelere "Giriş Yapılmadı" yazan makroya ihtiyacım var,

Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_HÜCRE_KONTROL()
    Dim Hücre As Range
    For Each Hücre In [C1:K30]
    If Hücre.Value = "" Then Hücre.Value = "Giriş Yapılmadı"
    Next
End Sub

 

[1Al2Ver]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_HÜCRE_KONTROL()
    Dim Hücre As Range
    For Each Hücre In [C1:K30]
    If Hücre.Value = "" Then Hücre.Value = "Giriş Yapılmadı"
    Next
End Sub

Sayın Korhan Ayhan, merhaba,

Yardımlarınız ve kod için teşekkür ederim, kod gayet güzel çalışıyor,

Saygılarımla.

 

[reflection]

Bu işlemleri yaptırmak için illaki makroyu çalıştırmkamı gerekiyor. Yani otomatik çalıştıramıyormuyuz bu makroyu?

 

[Korhan Ayhan]

Selamlar,

Siz makroyu hangi durumda çalıştırmak istiyorsunuz?

 

[1Al2Ver]

Selamlar,

Siz makroyu hangi durumda çalıştırmak istiyorsunuz?

Sayın Korhan Ayhan, merhaba,

Belki anılan aralıktaki hücreler, dosya ilk açıldığında "Giriş Yapılmadı" ibaresi ile dolu olabilir ve veri girildikçe bu ibare kaybolabilir ?

Aklıma gelen bu ama gerçekleşme oranı nedir, doğrusu bilmiyorum,

Sorunun tarafımdan sorulmamasına rağmen müdahil oldum, çözüm bana da yarar umuduyla,

Teşekkür ederim.

 

[reflection]

Selamlar,

Siz makroyu hangi durumda çalıştırmak istiyorsunuz?

makroyu örneğin c sütunundaki herhangi bir değerde değişiklik yaparsak makronun çalışmasını sağlayabilirmiyiz?