Hücreye girilen verinin başına ve sonuna % işareti

[o2l3m]

Hücreye girilen verinin başına ve sonuna % işaretini enter yaptıktan sonra yapabilirmiyiz?

Bu durumda sizde makro ile verilerinizi düzenlemelisiniz.

A1:A100 arası için aşağıdaki kodu deneyebilirsiniz. Kendinize göre uyarlarsınız.

Düzenlenmiş veri "B" sütununa listelenmektedir.

Sub TEK_TIRNAK_EKLE()
    Dim Veri As Range, Tarih As String
    
    For Each Veri In Range("A2:A100")
        Tarih = Format(Veri.Value, "dd/mm/yyyy")
        Veri.Offset(0, 1) = "'" & Replace(Tarih, ".", "/")
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[askm]

Örnek dosya eklerseniz yardımcı olalım.

 

[Seyit Tiken]

"Hücre Biçimlendir" den yapabilirsiniz.

"%" 0 "%"

 

[o2l3m]

Gönderdim.

 

[askm]

Sayfa1 in kod kısmına aşağıdaki kodları yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:D2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = "% " & Target.Value & " %"
Application.EnableEvents = True
End Sub

 

[o2l3m]

Teşekkür ediyorum

 

[askm]

Rica ederim. Kolay gelsin.