birleştirmede font ayarı

[bilvolk]

arkadaşlar, benim birleştirme formülü ile ilgili bir sorum olacak.
Örneğin A1= Excel A2=web A3=tr yazdım. B1 hücresine de formül yazarak bunları birleştirdim. Şu anda B1 de ''Excell web tr'' yazıyor. Ben B1 hücresindeki bu cümlenin içerisinden sadece 'Excell' yazısının kalın görünmesini , diğerlerinin normal olmasını istiyorum fakat olmuyor. Hücre biçimlendirmeye girdiğimde metnin tamamı kalın oluyor. Ayrı ayrı kalınlık veremiyorum. Bunun çözümünü verirseniz çok sevinirim.

 

[Ömer]

Merhaba,

Makro kullanmanız gerekir. Kodları module kopyalarak çalıştırın.

Sub Birleştir()
    [B1].ClearContents
    [B1].Font.Bold = False
    [B1] = [A1] & [A2] & [A3]
    [B1].Characters(1, Len([A1])).Font.Bold = True
End Sub

.

 

[bilvolk]

Ömer kardeşim ilgine teşekkürler. Verdiğin kodu uyguladım. Gerçekten de hücredeki kelimeyi kalın yazdı ancak bu seferde B1 hücresindeki formül silindi. Formül silinmeden bir çözümü varmı acaba, yada bendemi bir sorun var.

 

[Ömer]

B1 hücresindeki formül nedir? Bu işlemi formül ile yapamazsınız. Sorunuz bu değilse küçük bir örnek dosya ekleyerek detaylı açıklama yapınız.

.

 

[bilvolk]

Ekli dosyayı görüntüle Örnek.xlsiki farklı hücrede yazılı metni birleştirip başka bir hücreye yazdırma şeklinde.

 

[Ömer]

Bu istediğinizi yukardaki kod yapıyor.

 

[bilvolk]

örnek bi dosya gönderdim.

Ekli dosyayı görüntüle Örnek.xls

 

[Ömer]

Bu işlemi formül ile yapamazsınız makro kullanmanız gerekir.

Kodları module kopyalayın ve bir butona aktararar butonu çalıştırın.

Sub Birleştir()
    With [B1]
        .ClearContents
        .Font.Bold = False
        .Value = [A1] & " " & [A2]
        .Characters(1, Len([A1])).Font.Bold = True
    End With
End Sub

Eğer buton kullanmak istemiyorsanız aşağıdaki kodları sayfanın kod bölümüne kopyalayın. A1 yada A2 ye veri girince kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    With [B1]
        .ClearContents
        .Font.Bold = False
        .Value = [A1] & " " & [A2]
        .Characters(1, Len([A1])).Font.Bold = True
    End With
End Sub

.

 

[bilvolk]

Ömer çok teşekkür ederim. Emeğine sağlık

 

[bilvolk]

Bu işlemi formül ile yapamazsınız makro kullanmanız gerekir.

Kodları module kopyalayın ve bir butona aktararar butonu çalıştırın.

Sub Birleştir()
    With [B1]
        .ClearContents
        .Font.Bold = False
        .Value = [A1] & " " & [A2]
        .Characters(1, Len([A1])).Font.Bold = True
    End With
End Sub

Eğer buton kullanmak istemiyorsanız aşağıdaki kodları sayfanın kod bölümüne kopyalayın. A1 yada A2 ye veri girince kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    With [B1]
        .ClearContents
        .Font.Bold = False
        .Value = [A1] & " " & [A2]
        .Characters(1, Len([A1])).Font.Bold = True
    End With
End Sub

.

Son bir isteğim daha olacak. Yukarıdaki kodlar 2 hücrenin birleştirilmesi ve ilk hücrenin kalın font olması ile ilgili. Şayet 3 hücreyi birleştirdiğimizi ve ilk iki hücrenin kalın font olmasını istesek nasıl bir kod gerekir.Örnek dosyayı gönderiyorum.şimdiden tşk.

Ekli dosyayı görüntüle Kopya Örnek(1).xls

 

[Ömer]

Son bir isteğim daha olacak. Yukarıdaki kodlar 2 hücrenin birleştirilmesi ve ilk hücrenin kalın font olması ile ilgili. Şayet 3 hücreyi birleştirdiğimizi ve ilk iki hücrenin kalın font olmasını istesek nasıl bir kod gerekir.Örnek dosyayı gönderiyorum.şimdiden tşk.

Bu şekilde deneyiniz..

Sub Birleştir()
    [B1].ClearContents
    [B1].Font.Bold = False
    [B1] = [A1] & " " & [A2] & " " & [A3]
    [B1].Characters(1, Len([A1] + [A2]) + 1).Font.Bold = True
End Sub

.

 

[bilvolk]

ömer çok çok teşekkürler. Allah razı olsun. Beni büyük bir yükten kurtardın.

 

[aliantep27]

Teşekkürler beni de büyük bir yükten kurtardınız.