Birleştir komutu uygulanan hücre içindeki değerin puntosunu değiştirme

[nongeyikm]

Merhaba,

Birleştir komutu uygulanan hücre içinde font uygulamak istiyorum. Kısaca aynı hücre içinde birleştirilen ikinci değerin yazı puntosunu 8 yapmak istiyorum.

=BİRLEŞTİR('PC-YAZICI-MONİTÖR VS'!B48;" ";'PC-YAZICI-MONİTÖR VS'!F48)
B48 den aldığım değerin 12,
F48 den aldığım değerin 8 puntosu ile görünmesini istiyorum.

Formül içinde mümkün müdür ? Makro mu gerekir?

 

[parametre]

Selamlar aynı hucre içerisinde kodlar yada formulle farklı renklendirme ve farklı biçimlendirme yapılamaz diye biliyorum.

 

[nongeyikm]

Formül ile olmuyor ise bana makro yapabilirmisiniz.

Teşekkür ederim.

 

[Korhan Ayhan]

Benzer konular...

Hücre içerisindeki ilk iki kelimeyi italik yapmak

Merhaba, Bir hücre içerisindeki ilk iki kelimeyi italik yapmak istiyorum. örneğin ; A1 hücresinde yazan " Dolichospermum spiroides (Klebhan) Wacklin, L.Hoffmann & Komárek" cümlesinin ilk iki kelimesini (Dolichospermum spiroides) italik yapmak istiyorum. Yardımcı olabilir misiniz ?

www.excel.web.tr

Soru - bir metnin başı ve sonundaki karakterlerinin fontunu değiştirmek.

https://dosya.co/38bb8lllmo5g/Yeni_Microsoft_Excel_Çalışma_Sayfası.xlsx.html örnek dosyadaki metnin en üsteki isim kısmı değişken diğer yazılar sabit değişmeyecek ben bunun fontunu nasıl ayarlayabilirim yardım eder misiniz? yani ismi değişken olan böyle bir metin yapmak istiyorum ve bu metnin...

www.excel.web.tr

 

[nongeyikm]

Sn. Korhan Bey,

Verdiğiniz kodda hücre içindeki boşluk sonrası 2. kelimeye size 8 i uygulayamadım. 1. kelime size ı değişmemeli veya 12 de olabilir. yardımcı olurmusunuz. A B C D sütünlarında bu işlemi uygulayacağım.

Sub TEST()
Dim Veri As Variant
For x = 1 To 987
Veri = Split(Range("A" & x).Value, " ")
Range("A" & x).Font.Italic = False
Range("A" & x).Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
Next x
End Sub

 

[Korhan Ayhan]

Örnek dosyanızı paylaşınız.

 

[nongeyikm]

Korhan Bey,

Dosya ektedir.

 

[Korhan Ayhan]

Bütün hücrelerinize kullandığınız formülleri uyguladıktan sonra aşağıdaki kodu deneyiniz.

Option Explicit

Sub Font_Ayarla()
    Dim S1 As Worksheet, Veri As Variant, X As Long, Son As Long, Alan As Range
    
    Set S1 = Sheets("Etiket")
    
    Son = S1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    For Each Alan In S1.Range("A1:D" & Son)
        If Alan <> "" Then
            Alan.Value = Alan.Value
            Alan.Replace "              ", Chr(10)
            Alan.Font.Size = 12
            Alan.Font.Bold = True
            Alan.Font.Name = "Calibri"
            Veri = Split(Alan.Value, Chr(10))
            Alan.Characters(Len(Veri(0)) + 1, Len(Veri(1)) + 1).Font.Size = 8
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[nongeyikm]

Korhan Bey çok teşekkür ederim. İstediğim gibi oldu. Beyninize sağlık

 

[muygun]

Merhaba;
Syn. Korhan Ayhan soruyu çözümlemiş ama hazırladığım örnek alternatif olsun.
Deneyin.
İyi çalışmalar.

 

[nongeyikm]

Harikasınız. Teşekkür ederim.
Bir de aşağıdaki link e bakabilseniz ne iyi olacaktı.

Saat ücretli bordro hesaplama

Gününüz aydın olsun, Saat ücretli netten brüte/brütten nete bordro hesaplama ilgili sitede bir çalışma göremedim. Var ise bana linkini verebilir misiniz? İstemiş olduğum çalışma örneği ektedir. Yardımlarınız için şimdiden teşekkür ederim.

www.excel.web.tr

 

[iplikci_80]

Korhan Bey merhabalar. Cevap8 deki kodu kendim başaramadığım için EK'te ki çalışmanın G27 hücresine uygulanması hususunda yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

G27 hücresinde ne olmasını istiyorsunuz?

 

[iplikci_80]

Sizin bu konuya vermiş olduğunuz cevap8 deki kodu EK'te ki çalışmanın G27 hücresine uygulanması hususunda yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Anlaşamadık...

Verinizin hangi bölümü kaç punto olacak?
Kalın mı, italik mi olacak?

 

[iplikci_80]

G27 hücresinin ilk bölümü (ALİ VELİ) 13 ve bold, ikinci bölümünün (Proje Müdürü) fontu 10 ve Bold.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Font_Ayarla()
    Dim Veri As Variant
    With Range("G27")
        If .Value <> "" Then
            .Value = .Value
            .Font.Size = 13
            .Font.Bold = True
            .Font.Name = "Calibri"
            If InStr(1, .Value, "(") > 0 Then
                Veri = Split(.Value, "(")
                .Characters(Len(Veri(0)) + 1, Len(Veri(1)) + 1).Font.Size = 10
            End If
        End If
    End With
End Sub

 

[iplikci_80]

Çok teşekkür ederim.

 

[iplikci_80]

Korhan Bey cevap17 verdiğiniz kodun mevcut isim değiştikçe (Kodun çalışması için her seferinde F5 yapmadan) çalışması hususunda yardımınızı rica ediyorum. Yani ALİ VELİ (PROJE MÜDÜRÜ)'ü iken VELİ ALİ (MUHASEBECİ) olunca.

 

[Korhan Ayhan]

Bahsettiğiniz değişiklik elle mi olacak?