Bir sütundaki Noktalama İşaretleri ve Simgeleri Değiştirme veya Silme

[kasif2]

Aşağıdaki kod ile C sütunundaki "*", ",", " " gibi değerleri belirttiğim değerlerle değiştirmek, F sütununda da boşlukları kaldırmak istiyorum ve aşağıdaki kodu hazırladım.

Ancak bu şekilde yapınca sadece C ve F sütununda çalışması gereken kodlar tüm çalışma sayfasında çalışıyor.

Bunu sadece ilgili sütunda çalışacak şekilde düzenleyebilir, hatta iki kodu tek bir kod olarak çalıştırabilir miyim?

Sub VirgulYildizBoslukSil()

    Columns("C:C").Select
    Range("C3").Activate
    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
    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
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Sub FdekiBosluklariSil()
    Range("F:F").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Huseyinkis]

Merhaba Dosyanızda A1:H1 sutunlarını birleştirmişsiniz kodda F1:F1000 seçmeye çalıştığınızda A1:H10000 seçim yapıyor f değiştir makrosunun başındaki select kısmını

Range("F:F").Select şeklinde yaparsanız sorununuz çözülecektir.

 

[kasif2]

Merhaba Dosyanızda A1:H1 sutunlarını birleştirmişsiniz kodda F1:F1000 seçmeye çalıştığınızda A1:H10000 seçim yapıyor f değiştir makrosunun başındaki select kısmını

Range("F:F").Select şeklinde yaparsanız sorununuz çözülecektir.

Maalesef düzelttim ama sorun düzelmedi

 

[kasif2]

Bu arada bunu ebeyanname için düzenliyorum. Malum noktalama vs kabul etmiyor

 

[Huseyinkis]

Maalesef düzelttim ama sorun düzelmedi

merhaba kontrol etmeden yapmıştım yine seçimde hata yapıyor siz kodu

Range("F4:F10000").Select şeklinde değiştirin birleştirilmiş hücreleri atlayıp sadece f sutununu seçecektir.

 

[kasif2]

Çok teşekkürler kodu aşağıdaki şekilde düzenledim ve oldu..

Sub VirgulYildizBoslukSil()
    Range("C4:C10000").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
    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
    Range("F4:F10000").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub