Hücre renkli ise "0" sıfır yazsın

[teonet28]

Merhaba, hücre renkli ise sıfır yazmasını istiyorum. hücrenin rengi önemli değil. dolgu olmayan hücreye nasıl sıfır yazdırabilirim.

şimdiden teşekkürler saygılar.

 

[Korhan Ayhan]

Merhaba,

Mesajınızda iki çelişkili ifade kullanmışsınız..

"hücre renkli ise sıfır yazmasını istiyorum."
"dolgu olmayan hücreye nasıl sıfır yazdırabilirim."

Burada önemli olan hücrelerin rengi nasıl aldığıdır.. Elle ya da koşullu biçimlendirme durumuna göre kod yazılabilir..

 

[teonet28]

Sayın Korhan
çok haklısınız, Kusuruma bakmayın. dolgu olan söylemek istemiştim.

 

[Korhan Ayhan]

Merhaba,

Mesajınızda iki çelişkili ifade kullanmışsınız..

"hücre renkli ise sıfır yazmasını istiyorum."
"dolgu olmayan hücreye nasıl sıfır yazdırabilirim."

Burada önemli olan hücrelerin rengi nasıl aldığıdır.. Elle ya da koşullu biçimlendirme durumuna göre kod yazılabilir..

Kalın fontlu cümlem için bir bildirim yapmamışsınız..

 

[teonet28]

Sayın Korhan,
Değerli uyarınız için teşekkürler. Elle boyamalar yapıldığında. Her hangi bir koşul veya otomatik boyama yok.

 

[Korhan Ayhan]

Aşağıdaki kod tanımlı alan içindeki verileri önce temizler sonra renkli hücrelere sıfır yazar.

Kullanım durumunuza göre revize edebilirsiniz.

Option Explicit

Sub Write_Zeros_In_Colored_Cells()
    Dim My_Area As Range, Rng As Range
    
    Set My_Area = Range("A1:Z1000")
    
    My_Area.ClearContents
    
    For Each Rng In My_Area
        If Rng.Interior.ColorIndex <> xlNone Then
            Rng.Value = 0
        End If
    Next
    
    MsgBox "Renkli hücrelere sıfır yazdırma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[teonet28]

Sayın Korhan Bey
Tam istediğim gibi olmuş elinize sağlık. Uygulama alanına göre hücre değerlerini değiştirdim. Çok teşekkür ederim.

 

[teonet]

Sayın Korhan Bey

Mevcut kod çok işime yaradı. Geliştirmke istesem; boyasızlara (Dolgu rengi olmayanlara) "1" Boyalı olanlara "0" yazacak şekilde yapabilir miyiz?
Şimdiden teşekkürler

 

[Korhan Ayhan]

Kod içinde geçen "IF..." ile başlayan satır sorgu satırıdır. Burayı aşağıdaki gibi düzenleyebilirsiniz.

If Rng.Interior.ColorIndex <> xlNone Then
    Rng.Value = 0
Else
    Rng.Value = 1
End If

 

[teonet]

Korhan Bey
Elinize sağlık süper oldu.

 

[emre8456]

Aşağıdaki kod tanımlı alan içindeki verileri önce temizler sonra renkli hücrelere sıfır yazar.

Kullanım durumunuza göre revize edebilirsiniz.

Option Explicit

Sub Write_Zeros_In_Colored_Cells()
    Dim My_Area As Range, Rng As Range
   
    Set My_Area = Range("A1:Z1000")
   
    My_Area.ClearContents
   
    For Each Rng In My_Area
        If Rng.Interior.ColorIndex <> xlNone Then
            Rng.Value = 0
        End If
    Next
   
    MsgBox "Renkli hücrelere sıfır yazdırma işlemi tamamlanmıştır.", vbInformation
End Sub

Korhan Bey Merhaba
Renklendirme işlemi (kırmızı) el ile değil de koşullu biçimlendirme ile yapılınca kodları nasıl revize etmek gerek.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Option Explicit

Sub Write_Zeros_In_Colored_Cells()
    Dim My_Area As Range, Rng As Range
   
    Set My_Area = Range("A1:Z1000")
   
    My_Area.ClearContents
   
    For Each Rng In My_Area
        If Rng.DisplayFormat.Interior.ColorIndex <> xlNone Then
            Rng.Value = 0
        End If
    Next
   
    MsgBox "Renkli hücrelere sıfır yazdırma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[emre8456]

Aşağıdaki gibi deneyiniz.

Option Explicit

Sub Write_Zeros_In_Colored_Cells()
    Dim My_Area As Range, Rng As Range
  
    Set My_Area = Range("A1:Z1000")
  
    My_Area.ClearContents
  
    For Each Rng In My_Area
        If Rng.DisplayFormat.Interior.ColorIndex <> xlNone Then
            Rng.Value = 0
        End If
    Next
  
    MsgBox "Renkli hücrelere sıfır yazdırma işlemi tamamlanmıştır.", vbInformation
End Sub

Teşekkürler Korhan Bey

 

[teonet]

Sayın Korhan Bey
ilgili sütunda, aşağıya doğru birden fazla zemin rengi olduğunu düşündüğümüzde, rengin koduna göre 0 veya 1 yazdırabilir miyim?
Örneğin;
zemin rengi sarı ise 1, kırmızı ise 1, mavi ise o gibi...

şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Zemin rengini nasıl veriyorsunuz?

 

[teonet]

Sayın Korhan Bey
Yoğunluktan yeni dönüş yapabildim, kusuruma bakmayın. Manuel dolgu rengi ile boyanıyor. ,

Saygılar