hücrede bulunan belirli karakteri silme

[zulfuernek]

h sütununda -9.000,65" gibi bir tutar yazıyor. amacım h sütununda bulunan bu tutarı hem artı olarak yazması hemde sonunda bulunan " işaretinin kalkması

 

[zulfuernek]

konu çok basit olabilir ama bir türlü istediğim formülü bulamadım. yardım yok mu?

 

[zulfuernek]

'HÜCREDE BULUNAN # İŞARETİNİ SİLER
Columns("B").Cells.Replace What:="#", Replacement:="", LookAt:=xlPart

bu formülle başardım.

şimdi sorun şu hücrede harf varsa nasıl silebilirim 1924A mesela burda harfini silmesini istiyorum. herhangi bir harfte gelebilir buraya

 

[Korhan Ayhan]

Deneyiniz.

"B" sütununda işlem yapar.

Sub Harfleri_Kaldir()
    Dim Harf(), X As Integer
    
    Harf = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "Q", "R", "S", "Ş", "T", "U", "Ü", "V", "W", "X", "Y", "Z")
    
    For X = O To UBound(Harf)
        Range("B:B").Replace Harf(X), "", xlPart
    Next

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

 

[Murat OSMA]

Korhan Bey'in müsadesiyle... Alternatif..

[SIZE="2"]Sub Emre()
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "[^0-9]"
    For i = 1 To Cells(Rows.Count, "B").End(3).Row
       Cells(i, 2) = CStr(RegExp.Replace(Cells(i, 2).Value, ""))
    Next i
End Sub[/SIZE]

 

[zulfuernek]

korhan hocamın verdiği kodlar işimi gördü. murat hocam ve korhan hocam emeklerinize sağlık. çok çok önemli bir programı sayenizde çözdüm ve inanın çok büyük bir eksikliği ollan ve inanılmz bir program oldu bizim için. emeklerinize defalarca sağlık. defalarca teşekkür ederim.

 

[tamer42]

Korhan Bey'in müsadesiyle... Alternatif..​

​

[SIZE="2"]Sub Emre()[/INDENT]
[INDENT]    Set RegExp = CreateObject("VBscript.RegExp")[/INDENT]
[INDENT]    RegExp.Global = True[/INDENT]
[INDENT]    RegExp.Pattern = "[^0-9]"[/INDENT]
[INDENT]    For i = 1 To Cells(Rows.Count, "B").End(3).Row[/INDENT]
[INDENT]       Cells(i, 2) = CStr(RegExp.Replace(Cells(i, 2).Value, ""))[/INDENT]
[INDENT]    Next i[/INDENT]
[INDENT]End Sub[/SIZE]

Merhaba,

Hücrede yazan metinden sadece boşluk ve alfabe harfleri kalacak şekilde nasıl bir düzenleme yapılabilir? noktalama işaretleri ".,;?\(([^\)]+)\)"
ve rakamlar [0-9] temizlenecek,
sadece alfabe harfleri ve boşluk kalacak?
Aşağıdaki düzenlemede boşluklar da gidiyor?

   RegExp.Pattern = "[^a-z]"

Teşekkürler,
iyi akşamlar.

 

[Haluk]

    RegExp.Pattern = "[^A-Za-zĞÜŞİÖÇığüşöç ]"

.

 

[tamer42]

    RegExp.Pattern = "[^A-Za-zĞÜŞİÖÇığüşöç ]"

.

Haluk Hocam çok teşekkürler,

    RegExp.Pattern = "[  ]"

mantığını anlatan bir doküman paylaşabilir misiniz, formu incelediğimde çok farklı tanımlarla karşılaştım,

  VB_Regex.Pattern = "([0-9]{2,3})([A-Z]{1,3})([0-9]{2,4})"

burada [ ] , { }, \ \, ( ) neyi ifade etmektedir?

Yardımlarınız için tekrar teşekkürler,
iyi akşamlar.

 

[Haluk]

Forumda Regular Expressions için özel bölüm var ..... sanırım hiç görmediniz.

