Textbox taki metini kalin olarak kayit etme

[sbkstk]

iyi gunler

textboxa yazilan bir metini kalin yada italik olarak farkli bir sekilde istege bagli olarak nasil kayit edebiliriz yardimci olabilirmisiniz bu konuda

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
    Cells(1, 1).Value = TextBox1.Text
    Cells(1, 1).Font.Bold = True 'Kalın
    Cells(1, 1).Font.Italic = True 'İtalik
End Sub

 

[sbkstk]

sayin dede cevabiniz icin tesekkur ederim kismen aciklamaniz kafi geldi fakat tam olarak dosyaya uyarlayamadim

ekteki dosyaya uyarliyabilirmisiniz acaba

 

[sbkstk]

sorunu asagidaki gibi cozdum yardimlariniz icin tesekkurler


If c1 = True Then

Dim sat As Long


sat = Sheets("metrajsay").Cells(65536, "b").End(xlUp).Row + 1
Sheets("metrajsay").Cells(sat, "b").Value = TextBox1.Value
Sheets("metrajsay").Cells(sat, "b").Font.Bold = True
Else
sat = Sheets("metrajsay").Cells(65536, "b").End(xlUp).Row + 1
Sheets("metrajsay").Cells(sat, "b").Value = TextBox1.Value
End If

 

[dEdE]

Merhaba,
Sorunun çözüldüğüne sevindim.
Örnek dosyanızda kalın yazı için OptionButton kullanmışsınız. Bunun yerine CheckBox kullanmanızı öneririm.
Bir üstteki mesajda belirttiğiniz kodu, kısalttım. Dener misiniz?

Dim sat As Long
    sat = Sheets("metrajsay").Cells(65536, "b").End(xlUp).Row + 1
    Sheets("metrajsay").Cells(sat, "b").Value = TextBox1.Value
    If c1 = True Then Sheets("metrajsay").Cells(sat, "b").Font.Bold = True

 

[sbkstk]

tesekurler dede

bir sorum daha olacak

ayni sekilde kayit sirasinda en sona kayit yaparken hucreye kenarlik nasil verebiliriz

 

[dEdE]

Merhaba,
Yukarıdaki kodda " If c1 = True....." satırından üstüne aşağıdaki kodu ekleyiniz.

 Sheets("metrajsay").Cells(sat, "b").Borders.LineStyle = 1

Hoşçakalın.

 

[İsmailCen]

Arkadaşlar Merhaba,

Hücrenin tamamını Kalın ve Normal yapabiliyoruz, benim yapmak istediğim ise;

Üretim.Cells(k, 11) = Format(Numuneler.Cells(SatırNo, 84), "0;-0;-") & vbCrLf & Format(Numuneler.Cells(SatırNo, 36), "0;-0;-")

Örnek kodda olduğu gibi, bir hücreye iki ayrı hücreden veri giriyorum, ilk hücreden aldığım veriyi Normal, ikinci hücreden aldığım veriyi Kalın (Bold) girmek istiyorum. Bunu yapmanın bir yolu var mı?

Teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Üretim.Cells(k, 11) = Format(Numuneler.Cells(SatırNo, 84), "0;-0;-") & _
vbCrLf & Format(Numuneler.Cells(SatırNo, 36), "0;-0;-")
q = 1
x = Len(Cells(SatırNo, 36).Value)
p = WorksheetFunction.Search(Cells(SatırNo, 36), Üretim.Cells(k, 11), q)
Üretim.Cells(k, 11).Characters(p, x).Font.Bold = True