Teşekkür

[YAVUZ ÇEKER]

Faturaların stok kodlarında gizli "-" işaretleri var bunları kaldırmak istiyorum.
sayfanızda gizli karakteri bulup sarı renge ceviren makroyu buldum çok güzel çalışıyor bu makroda "-" karakteri "." karakterine çevirmek için yardımlarınızı rica ediyorum.
yavuz çeker

 

[Mdemir63]

Selam
Sitemize hoş geldiniz.
Sorularınızı örnek dosya ile desteklerseniz, daha çabuk yanıtlar alırsınız.
Altın üye olmadığınız için siteye direk dosya yükleyemiyorsunuz.
Ancak dosyanızı harici dosya yükleme sitelerinden birine yükleyerek linki paylaşabilirsiniz.

iyi çalışmalar

 

[YAVUZ ÇEKER]

Haluk - 09/08/2022
' sa4truss@gmail.com

Dim regExp As Object, i As Integer

Set regExp = CreateObject("VBscript.RegExp")

regExp.Pattern = "[^\x00-\x7F]"

regExp.Global = True

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If regExp.Test(Range("A" & i)) Then
Range("A" & i).Interior.Color = vbYellow
Else
Range("A" & i).Interior.Color = xlNone
End If
Next

Set regExp = Nothing
End Sub