Tırnak içinde olanlar kalın yazsın.

[nackifer]

Kolay gelsin arkadaşlar.
Excel sayfasında tırnak içinde olan yazıların kalın yazmasını yani dikkat çekmesini istiyorum bunu bir makro ile yapabilirmiyiz ?

Örn; EKSTRE 2 ADET PEMBE, 2 ADET KIRMIZI, 2 ADET LACİVERT KIRLENT YAPILACAK. "İKİLİ İLE ÜÇLÜ YER DEĞİŞTİRECEK."

Yukarıdaki gibi olsun istiyorum sanırım pek denenmemiş birşey olsa gerek google bile sonuç vermedi.

 

[Huseyinkis]

Ekteki dosyayı incelermisiniz.

 

[nackifer]

Azizim denedim fakat beceremedim sanırım. Biraz excel cahiliyim ben.
Ekteki dosyaya uygulamak istiyorum ben bunu.
Alttaki ÜRETİM ve KONFEKSİYON sayfalarına eklemek istiyorum bu özelliği.

 

[Huseyinkis]

Ekteki kodları denermisiniz. Dosyanızda detay kısmında " işareti için V1 hücresini kullandım.

Sub Kalınyaz()
For i = 4 To Cells(Rows.Count, 5).End(3).Row
bas = 0
bit = 0
aranan = Cells(1, 22).Value

For x1 = 1 To Len(Cells(i, 4).Value)
If Mid(Cells(i, 4).Value, x1, 1) = aranan And bas = 0 Then
bas = x1
ElseIf Mid(Cells(i, 4).Value, x1, 1) = aranan And bas > 0 Then
Cells(i, 4).Characters(Start:=bas, Length:=bit + 1).Font.FontStyle = "Kalın"
bas = 0
bit = 0
ElseIf bas <> 0 Then
bit = bit + 1
End If

Next x1
Next i
End Sub

 

[ikikan]

Sayın Huseyinkis Acab bu kodu "Chr(10)" dan sonraki yazıları italik ve 8 punto yaz şeklinde yapabilirmiyiz?