A B Sütunlarını Dikey Ortalama

[hakki83]

Selamlar

RAPOR adındaki bir sayfanın A ve B sütunlarını dikey ortalama kodunu yazar mısınız?

(VerticalAlignment = xlCenter)

Bir de aynısının A ve B sütunlarının son dolu satırına kadar olanı lütfen.

Makro kaydet yöntemiyle yapamadım.

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub DikeyOrtala()
ssat = Sheets("RAPOR").Range("B1048576").End(3).Row
    Sheets("RAPOR").Select
    Range("A1" & ":" & "B" & ssat).Select
        With Selection
    .VerticalAlignment = xlCenter
        End With
End Sub

 

[ÖmerFaruk]

Her ikisi de aşağıda

Sub Hizala()
    Columns("A:B").VerticalAlignment = xlCenter
    Range("A1:B" & Range("A" & Rows.Count).End(3).Row).VerticalAlignment = xlCenter
End Sub

 

[hakki83]

Merhaba
Deneyiniz.

Sub DikeyOrtala()
ssat = Sheets("RAPOR").Range("B1048576").End(3).Row
    Sheets("RAPOR").Select
    Range("A1" & ":" & "B" & ssat).Select
        With Selection
    .VerticalAlignment = xlCenter
        End With
End Sub

Emeğinize sağlık teşekkürler.

 

[hakki83]

Her ikisi de aşağıda

Sub Hizala()
    Columns("A:B").VerticalAlignment = xlCenter
    Range("A1:B" & Range("A" & Rows.Count).End(3).Row).VerticalAlignment = xlCenter
End Sub

Emeğinize sağlık. Teşekkürler.