Dolgu rengini temizlemek

[Erdal]

Merhabalar
Çalışma sayfasındaki Gri renkli dolgu alanlarını dolgu yok haline getiren bir kod yazmak mümkün müdür acaba? Yalnız sadece gri renkli alanlar temizlenecek çünkü sayfada başka renk dolgu içeren hücreler var.
Gri Renk: Dolgu sekmesindeki sol üstte bulunan beyazın bir altındaki renk. (Arka plan 1, Daha Koyu % 15)

 

[Cengiz Demir]

Böyle bir kod işinizi görür mü ? ("A1: D8") adresini sayfanıza göre ayarlarsınız.

Sub GriSil()

Dim rng As Range: Set rng = Application.Range("A1:D8")

Dim cel As Range

For Each cel In rng.Cells

    If cel.Interior.ColorIndex = 15 Then

       cel.Interior.ColorIndex = -4142

    End If

Next cel

End Sub

 ("A1:D8")

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki seçili gri renge göre kod yazılmıştır.

Sub test()
    Dim Bak As Range
    For Each Bak In Cells.SpecialCells(xlCellTypeBlanks)
        If Bak.Interior.Color = XlRgbColor.rgbGray Then
            Bak.Interior.Pattern = xlNone
        End If
    Next
End Sub

 

[uzmanamele]

Merhaba

Bu l değiştir ile makrosuz basitçe yapabilirsiniz
Bul Değiştir / Aranan / hücre biçim / dolgu (Gri") / Yeni değer / hücre biçim / dolgu (renk yok)

Bu da makro kaydet ile elde edilen makrosu

Sub Makro1()
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

 

[Erdal]

Böyle bir kod işinizi görür mü ? ("A1: D8") adresini sayfanıza göre ayarlarsınız.

Sub GriSil()

Dim rng As Range: Set rng = Application.Range("A1:D8")

Dim cel As Range

For Each cel In rng.Cells

    If cel.Interior.ColorIndex = 15 Then

       cel.Interior.ColorIndex = -4142

    End If

Next cel

End Sub

 ("A1:D8")

Cengiz Bey Teşekkür ederim. Verdiğiniz kod işimi çözdü. Öğrenmek ve anlamak için soruyorum. Zannedersem kodlardaki 15 griyi -4142 ise dolgu olmamasını temsil ediyor. Acaba diğer renklerin numarasını nasıl öğreniriz? Saygı ve selam ile ...

 

[Erdal]

Merhaba.
Aşağıdaki seçili gri renge göre kod yazılmıştır.
Ekli dosyayı görüntüle 234987

Sub test()
    Dim Bak As Range
    For Each Bak In Cells.SpecialCells(xlCellTypeBlanks)
        If Bak.Interior.Color = XlRgbColor.rgbGray Then
            Bak.Interior.Pattern = xlNone
        End If
    Next
End Sub

Muzaffer Bey Teşekkür ederim. Cengiz Beyde olduğu gibi sizin de paylaştığınız kod işimi çözdü. Cengiz Beye de söylediğim gibi öğrenmek ve anlamak için soruyorum. Diğer renklerin isimlerini nasıl öğreniriz? Saygı ve selam ile ...

 

[Erdal]

Merhaba

Bu l değiştir ile makrosuz basitçe yapabilirsiniz
Bul Değiştir / Aranan / hücre biçim / dolgu (Gri") / Yeni değer / hücre biçim / dolgu (renk yok)

Bu da makro kaydet ile elde edilen makrosu

Sub Makro1()
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

Sn. Uzmanamele cevabınız için teşekkür ederim. Bana soru için başka bir bakış açısı gösterdiniz ve yeni bir şey öğrettiniz. Tekrar teşekkür ederim. Saygı ve selam ile ...

 

[Cengiz Demir]

Rica ederim.
A1 hücresindeki rengin index değerini A2 hücresine bu kodla alabilirsiniz.
İsterseniz Cells(1, 2).Value yerine değişken atayıp, makronuz içerisinde kullanabilirsiniz.

Sub  Renk()
Cells(1, 2).Value = Cells(1, 1).Interior.ColorIndex
End Sub

Bu kod A sütununa standart renklerin kendisini basar ve index numarasını yazar

Sub DolguRengi()
Dim x As Integer

For x = 1 To 56
    Cells(x, 1).Value = x
    Cells(x, 1).Interior.ColorIndex = x
Next x

End Sub

Cengiz Bey Teşekkür ederim. Verdiğiniz kod işimi çözdü. Öğrenmek ve anlamak için soruyorum. Zannedersem kodlardaki 15 griyi -4142 ise dolgu olmamasını temsil ediyor. Acaba diğer renklerin numarasını nasıl öğreniriz? Saygı ve selam ile ...

 

[Erdal]

Rica ederim.
A1 hücresindeki rengin index değerini A2 hücresine bu kodla alabilirsiniz.
İsterseniz Cells(1, 2).Value yerine değişken atayıp, makronuz içerisinde kullanabilirsiniz.

Sub  Renk()
Cells(1, 2).Value = Cells(1, 1).Interior.ColorIndex
End Sub

Bu kod A sütununa standart renklerin kendisini basar ve index numarasını yazar

Sub DolguRengi()
Dim x As Integer

For x = 1 To 56
    Cells(x, 1).Value = x
    Cells(x, 1).Interior.ColorIndex = x
Next x

End Sub

Teşekkür ederim Cengiz Bey. Hakkınızı helal edin

 

[Cengiz Demir]

Helal olsun. Sizde helal edin

Teşekkür ederim Cengiz Bey. Hakkınızı helal edin

 

[Erdal]

Helal olsun. Sizde helal edin

Helal olsun.