Font.Bold Hatası

Katılım
27 Mayıs 2017
Mesajlar
185
Excel Vers. ve Dili
2010 xls
2016 xls
Altın Üyelik Bitiş Tarihi
13.06.2018
Merhaba arkadaşlar elimde ki kodla a sayfasından b sayfasına veri çektiğimde kalın yazı varsa pasif, yazı normalse aktif yazıyor fakat a sayfasına kalın yazması için koşullu biçim verdikten sonra b sayfasına gelen kalın yazıyı formül algılamıyor çünkü yazı kalın da olsa (K) aktif olarak görünmüyor ne yapmalıyım şimdiden teşekkürler
Kod:
Private sub wsheet_selectionchane(byval target as range)
Dim son
Dim i
Son = cells(rows.count,1)end(3).row
For i = 3 to son
If celss(i,2).font.bold=true then
.....
End sub
*** Yanılmıyorsam buraya ek bir kod yazmalıyız veya font kısmında değişiklik yapmak gerekiyor. Yardımlarınızı bekliyorum şimdiden teşekkürler
 
Katılım
27 Mayıs 2017
Mesajlar
185
Excel Vers. ve Dili
2010 xls
2016 xls
Altın Üyelik Bitiş Tarihi
13.06.2018
Merhaba arkadaşlar elimde ki kodla a sayfasından b sayfasına veri çektiğimde kalın yazı varsa pasif, yazı normalse aktif yazıyor fakat a sayfasına kalın yazması için koşullu biçim verdikten sonra b sayfasına gelen kalın yazıyı formül algılamıyor çünkü yazı kalın da olsa (K) aktif olarak görünmüyor ne yapmalıyım şimdiden teşekkürler
Kod:
Private sub wsheet_selectionchane(byval target as range)
Dim son
Dim i
Son = cells(rows.count,1)end(3).row
For i = 3 to son
If celss(i,2).font.bold=true then
.....
End sub
*** Yanılmıyorsam buraya ek bir kod yazmalıyız veya font kısmında değişiklik yapmak gerekiyor. Yardımlarınızı bekliyorum şimdiden teşekkürler
Telefondan yazıyorum umarım derdimi anlatabilmişimdir :)
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,160
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Siz sorguda hücrenin fiziksel olarak kalın font olmasını sorgulatmışsınız.

Koşullu biçimlendirme ile hücre kalın font oluyorsa ilgili koşulu sorgunuzda kullanmanız gerekir.
 
Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Kodu
Kod:
If celss(i, 2).Font.Bold = True Then
aşağıdaki şekilde yazarak deneyiniz.
Kod:
If celss(i, 2).DisplayFormat.Font.Bold = True Then
 
Üst