Regular Expressions (RegExp) - Düzenli İfadeler

Bu başlık altında Regular Expressions ( Düzenli İfadeler) ile ilgili örnekleri bulabilirsiniz.

www.excel.web.tr

Zeki Beyin de güzel bir mesajı ve ekinde dosyası var...

https://www.excel.web.tr/threads/duezenli-ifadelerde-pattern-sembollerin-anlamlari.122962/

.

 

[tamer42]

Teşekkürler, bu vesile ile herkese iyi bayramlar dilerim.

 

[tamer42]

Forumda Regular Expressions için özel bölüm var ..... sanırım hiç görmediniz.

Regular Expressions (RegExp) - Düzenli İfadeler

Bu başlık altında Regular Expressions ( Düzenli İfadeler) ile ilgili örnekleri bulabilirsiniz.

www.excel.web.tr

Zeki Beyin de güzel bir mesajı ve ekinde dosyası var...

https://www.excel.web.tr/threads/duezenli-ifadelerde-pattern-sembollerin-anlamlari.122962/

.

Haluk Hocam iyi bayramlar.

Bir metin içinde bir harfi yakalayıp, sonra bu harfi bold/kalın yapacak bir düzenlemeyi nasıl yapabiliriz?

Örnek olarak aşağıdaki cümlede "r" harfini bulacak ve bu harfi koyu hale getirecek;

önce: He said that that was the the correct answer. This is a short sentence.

sonra: He said that that was the the correct answer. This is a short sentence.

ilginize şimdiden teşekkürler,

tekrardan iyi bayramlar.

Kurtuluş yok tek başına; ya hep

 

[Haluk]

Ekli dosyada ufak bir örnek yaptım, inceleyebilirsiniz...


.

 

[tamer42]

Ekli dosyada ufak bir örnek yaptım, inceleyebilirsiniz...


.

Çok teşekkürler Haluk Hocam

 

[tamer42]

Ekli dosyada ufak bir örnek yaptım, inceleyebilirsiniz...


.

Haluk Hocam tekrar merhaba,

Vermiş olduğunuz kodda büyük/küçük harf duyarlı oluyor. burada büyük-küçük farketmeksiz tüm "r" harflerini bulabilmemiz için nasıl bir düzenleme yapmamız gerekir.

       regExp.Pattern = "(r)"

 

[Haluk]

Aşağıdaki kırmızı ilaveyi yapın...

    regExp.Pattern = "(r)"
    regExp.Global = True
    regExp.IgnoreCase = True

.

 

[tamer42]

Aşağıdaki kırmızı ilaveyi yapın...

    regExp.Pattern = "(r)"
    regExp.Global = True
    regExp.IgnoreCase = True

.

çok teşekkürler,

 

[tamer42]

Ekli dosyada ufak bir örnek yaptım, inceleyebilirsiniz...


.

Haluk hocam selamlar,
Aşağıdaki kodda işlem yaparken; arama yaptığımız karakter' in aynı zamanda hücredeki konumunu nasıl öğrenebiliriz?
örnek: 10. sırada, 18. sırada gibi

  Dim myStr As String, regExp As Object, objMatches As Object, xMatch As Object
    
    myStr = Range("A1").Text
    
    Set regExp = CreateObject("VBscript.RegExp")
    
    regExp.Pattern = "(r)"
    regExp.Global = True
    
    Set objMatches = regExp.Execute(myStr)
    
    For Each xMatch In objMatches
        Range("A1").Characters(xMatch.firstindex + 1, xMatch.Length).Font.Bold = True
        Range("A1").Characters(xMatch.firstindex + 1, xMatch.Length).Font.Color = vbRed

 'x1 arama yaptığımız karakter ya da dizinin hücredeki konumu
' msgbox x1

    Next

 

[Haluk]

        MsgBox xMatch.firstindex + 1

.

 

[tamer42]

        MsgBox xMatch.firstindex + 1

.

Çok teşekkürler