Aynı sütunda (metin sola - sayı sağa) hizala

[cllgny]

Merhaba, aynı sütunda bulunan metin ifadeler sola, sayıları sağa hizalamak, veya şartlı hizalama olur mu?

 

[ÖmerBey]

Merhaba,
Standart olarak metin ifadeler sola, sayılar sağa hizalı olmuyor mu zaten?
Yine de makro ile yapılabilir. Aşağıdaki örneği inceleyiniz, seçili alanda işlem yapar.

Sub Kod()
For Each hcr In Selection
    If IsNumeric(hcr) Then
        hcr.HorizontalAlignment = xlRight
    Else
        hcr.HorizontalAlignment = xlLeft
    End If
Next
End Sub

 

[cllgny]

Merhaba,
Standart olarak metin ifadeler sola, sayılar sağa hizalı olmuyor mu zaten?
Yine de makro ile yapılabilir. Aşağıdaki örneği inceleyiniz, seçili alanda işlem yapar.

Sub Kod()
For Each hcr In Selection
    If IsNumeric(hcr) Then
        hcr.HorizontalAlignment = xlRight
    Else
        hcr.HorizontalAlignment = xlLeft
    End If
Next
End Sub

Ömer bey Üstadım, valla hızır gibisin. ellerine sağlık.. Teşekkür ederim..

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...