FONT

[Ongun]

SON = [g65536].End(3).Row
Cells(SON + 4, 7) = WorksheetFunction.Sum(Range("G2:G" & SON))
Cells(SON + 4, 6) = "TOPLAM :"

Selamlar, yukarıdaki kod yardımıyla toplamı otomatik aldırıyorum ancak, "TOPLAM" ve toplam tutarın font`u bold olsun istiyorum bir türlü yapamadım yardımcı olabilirmisiniz. Teşekkürler.

 

[osmantelci]

Pardon leventm siz zaten cevaplamışsınız, sizden belki 3-5 saniye sonra gönderdim, cevabımı silebilirsiniz.
Sub A()
SON = [g65536].End(3).Row
Cells(SON + 4, 7) = WorksheetFunction.Sum(Range("G2:G" & SON))
Cells(SON + 4, 6) = "TOPLAM :"
Range(Cells(SON + 4, 6), Cells(SON + 4, 7)).Font.Bold = 1
End Sub

 

[Levent Menteşoğlu]

Rica ederim önemli değil. Kendiminkini sildim.

 

[osmantelci]

Alçak gönüllüğünüz için teşekkür ediyorum. Ã?yle bir raslantı olmuş ki kodlarımız da aynı idi. Ancak sanıyorum ki tek fark siz kodunuzu VBE penceresinde denemeden göndermişsiniz, demek istediğim bu yapmış olduğunuz gerçekten kendinize olan güveninizi ve uzmanlığınızı ispatlıyor. (Not: [siz kodunuzu VBE penceresinde denemeden göndermişsiniz] Kodlardaki küçük harfle başlayan ifadelerden anladım.)

 

[Ongun]

Sayın osmantelci, sayın leventm ilginizden dolayı çok teşekkür ederim. elinize sağlık
Saygılarımla.