birleştir formülü uygulanan hücrede başka hücre veya sayfalardan gelen verinin farklı font veya renk ile yazılması işlemi

[shanex]

birleştir formülü uygulanan hücrede başka hücre veya sayfalardan gelen verinin farklı font veya renk ile yazılması işlemini nasıl yapabilirim. Örnek dosya 7 numaralı çalışma sayfasında A4 hücresi A16 hücresi A19 hücresi bunlara örnek olarak verilebilir. Çözüm önerileriniz için şimdiden teşekkür ederim.

 

[HücrelereFısıldayanAdam]

Bunu dolaylı bir yoldan çözebilirsiniz. Örneğinizde doldurulan alanları gözsle kontrol etmek istiyorsunuz sanırım.Bu hücreler belli, yalnızca bu hücrelerin biçimlerini değiştiren bir makro ekleyebilirsiniz.

 

[shanex]

Bunu dolaylı bir yoldan çözebilirsiniz. Örneğinizde doldurulan alanları gözsle kontrol etmek istiyorsunuz sanırım.Bu hücreler belli, yalnızca bu hücrelerin biçimlerini değiştiren bir makro ekleyebilirsiniz.

cevap için teşekkürler ?
nasıl yazılacağı konusunda yol gösterebilir misiniz. sıfır dan başlıyorum VBA işine ?

 

[HücrelereFısıldayanAdam]

Bu örnek makronun kayıtlı olduğu excel kitabında. 1,2 ve 3 isimli sayfalar için, girilen hürelerin fontunu 14 arial ve kırmızı yapıyor, sayfa isimleri ve hücre adlarını değiştirip uyarlarsınız.

Option Explicit

Sub HUCRE_BICIMLENDIRME()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("1")
    Set ws2 = ThisWorkbook.Worksheets("2")
    Set ws3 = ThisWorkbook.Worksheets("3")
   
    ' 1 isimli sayfa için A1 ve A2 hücrelerini formatla
    Call ApplyFormatting(ws1.Range("A1:A2"))
   
    ' 2 isimli sayfa için A2 ve A3 hücrelerini formatla
    Call ApplyFormatting(ws2.Range("A2:A3"))
   
    ' 3 isimli sayfa için için A4, A16 ve A19 hücrelerini formatla
    Call ApplyFormatting(ws3.Range("A4"))
    Call ApplyFormatting(ws3.Range("A16"))
    Call ApplyFormatting(ws3.Range("A19"))
End Sub

'RGB(255, 0, 0): kırmızı renk oluyor
Sub ApplyFormatting(rng As Range)
    With rng.Font
        .Name = "Arial"
        .Size = 14
        .Bold = True
        .Color = RGB(255, 0, 0)
    End With
End Sub

 

[shanex]

Bu örnek makronun kayıtlı olduğu excel kitabında. 1,2 ve 3 isimli sayfalar için, girilen hürelerin fontunu 14 arial ve kırmızı yapıyor, sayfa isimleri ve hücre adlarını değiştirip uyarlarsınız.

Option Explicit

Sub HUCRE_BICIMLENDIRME()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("1")
    Set ws2 = ThisWorkbook.Worksheets("2")
    Set ws3 = ThisWorkbook.Worksheets("3")
  
    ' 1 isimli sayfa için A1 ve A2 hücrelerini formatla
    Call ApplyFormatting(ws1.Range("A1:A2"))
  
    ' 2 isimli sayfa için A2 ve A3 hücrelerini formatla
    Call ApplyFormatting(ws2.Range("A2:A3"))
  
    ' 3 isimli sayfa için için A4, A16 ve A19 hücrelerini formatla
    Call ApplyFormatting(ws3.Range("A4"))
    Call ApplyFormatting(ws3.Range("A16"))
    Call ApplyFormatting(ws3.Range("A19"))
End Sub

'RGB(255, 0, 0): kırmızı renk oluyor
Sub ApplyFormatting(rng As Range)
    With rng.Font
        .Name = "Arial"
        .Size = 14
        .Bold = True
        .Color = RGB(255, 0, 0)
    End With
End Sub

mesela
7-Sözleşme-2 sayfasında A4 hücresindeki formülde yer alan =" Bu sözleşme bir tarafla " &'BİLGİ GİRİŞİ'!K50&" ''bundan sonra 'İDARE' olarak anılacaktır'' ile diğer tarafla " &'BİLGİ GİRİŞİ'!M37&" ''bundan sonra 'YÜKLENİCİ' olarak anılacaktır'' arasında aşağıda yazılı şartlar dahilinde akdedilmiştir" şeklinde bir formül var.
Burada kırmızı olarak yazılan yerlerin font, renk, koyuluk gibi cümlenin geri kalanından farklı olmasını istiyorum. buradan yola çıkarak sayfanın geri kalanında yine başka sayfalardan bilgi çeken kısımları değiştirmeye çalışacağım.