Ana Hesapları Koyu Yazdırma

[NECATİAVCI]

Ekli dosyada ana hesapları satır olarak koyu yapmak istiyorum. Yarsımcı olursanız sevinirim.

 

[Ali]

Bir modül içerisine aşağıdaki kodları ekleyerek çalıştırın.

Sub boldyap()
For i = 2 To Cells(65536, 4).End(xlUp).Row
If Len(Cells(i, 1)) = 3 Then Cells(i, 2).Font.Bold = True
Next
End Sub

 

[metinozlu]

Veri süz ve fonksiyonla yapılmış çalışma ektedir.

 

[NECATİAVCI]

Teşekkür ederim. Sağolun

 

[NECATİAVCI]

Sayın Ali Bey yanlızca hesap isimlerini koyu yapıyor. Acaba bütün satırı koyu renk yapması mümkün mü

 

[ibrahim_44]

Sayın Ali beyin göndermiş olduğu kodları aşağıdaki ile değiştirerek deneyin

Sub boldyap()
For i = 2 To Cells(65536, 4).End(xlUp).Row
If Len(Cells(i, 1)) = 3 Then
Cells(i, 1).Font.Bold = True
Cells(i, 2).Font.Bold = True
Cells(i, 3).Font.Bold = True
Cells(i, 4).Font.Bold = True
Cells(i, 5).Font.Bold = True
Cells(i, 6).Font.Bold = True
End If

Next
End Sub

 

[Necdet]

Merhaba,

Koşullu Biçimlendirme ile yapılmış dosya ektedir.

Formül :

=UZUNLUK($A1)=3

 

[NECATİAVCI]

Teşekür Ederim. Herkesin eline Sağlık.

 

[ferrariboy]

Şuna da bir göz atabilirsin, en solda kalemler sütunu açtım. 3, 6, 10 ve 14 haneli hesap kodlarını filter aracılığıyla kullanarak, bunlara ilişkin satırlarda istediğiniz değişiklikleri yapabilirsiniz. (kalınlık, renk, font, italic vs..)