Soru Birleştirilen hücrede bir veriyi FARKLI renk ile yazmak..

[hsyn17]

Merhaba Sayın üstat,
"BİRLEŞTİR" ile oluşturulan bir hücrede bir hücreden gelen veriyi farklı renk ile belirtmek istiyoruz, bu mümkün müdür?


https://dosya.co/rp5s6qmc6cfy/Kitap1.xlsx.html

 

[Ömer]

Merhaba,

Birleştirme işlemini formül ile değil de makro ile yapılırsa istediğiniz olur. Makro sizin için uygun mu?

 

[hsyn17]

Merhaba,

Birleştirme işlemini formül ile değil de makro ile yapılırsa istediğiniz olur. Makro sizin için uygun mu?

olur tabi Ömer hocam deneyelim ve teşekkür ederim

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    
    Dim i As Long, a, b
    
    Application.ScreenUpdating = False
    Range("D:D").ClearContents
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        a = Cells(i, "A")
        b = Cells(i, "B")
        Cells(i, "D") = a & "/" & b
        Cells(i, "D").Characters(Len(a) + 2, Len(b)).Font.ColorIndex = 3
    Next i
    
End Sub

 

[hsyn17]

Merhaba,

Deneyiniz.

Sub deneme()
   
    Dim i As Long, a, b
   
    Application.ScreenUpdating = False
    Range("D:D").ClearContents
   
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        a = Cells(i, "A")
        b = Cells(i, "B")
        Cells(i, "D") = a & "/" & b
        Cells(i, "D").Characters(Len(a) + 2, Len(b)).Font.ColorIndex = 3
    Next i
   
End Sub

ÇOK Teşekkür Ederim Ömer hocam emeğinize sağlık...

 

[hsyn17]

ÇOK Teşekkür Ederim Ömer hocam emeğinize sağlık...

Kusura bakmayın Ömer hocam sizi uğraştırdım ve emeğinize sağlık ama bu linkte gönderdiğim tabloda yapabilir miyiz.. çook teşekür

https://dosya.co/j5fa4she7vry/Kitap1.xlsm.html