hücre boş ise 0 (sıfır) yazsın ve kırmızı olsun

[euphrates55]

ekte gönderdiğim çalışmam da bazı yerlerden linkler alıyorum fakat bazı yerlerde değer girmediğim için boş bırakıyorum. daha sonra nereleri linklemedim diye hatırlamak içnde boş olan yerleri kırmızı ile sıfır olarak yazdırmak istiyorum. çünkü bazı yerlerden değer 0 da olsa linkle alıyorum. şimdiden teşekkürler...

 

[zafer]

Merhaba

Aşağıdaki kodları module kopyalayınız.seçtiğiniz alanlardaki boş hücrelere 0 yazar fontunu kırmızı yapar.

Sub rekli()
For Each hucre In Selection
If hucre = "" Then
adres = hucre.Address
Range(adres).Font.ColorIndex = 3
Range(adres) = 0
End If
Next
End Sub

 

[sturan2]

ekteki dosyayı deneyebilirsiniz.

iyi çalışmalar

 

[euphrates55]

hücre boş ise 0 (sıfır) yazsın ve kırmızı OLDU

sevgili sturan2 ve zafer çok teşekkürler. bu iş tamam sayenizde...

 

[Necdet]

Alternatif

1. Hücreleri dolu-boş farketmez seçiniz
2. F5 ya da Ctrl+G yada Düzen-->Git
3. Özel
4. Boş Hücreler i seçin ve Tamam deyin
5. 0 (Sıfır) Yazın ve Ctrl+Enter tuşlarına basın, tüm boş hücreler 0 ile dolar
6. Rengini ayarlayın

 

[Orion1]

Merhaba.
Bu konu üzerinde biraz uğraştım.
Hücre biçimlendirden isteğe uyarlanmıştan boş hücreleri 0 göstermesi konusunda uğraştım yapamadım.Acaba ilgilenen arkadaşlar Hücre biçimlendirden isteğe uyarlanmıştan yapabilirlerse nasıl olduğunu veya örnek dosyayı yollayabilirlermi?

 

[Ali]

Merhaba.
Bu konu üzerinde biraz uğraştım.
Hücre biçimlendirden isteğe uyarlanmıştan boş hücreleri 0 göstermesi konusunda uğraştım yapamadım.Acaba ilgilenen arkadaşlar Hücre biçimlendirden isteğe uyarlanmıştan yapabilirlerse nasıl olduğunu veya örnek dosyayı yollayabilirlermi?

Sn Sezar hücrenizi 0;-0;;@ olarak biçimlendirin.

 

[zafer]

Merhaba

Sayın Necdet beyin dedikleri yaptıktan sonra koşullu biçimlerdirmeden
Hücre değeri eşittir kısmına 0 yazın biçimlendirmeyi yapın..

 

[Orion1]

Merhabalar.
Sayın Ali bey ve Sayın Zafer Bey teşekkür ederim.
İyi çalışmalar.

 

[pCkOpAtuS]

Merhaba

Aşağıdaki kodları module kopyalayınız.seçtiğiniz alanlardaki boş hücrelere 0 yazar fontunu kırmızı yapar.

Sub rekli()
For Each hucre In Selection
If hucre = "" Then
adres = hucre.Address
Range(adres).Font.ColorIndex = 3
Range(adres) = 0
End If
Next
End Sub

Sabit bir yeri seçmek istersek nasıl yapabiliriz?

Sadece

B4:Q33

Aralığını yapmak istiyorum mesela ? Birde Kırmızı değil normal otomatik renk olsun.

 

[ÖmerBey]

"Selection" kısmını

Range("B4:Q33")

olarak değiştiriniz.
otomatik renk için de ColorIndex renk kodunu 1 olarak değiştiriniz.

 

[pCkOpAtuS]

Teşekkürler Elinize Sağlık