Makro ile gelen verileri ortalayarak getirme

[u.L.a.s]

Merhabalar

Bir makro yardımıyla başka bir sheetten çağırdığım veriler var.

Bu verileri C ve D sütununa aşağıya doğru hücre hücre sıralı yazıyor.

Eğer gelen veri rakamsa Sağa dayalı yazıyor

Gelen veri yazı formatındaysa sola dayalı yazıyor

Bense hangi formatta olursa olsun bu gelen verileri ortalı yazsın istiyorum.

Konu hususunda yardımlarınızı rica ederim

aşağıdaki kod düzenini kullanıyorum ama bir türlü istediğim C3 : D65500 aralığı arası gelecek verileri ortalamıyor

Sub ortalama()

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

 

[Muzaffer Ali]

With Selection

silip

With range("c3:d65500")

yazınız

 

[u.L.a.s]

onuda denemiştim sanki olmamıştı şimdi oldu hey allahım

sizlerde bir sihir var üstadım diyeyim

çok teşekkür ederim

 

[Muzaffer Ali]

Rica ederim.