koşullu biçimlendirme

[afroturqo]

Sayın üyeler , ekli dosyada arz ettiğim üzere , yardımlarınızı beklemekteyim.
Tabloda satırdaki son hücreye , o satıra ait renkli hücrenin dolgu rengi ve hücrenin içindeki yazının başka formatta son hücreye aktarılmasınısağlayabiliriz. formül ve koşulu biçimlendirme ile olursa harika olur ama makro vba gibi yardımcı programlarla yazılacaksa kaderime razı olurum. yardımlarınız için şimdiden teşekkür ederim.
Bu arada renkli hücreler deneme dosyamda değil ama orjinalde koşullu biçimlendirme ile renklendirildi. Sorun çıkartır mı bilemiyorum.

 

[hamitcan]

Sub RenkVeKodVer()
For j = 1 To 6
For i = 2 To [a65536].End(3).Row
    If Cells(i, j).Interior.ColorIndex <> -4142 Then
    Cells(i, "g").Interior.Color = Cells(i, j).Interior.Color
    Select Case Cells(i, j)
        Case "Hold": Cells(i, "g") = "H"
        Case "Approved": Cells(i, "g") = "A"
        Case "Approved with comments": Cells(i, "g") = "A/C"
        Case "Rejected": Cells(i, "g") = "R"
        Case "Withdrawn": Cells(i, "g") = "W"
        Case "Process": Cells(i, "g") = "P"
        Case Else: Cells(i, "g") = ""
    End Select
    End If
Next
Next
End Sub

 

[afroturqo]

Çok teşekkür ederim Hamitcan beyefendi. iyi günler dilerim.