Makro ile Hücre Biçimlendirme

[airborne]

s.a.

S4.Range("A" & SATIR & "" & SATIR).HorizontalAlignment = xlCenter

ile makro içerisinde işlemin son satırında hücre içerisindeki bilgileri ortalattırabiliyorum. Bunda ne gibi düzenleme yapılarak sadece A, C ve D sütunlarını ortalattırabilirz. B sütunu ortalanmayacak.

Selametle.........................

 

[kelkitli]

Selamlar,
Makro kaydederek yapabilirsiniz.
Range("A:A,C:C,D: D").Select

 

[airborne]

s.a.

teşekkür ederim kelkitli

 

[İhsan Tank]

s.a.

S4.Range("A" & SATIR & "" & SATIR).HorizontalAlignment = xlCenter

ile makro içerisinde işlemin son satırında hücre içerisindeki bilgileri ortalattırabiliyorum. Bunda ne gibi düzenleme yapılarak sadece A, C ve D sütunlarını ortalattırabilirz. B sütunu ortalanmayacak.

Selametle.........................

Merhaba

Option Explicit
Sub kkkk()
Dim ts
ts = Range("A" & Rows.Count).End(xlUp).Row
Range("A5:A" & ts, "C5:D" & ts).HorizontalAlignment = xlCenter
End Sub