Sorgu için arama sonuçları: RegExp

...modülüne ekleyip deneyebilirsiniz... Private Sub Worksheet_Change(ByVal Target As Range) ' Haluk - 21/09/2020 Dim myStr As String, regExp As Object, objMatches As Object, xMatch As Object If Not Intersect(Range("A2:A" & Rows.Count), Target) Is Nothing Then myStr =...

Aşağıdaki makro A sütunundaki hücrelerde istediğiniz işlemi yapar: Sub renkle() Dim RegExp As Object Set RegExp = CreateObject("VBScript.Regexp") RegExp.Pattern = "[^0-9]" RegExp.Global = True son = Cells(Rows.Count, "A").End(3).Row For i = 1 To son For j = 1 To Len(Cells(i, "A"))...

...sayfalar yazıyorsa dikkate alınır ama örneğinizdeki gibi birinde sayfalar diğerinde sayfada yazıyorsa maalesef işe yaramıyor: Sub fark() Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^ A-Za-zĞÜŞİÖÇığüşöç]" sonC = Cells(Rows.Count, "C").End(3).Row sonD...

...mı diye kontrol edilir. Ek/kök haline göre kontrol etmek için çözüm bulunabilir mi bilmiyorum maalesef, beni çok aşıyor :( Sub farklar() Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^ A-Za-zĞÜŞİÖÇığüşöç]" son = Cells(Rows.Count, "C").End(3).Row...

...Replace(Replace(Replace(My_Text, " / ", "/"), " /", "/"), "/ ", "/") ReDim Sorting_List(1 To 4) With CreateObject("VBScript.Regexp") .Pattern = "(\S+ MAH.)|(\S+ SOK.)|(\S+ CAD.)|(NO:\d+\/\d+)|(\S+)" .Global = True .IgnoreCase = True Set...

...End If Next .Sort .Reverse Metin = .ToArray() With VBA.CreateObject("VBScript.RegExp") .Global = True .Pattern = "^[0]*" For X = 0 To UBound(Metin) Metin(X) = .Replace(Metin(X), "")...

Bu da "RegExp" ile alternatif olsun.. Kullanıcı tanımlı fonksiyon.. =UNIQUE_WORDS(A2) Option Explicit Function UNIQUE_WORDS(My_Range As Range) Application.Volatile True With VBA.CreateObject("VBScript.RegExp") .Pattern = "^(.+)\s*\1$" .Global = True...

Aşağıdaki makroyu dener misiniz? Sub buyukharfler() son = Cells(Rows.Count, "C").End(3).Row Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^ A-ZĞÜŞİÖÇ]" For i = 2 To son kelime = "" veri = Split(regexp.Replace(Cells(i, "C"), ""), " ") sut = 6...

...siz denersiniz.... eksik karakter varsa, kodda pattern'a ilave edersiniz. Sub Test2() ' Haluk - 09/08/2022 ' sa4truss@gmail.com Dim regExp As Object, i As Integer Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern =...

Hocam cevabınız için teşekkürler fakat aşağıdaki hatayı verdi. Run-time error '429': ActiveX component can't create object

Sub Test() ' 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...

Bu da döngü ile alternatif olsun. Sub Fix_Dates_Loop() Dim Rng As Range With VBA.CreateObject("VBScript.Regexp") .Pattern = "(\d{4})[.\-\/](\d{1,2})[.\-\/](\d{1,2})" .Global = True For Each Rng In Selection.SpecialCells(xlCellTypeConstants, 23) If...

...yoktur";0;say(B2)*1))<3;0;EĞER(ESAYIYSA(B2);B2;EĞER(B2="stokta yoktur";0;say(B2)*1))) Public Function say(Data As Variant) Dim RegExp As Object Set RegExp = CreateObject("VBScript.Regexp") RegExp.Pattern = "[^0-9\,-]" RegExp.Global = True say = RegExp.Replace(Data, "")...

...Sub Test() ' Haluk - 12/05/2022 ' sa4truss@gmail.com Sheets("Detay").Range("A1:D" & Rows.Count).ClearContents Set regExp = CreateObject("VBscript.RegExp") regExp.Global = True regExp.Pattern = "[^ A-Za-zĞÜŞİÖÇığüşöç]" str1 =...

Aşağıdaki gibi daha iyi oldu sanki: Sub farklar() Set regexp = CreateObject("VBscript.RegExp") regexp.Global = True regexp.Pattern = "[^ A-Za-zĞÜŞİÖÇığüşöç]" 'veri = CStr(regexp.Replace(veri.Value, "")) son = Cells(Rows.Count, "A").End(3).Row Range("C1:D" & son).ClearContents For i = 1 To...

...Option Explicit Function Get_Numbers(My_Rng As Range) As Double Application.Volatile True With VBA.CreateObject("VBScript.RegExp") .Pattern = "[^0-9.,]+" .Global = True If .Test(My_Rng.Value) Then Get_Numbers =...

Sn. Korhan ve Yusuf hocam ilginize çok teşekkürler

Şöyle deneyin: RegExp.Pattern = "[^0-9\,-]"

Deseni değiştirmeyi deneyebilirsiniz. RegExp.Pattern = "[^0-9\,-]"

...gelmiyor, sonucun -5583,96 olarak gelmesi için nasıl bir düzenleme yapmak gerekiyor? Public Function getNumber(Data As Variant) Dim RegExp As Object Set RegExp = CreateObject("VBScript.Regexp") RegExp.Pattern = "[^0-9\,]" RegExp.Global = True getNumber =...