Sayının sonundaki eksi(-) işaretini sayının başına yazdırmak

[ebruulker]

Merhaba,

ekteki tabloda da göreceğiniz gibi, bazı hücrelerin sonunda (-) işareti var, bu hücrelerde eksi (-) işaretini sayının önüne taşımak istiyorum.

Örnek: 12346- olan sayıyı -12346 yapmak istiyorum.

Yardımcı olabilirseniz sevinirim.

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Sayfada seçim yapın ve kodu çalıştırın.

Option Explicit
 
Sub EKSİLERİ_BAŞA_AL()
    Dim Hücre As Range
    
    For Each Hücre In Selection
        If Hücre.Text <> "" Then
            If Right(Hücre.Text, 1) = "-" Then
                Hücre.Value = "-" & Left(Hücre.Text, Len(Hücre.Text) - 1)
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[haso_excel]

Alın bendende formul olarak yapılışı

 

[ebruulker]

cevaplarınız için teşekkürler.