Dolgulu hücrelerin dolgusunu kaldırma - dolgusuzları dolgulu yapmak

[ismail-34]

Değer Excel web ailesine selamlar saygılar.

Benim sorum b sütunundaki dolgulu/renkli hücreleri dolgusuza çevirme dolgusuz hücreleri ise dolgulu / renkli hale getirmekle ilgili..

kısaca tıklandığında b sütunundaki sonucun d sütunundaki örnekteki gibi olmasını istiyorum.

örnek ektedir..


şimdiden teşekkürlerimi bir borç bilirim.

 

[hamitcan]

Sub Renk()
    Dim arr()
    Dim arr2()
    For Each hcr In Range("b3:b" & [b65536].End(3).Row)
        If hcr.Interior.Color = vbYellow Then
        k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = hcr.Row
        End If
    Next
    For Each hcr In Range("b3:b" & [b65536].End(3).Row)
        If hcr.Interior.Color <> vbYellow Then
        t = t + 1
            ReDim Preserve arr2(1 To t)
            arr2(t) = hcr.Row
        End If
    Next
    For i = 1 To UBound(arr)
         Range("b" & arr(i)).Interior.ColorIndex = -4142
    Next
    For i = 1 To UBound(arr2)
         Range("b" & arr2(i)).Interior.Color = vbYellow
    Next
    End Sub

 

[ismail-34]

Sub Renk()
    Dim arr()
    Dim arr2()
    For Each hcr In Range("b3:b" & [b65536].End(3).Row)
        If hcr.Interior.Color = vbYellow Then
        k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = hcr.Row
        End If
    Next
    For Each hcr In Range("b3:b" & [b65536].End(3).Row)
        If hcr.Interior.Color <> vbYellow Then
        t = t + 1
            ReDim Preserve arr2(1 To t)
            arr2(t) = hcr.Row
        End If
    Next
    For i = 1 To UBound(arr)
         Range("b" & arr(i)).Interior.ColorIndex = -4142
    Next
    For i = 1 To UBound(arr2)
         Range("b" & arr2(i)).Interior.Color = vbYellow
    Next
    End Sub

Sanat Eseri olmuş Çok Değerli Hamitcan boşuna Uzman yazmıyormuş harbiden Sağolun varolun.Bu Ülkede Yapı Denetleyenlerde keşke sizin onda biriniz kadar bile olabilse

 

[hamitcan]

Teveccühünüz Sayın ismail-34. Bilgimiz dahilinde bir şeyler yapmaya çalışıyoruz. Önce tedbir sonra tevekkül. Önce işimizi düzgün yapalım sonra Allah'tan dileyelim.