Veri İçerisinde İlk Satırı Kalın Yapma

[skylonely6]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar merhaba elimde alt+enter ile satır halinde yapılmış veriler mevcut. verilerim n sütununda yer alıyor , benim istediğim bu verinin ilk satırının kalın font olarak yapılması araştırma yaptım çok bir bilgi edinemedim nasıl yapabiliriz.

Örnek veri

Ürün Bilgileri
Boy : 20
Genişlik 10

 

[Ömer BARAN]

Telefondan yazıyorum, bilgisayarda değilim.
Mantık olarak şöyle düşünülebilir.
hücre yerine, Cells(satir, "N") veya Range("N", satir) gibi hücre adresini yazın.

kackarakter = Len(Split(hücre, Chr(10))(0))
hücre.Characters(Start:=1, Length:=kackarakter).Font.Bold = True

 

[PriveT]

Arkadaşlar merhaba elimde alt+enter ile satır halinde yapılmış veriler mevcut. verilerim n sütununda yer alıyor , benim istediğim bu verinin ilk satırının kalın font olarak yapılması araştırma yaptım çok bir bilgi edinemedim nasıl yapabiliriz.

Örnek veri

Ürün Bilgileri
Boy : 20
Genişlik 10

Merhaba,
Makrodan bilgim yok denecek kadar az. Hatam ve eksiğim olabilir.
Çalışma kitabınızın kod sayfasına aşağıdaki kodu yapıştırıp deneyin.

Bu kodu görmek için giriş yapmanız gerekmektedir (9 satır). Giriş Yap

 

[PriveT]

Bu da sayın @Ömer BARAN üstadımın cevabından faydalanarak, verdiğim kodun daha da kısaltılmış hali.

Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap

 

[skylonely6]

Telefondan yazıyorum, bilgisayarda değilim.
Mantık olarak şöyle düşünülebilir.
hücre yerine, Cells(satir, "N") veya Range("N", satir) gibi hücre adresini yazın.

kackarakter = Len(Split(hücre, Chr(10))(0))
hücre.Characters(Start:=1, Length:=kackarakter).Font.Bold = True

hocam teşekkür ederim elinize sağlık.

 

[skylonely6]

Bu da sayın @Ömer BARAN üstadımın cevabından faydalanarak, verdiğim kodun daha da kısaltılmış hali.

Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap

çok teşekkürler hocam sn @Ömer BARAN hocamın paylaştığı ve sizin de verdiğiniz çalışıyor ellerinize sağlık.