• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Birleştirme yapılan verilerin renklendirilmesi

A

aliadanur

Altın Üye
Katılım
28 Ekim 2020
Mesajlar
70
Excel Vers. ve Dili
Excel 2007
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.
 
Merhaba,
Deneyiniz...
Kod: 
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
 
ÖmerBey' Alıntı:
Merhaba,
Deneyiniz...
Kod: 
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
Genişletmek için tıkla ...
Ü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' Alıntı:
Ü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.
Genişletmek için tıkla ...
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
 
İ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.
 
ÖmerBey' Alıntı:
Merhaba,
Deneyiniz...
Kod: 
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
Genişletmek için tıkla ...
Ü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' Alıntı:
Bunun için nasıl bir ilave istediğinizi anlayamadım.
Genişletmek için tıkla ...
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.
 
Biraz daha düzenlenebilir hale getirmeye çalıştım, deneyiniz...
Not: Hücrede aynı veriden birden fazla olursa sadece ilki renklenir.
Kod: 
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
 
ÖmerBey' Alıntı:
Biraz daha düzenlenebilir hale getirmeye çalıştım, deneyiniz...
Not: Hücrede aynı veriden birden fazla olursa sadece ilki renklenir.
Kod: 
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
Genişletmek için tıkla ...
Ü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
 
Rica ederim,
İyi çalışmalar diliyorum...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst