DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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..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.
Kod:Sub Kod() For Each hcr In Selection If IsNumeric(hcr) Then hcr.HorizontalAlignment = xlRight Else hcr.HorizontalAlignment = xlLeft End If Next End Sub