Hücredeki değerler arasındaki ( - ) silinmesi..

[manly]

EK'te gönderdiğim dosya açıldığında DEĞİŞTİR butonuna basıldığında A sütunundaki numaraların aralarındaki "-" değerlerinin silinerek B sütununa yazılmasını istiyorum...

 

[Orion1]

Dosyanız ektedir.
Not:B sütunu alanı metin olraka biçimlendirilmiş.
Bu tür biçimlerde fonksiyonunuz çalışmaz düzelletim.
Dosyanız ektedir.
=YERİNEKOY(A2;"-";"")

 

[manly]

Teşekkürler hocam bunu makroya dökebilirmiyiz...

 

[Orion1]

Teşekkürler hocam bunu makroya dökebilirmiyiz...

Dosyanız ektedir.

Sub degistir59()
Dim sat As Long, hcr As Range
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("B2:B" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For Each hcr In Range("A2:A" & sat)
    hcr.Offset(0, 1).Value = Replace(hcr.Value, "-", "")
Next
Application.ScreenUpdating = True
MsgBox "işlem tamamlanmıştır."
End Sub

 

[manly]

Allah razı olsun hocam...