Sil ve Düzelt

[unalh]

S.a Arkadaşlar,

A kolonunda aşağı doğru girilmiş veriler mavcut.
Girişler düzensiz yapılmıştır.
Kırmızı ile işarerledim.


K-2569
K-598666
K12365
K42568
K.236


Olması gereken şekli bu.



K2569
K598666
K12365
K42568
K236

Bir macro ile bunları nasıl düzeltebiliriz.
ilginize şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba

standart bul-değiştir işlemini makro kaydet yöntemiyle koda çevirebilirsiniz.

Sub Makro1()

    Columns("A:A").Select
    Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[unalh]

Uzmanamele evet bunu kullanabilirim.

Çok Teşekkürler.