Bir hücrede rakam gördüğü her sayıyı X e çevirmek

[search77]

Arkadaşlar merhaba
A kolonunda A1,A2,A3,A4 .........An e kadar giden aşağıdaki gibi içerikler var, örneğin;
Bu içeriklerde rakam gördüğü her sayıyı X e çeviren, yani 10 u XX, 01.01.2020 yi XX.XX.XXXX gibi yada 193746 yı XXXXXX ya çevirek şekilde
Bir nevi rakam gördüğü herşeyi masklasın gizlesin gibi
Bir macro nasıl yazabilirim.
Şimdiden yardımcı olacaklara saygılarımı iletirim.
Teşekkürler

Sayfalardan alınan 10 yaprak doküman

01.01.2020 tarihinde bulunan

23576789 nolu kaydın dökümü

00-88789/93'88'_12 nolu iş isteği

 

[bmutlu966]

Deneyiniz.

Sub Rakamlari_x_yap()

For t = 0 To 9
    Columns("A:A").Select
    Selection.Replace What:=t, Replacement:="X", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Next

End Sub

 

[search77]

bmutlu arkadaşım eline koluna emeğine sağlık
10 numara olmuş, çok çok tşk ler

 

[muhsar]

Deneyiniz.

Sub Rakamlari_x_yap()

For t = 0 To 9
    Columns("A:A").Select
    Selection.Replace What:=t, Replacement:="X", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Next

End Sub

hayırlı akşamlar;hocam bu kod sonrası X olanları tekrar eski haline getir yapılabilirmi,yani gizle,göster mantığı gibi

 

[Seyit Tiken]

Böyle sorular için örnek dosya gerekli, böyle afaki çözümler işi uzatır.
X için Kod :

[A1:A20].NumberFormat = "X"

Normal Görünüm İçin Kod :

[A1:A20].NumberFormat = "General"

 

[search77]

Arkadaşlar selam,
Bu kod çalışıyor ama atıyorum ilk 1000 kaydı değiştiriyor, bende 400 bin kayıt var, neden hepsini değiştirmiyor acaba
Bunu Seyit beyin yukarıda belirttiği gibimi değiştirmek lazım. Yardımcı olabilir misiniz?
Syg.

Sub Rakamlari_x_yap()

For t = 0 To 9
Columns("A:A").Select
Selection.Replace What:=t, Replacement:="X", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next

End Sub

 

[bmutlu966]

Datanız A kolonundaysa hepsini değiştirir. Belki datanızdaki değişimin fazla olması nedeniyle biraz uzun sürüyordur.

 

[search77]

Peki bazı sayıları değiştirmiyor acaba format sorunumu örneğin 01.01.2020 yi 0X.X1.XX20 gibi değiştiriyor
Birde işlemin bittiğine dair bir kod koyabilir miyiz
Birde bazı hücrelerdeki metinlerde boşluk var bir alt satıra inmiş kelimeler var bunlar engel midir, hücredeki metin düzgün şekilde mi olmalı

 

[Korhan Ayhan]

Tarihler sıkıntı çıkarabilir. Metne çevirmek gerekebilir.

15-20 satırlık karışık veri içeren küçük bir örnek dosya paylaşırsanız üzerinde çalışılabilir.

 

[search77]

Merhaba,
Hatayı tespit ettim, kayıtlar içerisinde @ işreti gördüğü yerde işlemi kesiyor
@ işaretini kaldırınca düzgün çalıştı
Herkesin emeğine eline sağlık
İlginiz için teşekkürler arkadaşlar

 

[search77]

Tekrar Merhaba Arkadaşlar,
Aşağıdaki macro işlemlere başlamadan önce A kolonundaki "@" bu işaretin olduğu tüm hücrelerden bu "@" işareti silsin
Sonra aşağıdaki macro işlemlerine başlasın

Yani ;
Selection.Replace What:="@", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
bu kaydı aşağıdaki macroda nereye koymalıyım hem hız hemde doğru çalışması bakımından
Teşekkürler.

Sub Rakamlari_x_yap()

For t = 0 To 9
Columns("A:A").Select
Selection.Replace What:=t, Replacement:="X", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Rakamlari_X_Yap()
    Dim Sayi As Byte
    
    With Range("A:A")
        .Replace "@", "", xlPart
            
        For Sayi = 0 To 9
            .Replace Sayi, "X", xlPart
        Next
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[search77]

Korhan bey çok teşekkür ederim, sorunsuz çalışıyor, elinize emeğinize sağlık