Birleştirme yapılan verilerin renklendirilmesi

[aliadanur]

Merhabalar; Userform ile yaptığım bir çalışmada örnek olarak Sayfa 5 (A13) hücresi içindeki bir metin aralarına veri birleştirmesi yapmak istiyorum. İlgili kodu şu şekilde yazıyorum.

Sheets("Sayfa5").Range("A13").Value = Sheets("sayfa2").Range("A4") & " ile Yüklenici " & Sheets("sayfa5").Range("E4") & " firması arasında imzalanan sözleşme kapsamında…….”

Burada birleştirme yaptığım verilerin metin içinde renkli görünmesini istiyorum. Bu durumu nasıl sağlayabilirim. Yardımlarınız için şimdieden teşekkürler.

 

[muhasebeciyiz]

Formülle renklendirme işlemi yapamazsınız. Makro ile yapılabilir.

 

[aliadanur]

Formülle renklendirme işlemi yapamazsınız. Makro ile yapılabilir.

Verdiğiniz bilgi için çok teşekkür ederim sağ olun.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Dim m1 As String, m2 As String
m1 = Sheets("sayfa2").Range("A4")
m2 = Sheets("sayfa5").Range("E4")
With Sheets("Sayfa5").Range("A13")
    .Font.Color = vbBlack
    .Value = m1 & " ile Yüklenici " & m2 & " firması arasında imzalanan sözleşme kapsamında…….”"
    .Characters(1, Len(m1)).Font.Color = vbRed
    .Characters(Len(m1 & " ile Yüklenici ") + 1, Len(m2)).Font.Color = vbRed
End With

 

[aliadanur]

Merhaba,
Deneyiniz...

Dim m1 As String, m2 As String
m1 = Sheets("sayfa2").Range("A4")
m2 = Sheets("sayfa5").Range("E4")
With Sheets("Sayfa5").Range("A13")
    .Font.Color = vbBlack
    .Value = m1 & " ile Yüklenici " & m2 & " firması arasında imzalanan sözleşme kapsamında…….”"
    .Characters(1, Len(m1)).Font.Color = vbRed
    .Characters(Len(m1 & " ile Yüklenici ") + 1, Len(m2)).Font.Color = vbRed
End With

Üstadım bir kaç deneme yaptım başaramadım. Sanırım nereye yazacağımı bilemedim. İlginiz için ne kadar teşekkür etsem azdır.

 

[aliadanur]

Üstadım bir kaç deneme yaptım başaramadım. Sanırım nereye yazacağımı bilemedim. İlginiz için ne kadar teşekkür etsem azdır.

Initialize' ye yazdım. Ancak Sayfa 5 (A13) hücresini tamamen kırmızıya döndürdü. Ben ise Sayfa5 (A13) hücresi içerisindeki metin içine birleştirme ile girdiğim verilerin renkli olmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim

 

[ÖmerBey]

İlk mesajda paylaştığınız kod nerede yazıyorsa orada kullanınız. İlk mesajdaki kodu silip yerine 4. mesajda paylaştığım kodu kullanınız.

 

[aliadanur]

Merhaba,
Deneyiniz...

Dim m1 As String, m2 As String
m1 = Sheets("sayfa2").Range("A4")
m2 = Sheets("sayfa5").Range("E4")
With Sheets("Sayfa5").Range("A13")
    .Font.Color = vbBlack
    .Value = m1 & " ile Yüklenici " & m2 & " firması arasında imzalanan sözleşme kapsamında…….”"
    .Characters(1, Len(m1)).Font.Color = vbRed
    .Characters(Len(m1 & " ile Yüklenici ") + 1, Len(m2)).Font.Color = vbRed
End With

Üstadım ne kadar teşekkür etsem azdır. Tam istediğim şekilde oldu. Diğer birleştirmeleri kendim yapmaya gayret ediyorum. Verdiğiniz formüle ek olarak Sayfa 5 E(12) için ilave yaparsanız buradan hareketle diğerlerini ben halledebilirim diye düşünüyorum. Tekrardan teşekkür ederim. Allah ne muradınız varsa versin.

 

[ÖmerBey]

Sayfa 5 E(12) için ilave yaparsanız

Bunun için nasıl bir ilave istediğinizi anlayamadım.

 

[aliadanur]

Bunun için nasıl bir ilave istediğinizi anlayamadım.

Sheets("Sayfa5").Range("A13").Value = Sheets("sayfa2").Range("A4") & " ile Yüklenici " & Sheets("sayfa5").Range("E4") & " firması arasında imzalanan sözleşme kapsamında gerçekleştirilen iş için düzenlenen KABUL TEKLİF BELGESİ'nden ön incelemenin yapıldığı anlaşılmış olup;"& Sheets("sayfa5").Range("E12") şeklinde güncellem yaparsanız çok sevinirim.

4.ncü mesajdaki formüle Sheets("sayfa5").Range("E12") nin de ilave edilmesini ve renklendirilmesini talep etmekteyim üstadım.

 

[ÖmerBey]

Biraz daha düzenlenebilir hale getirmeye çalıştım, deneyiniz...
Not: Hücrede aynı veriden birden fazla olursa sadece ilki renklenir.

m1 = Sheets("sayfa2").Range("A4")
m2 = " ile Yüklenici "
m3 = Sheets("sayfa5").Range("E4")
m4 = " firması arasında imzalanan sözleşme kapsamında gerçekleştirilen iş için düzenlenen KABUL TEKLİF BELGESİ'nden ön incelemenin yapıldığı anlaşılmış olup;"
m5 = Sheets("sayfa5").Range("E12")
rnk = Array(m1, m3, m5) 'Renklendirilecek değişkenler
With Sheets("Sayfa5").Range("A13")
    .Font.Color = vbBlack
    .Value = m1 & m2 & m3 & m4 & m5
    For Each r In rnk
        If InStr(1, .Value, r) > 0 Then .Characters(InStr(1, .Value, r), Len(r)).Font.Color = vbRed
    Next
End With

 

[aliadanur]

Biraz daha düzenlenebilir hale getirmeye çalıştım, deneyiniz...
Not: Hücrede aynı veriden birden fazla olursa sadece ilki renklenir.

m1 = Sheets("sayfa2").Range("A4")
m2 = " ile Yüklenici "
m3 = Sheets("sayfa5").Range("E4")
m4 = " firması arasında imzalanan sözleşme kapsamında gerçekleştirilen iş için düzenlenen KABUL TEKLİF BELGESİ'nden ön incelemenin yapıldığı anlaşılmış olup;"
m5 = Sheets("sayfa5").Range("E12")
rnk = Array(m1, m3, m5) 'Renklendirilecek değişkenler
With Sheets("Sayfa5").Range("A13")
    .Font.Color = vbBlack
    .Value = m1 & m2 & m3 & m4 & m5
    For Each r In rnk
        If InStr(1, .Value, r) > 0 Then .Characters(InStr(1, .Value, r), Len(r)).Font.Color = vbRed
    Next
End With

Üstadım Allah ne muradınız varsa versin ayağınıza taş değdirmesin. Bundan sonraki birleştirmeleri ben ilave etmeye gayret edeceğim. Çok ama çok teşekkürler

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...