Formülü Kısmen Koyu Yapmak

[iplikci_80]

EK'teki örnekte B2, C2, D3 hücrelerini birleştirerek G2 hücresini elde ediyoruz. Yapmak istediğin şey G2 hücresinin bir kısmını G4 hücresindeki gibi koyu yazmak istiyorum bu hususta yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Formülle bu işlem olmaz. Makro kullanmanız gerekir.

Makro ile istenen hücreler birleştirilir ve bir kısmı koyu-renkli-altı çizgili-italik-farklı punto yapılabilir.

 

[iplikci_80]

Korhan Bey ilginize teşekkür ederim Orjinal belge EK'te rica etsen yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız. F16 ve I16 hücrelerini elle değiştirdiğinizde kod sonuç verecektir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F16,I16")) Is Nothing Then Exit Sub
    Range("F15") = ""
    If Range("F16") <> "" And Range("I16") <> "" Then
        With Range("F15")
            .Value = Range("F16") & Range("I16")
            .Characters(Len(Range("F16")) + 1, Len(Range("I16"))).Font.Bold = True
        End With
    End If
End Sub

 

[iplikci_80]

Korhan Bey kodu uyguladım fakat EK'teki gibi oldu, rica etsem bir kontrol edebilirmisiniz lütfen.

 

[Tevfik_Kursun]

Merhaba,
İstediğiniz bu mudur?
İyi çalışmalar

 

[iplikci_80]

Evet budur. Yalnız, sarı boyalı hücrede formül olacak .

 

[Tevfik_Kursun]

Merhaba,
Sanırım deneme yapmadan cevap verdiniz. Önce deneme yapın, sonra bakalım.
İyi çalışmalar

 

[iplikci_80]

Deneme yaptım, kodları işlem gören hücre F15 değilde F16 olursa olacak bu hususta yardımlarınızı rica ediyorum.

 

[Tevfik_Kursun]

Buyrun,
kolay gelsin

 

[iplikci_80]

Tevfik Bey ilginize teşekkür ederim.

 

[Tevfik_Kursun]

Rica ederim, dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar