• DİKKAT

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

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

N

nongeyikm

Katılım
7 Kasım 2005
Mesajlar
505
Excel Vers. ve Dili
Office 365 TR-64
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?
 
Selamlar aynı hucre içerisinde kodlar yada formulle farklı renklendirme ve farklı biçimlendirme yapılamaz diye biliyorum.
 
Formül ile olmuyor ise bana makro yapabilirmisiniz.

Teşekkür ederim.
 
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 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 www.excel.web.tr
 
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
 
Örnek dosyanızı paylaşınız.
 
Bütün hücrelerinize kullandığınız formülleri uyguladıktan sonra aşağıdaki kodu deneyiniz.

Kod: 
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
 
Korhan Bey çok teşekkür ederim. İstediğim gibi oldu. Beyninize sağlık
 
Merhaba;
Syn. Korhan Ayhan soruyu çözümlemiş ama hazırladığım örnek alternatif olsun.
Deneyin.
İyi çalışmalar.
 

Ekli dosyalar

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 www.excel.web.tr
 
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.
 

Ekli dosyalar

Son düzenleme:
G27 hücresinde ne olmasını istiyorsunuz?
 
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.
 

Ekli dosyalar

Anlaşamadık...

Verinizin hangi bölümü kaç punto olacak?
Kalın mı, italik mi olacak?
 
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.
 
Deneyiniz.

C++: 
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
 
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.
 
Bahsettiğiniz değişiklik elle mi olacak?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst