Zemin rengi ve yazı tipi

[magnesia]

s1.Range("A" & sat & ":B" & sat).Merge
s1.Range("A" & sat & ":B" & sat) = "TOPLAM"
s1.Range("A" & sat).HorizontalAlignment = xlCenter

Arkadaşlar selam.
Yukarıdaki kodlar, kullandığım dosyadaki kodların bir parçası.
Bu kodlarla, verilerin bulunduğu son satıra "TOPLAM" yazıp, satırdaki verileri ortalıyor.
İsteğim şu :
Bu TOPLAM yazısının bulunduğu hücre rengini kırmızı, yazı tipinin KALIN ve yazı renginin de BEYAZ olmasını nasıl sağlayabilirim?
Şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

    s1.Range("A" & sat & ":B" & sat).Merge
    s1.Range("A" & sat & ":B" & sat) = "TOPLAM"
    With s1.Range("A" & sat)
        .HorizontalAlignment = xlCenter
        .Interior.Color = 255
        .Font .ThemeColor = xlThemeColorDark1
        .Font.Bold = True
    End With

 

[magnesia]

Sayın dalgalikur...
Öncelikle ilginize ve emeğinize teşekkür ederim.
Geç yanıt verdiğim için özür dilerim ancak yanıtınıza şimdi bakabildim.
Kodları uyguladım fakat verilen hata mesajının ekran görüntüsünü yolluyorum.
Tekrar teşekkür ederim.

 

[Muzaffer Ali]

.Font(buradaki boşluğu silin).ThemeColor = xlThemeColorDark1

 

[magnesia]

İşlem tamam.
Teşekkürler..

 

[magnesia]

Sayın dalgalikur.
TOPLAM satırı A ve B sütunlarını birleştiriyor. C sütununda da toplam rakamı veriyor. Bu C sütununu kırmızı zemin ve kalın beyaz font nasıl yapabiliriz?

 

[magnesia]

Sayın dalgalikur.
Olmasını istediğim işlemin ekran görüntüsü ektedir.
Müsait bir anınızda bakabilirseniz sevinirim.
Tekrar teşekkürler.

 

[magnesia]

Sorumu güncellemek istiyorum.

 

[Muzaffer Ali]

Bu kodlar A yı yapıyordu

    With s1.Range("A" & sat)
        .HorizontalAlignment = xlCenter
        .Interior.Color = 255
        .Font .ThemeColor = xlThemeColorDark1
        .Font.Bold = True
    End With

Bu da C yi yapar

    With s1.Range("C" & sat)
        .HorizontalAlignment = xlCenter
        .Interior.Color = 255
        .Font .ThemeColor = xlThemeColorDark1
        .Font.Bold = True
    End With

 

[magnesia]

Sayın dalgalikur.
Sonuç değişmedi..
C sütunu biçimlendirmesi olmadı..

 

[magnesia]

Tamam tamam.. Benden kaynaklanan hatayı düzelttim..
Tam istediğim gibi.
Tekrar tekrar teşekkür ederim.