Font.Bold Hatası

[excelience]

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

 

[excelience]

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]

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.

 

[çıtır]

Kodu

If celss(i, 2).Font.Bold = True Then

aşağıdaki şekilde yazarak deneyiniz.

If celss(i, 2).DisplayFormat.Font.Bold = True Then

 

[excelience]

Kodu

If celss(i, 2).Font.Bold = True Then

aşağıdaki şekilde yazarak deneyiniz.

If celss(i, 2).DisplayFormat.Font.Bold = True Then

Hocam çok teşekkür ederim

 

[çıtır]

Hocam çok teşekkür ederim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.