DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target) = "FAZLA" Then
Target.HorizontalAlignment = xlRight
Else
Target.HorizontalAlignment = xlGeneral
End If
End Sub
Option Explicit
Sub VERİLERİ_SAĞA_HİZALA()
Dim Hücre As Range
For Each Hücre In Selection
If UCase(Hücre.Value) = "FAZLA" Then
Hücre.HorizontalAlignment = xlRight
Else
Hücre.HorizontalAlignment = xlGeneral
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub