Hesap planı alt kırılımlarının makroyla seçilmesi

[assenucler]

Değerli üstatlarım;


Ekli dosyada açıkladığım gibi, mizanda hesap kodu XXX.XX (100.01, 102.01 vb) kırılımında olan tüm hesapların bulunduğu satırdaki tüm hücrelerin:

Kalın siyah, Calibri 10 punta ve altı çizili olması

makro ile nasıl yapılabilir?

Bu konuda yardımınızı rica ediyorum.

Sevgi ve saygılar.

 

[Ömer BARAN]

Merhaba Sayın ŞENÜÇLER.

Aşağıdaki kod'u kullanabilirsiniz.
(Kırmızı renklendirdiğim sütun adını değiştirerek uygulama sütunlarını değiştirebilirsiniz)
.

[B]Sub TDH_ALT_KIRILIMLAR()[/B]
For satır = 8 To Cells(Rows.Count, 1).End(3).Row
    If Len(Cells(satır, 1)) = 6 Then
        With Range("[B][SIZE="4"]A[/SIZE][/B]" & satır & ":[B][COLOR="Red"][SIZE="4"]F[/SIZE][/COLOR][/B]" & satır).Font
            [B].Name[/B] = "Calibri": [B].Color[/B] = vbBlack
            [B].Size[/B] = 10: [B].Bold[/B] = True: [B].Underline[/B] = True
        End With
    End If
Next
[B]End Sub[/B]

 

[assenucler]

Teşekkürler

Sayın Ömer BARAN,


Değerli üstadım, her zaman bizlerin yanımızdasınız. Sağ olun, var olun.

Her şey gönlünüzce olsun.

Selam, sevgi ve saygılar.

 

[Ömer BARAN]

Sayın Ömer BARAN,
Değerli üstadım, her zaman bizlerin yanımızdasınız. Sağ olun, var olun.
Her şey gönlünüzce olsun.
Selam, sevgi ve saygılar.

Önemli olan ihtiyacın görülmesi.
İyi çalışmalar dilerim.
.