Sorgu için arama sonuçları: RegExp

Aşağıdaki fonksiyonları deneyiniz. Function getAmount(str As String) With CreateObject("VBscript.RegExp") .Global = True .Pattern = "TL\s\d+(\,\d+)?" str = Replace(WorksheetFunction.Trim(str), ".", "") If .Test(str) Then getAmount =...

Hocam elinize sağlık. Hemen kendi çalışmama uyarlayıp deneme yapacağım. Simdilik çok stabil çalışıyor.

RegExp kullanarak VBA ile alternatif; Function getAmount(str As String) With CreateObject("VBscript.RegExp") .Global = True .Pattern = "TL\s\d+(\,\d+)?" str = Replace(WorksheetFunction.Trim(str), ".", "") If .Test(str) Then getAmount =...

Haluk hocam ekran görüntüsündeki satırda hata verdi

Tamam hocam teşekkürler

...yazdırabilirsiniz.... Sub GetAltin() ' Haluk - 14/05/2020 ' Dim objHTTP As Object, strURL As String, HTMLcode As String Dim regExp As Object, valDoviz As Variant Set objHTTP = CreateObject("MSXML2.XMLHTTP") strURL =...

RegExp uygulamasında desen olarak aşağıdaki gibi deneyiniz. .Pattern = "\."

Sub test() With CreateObject("VBScript.Regexp") .Global = True .Pattern = "a" With .Execute(Range("A1").Value) If .Count > 2 Then MsgBox .Item(2).firstindex + 1 Else MsgBox "3 adet a yoktur." End If...

Alternatif-1 (Find/Replace - Bul/Değiştir): Alternatif-2 (VBA); Sub Test() ' Haluk - 08/08/2023 Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern = "(\(.*\))" regExp.Global = True ActiveDocument.Range.Text =...

Hocam, Tam benim istediğim gibi kodlamayı yapmışsınız. Teşekkür ederim. Ancak benim hesaplayamadığım bir nokta olduğundan bu durumu kendim çözmeye çalışıyorum. yapamazsam tekrar konuyu anlatırım. Tekrar teşekkürler

Öncelikle cevabınız için çok teşekkür ederim. Elimde olmayan nedenler ile geç geri dönüş yaptığımın farkındayım. Bunun için affınıza sığınıyorum. Kodları denemeden bu cevap yazma ihtiyacını hissettim. Bu gece de test edeceğim. Tekrardan teşekkürlerimi iletirim.

Sub test() Dim mtch As Object, sut As Integer, i As Long, bol, ii As Byte With CreateObject("VBScript.Regexp") .Global = True .Pattern = "([a-zA-ZğüÜıİşŞçÇöÖ\s\.]+)(\s)([A-Z]+)([\s\d\.,%-\?ad]+)" For i = 2 To Cells(Rows.Count, 2).End(3).Row If...

..."GET", url, False xmlHttp.send responseText = xmlHttp.responseText Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "<distance>(.*?)<\/distance>" Set matches = regex.Execute(responseText) If matches.Count > 0 Then distance...

sn Veyselemre teşekkürler ilginiz için.

Sub alternatif() Dim mtch As Object, sat& sat = 1 With CreateObject("VBScript.Regexp") .Global = True .Pattern = "\""Z\"":\""([\d:]+)" If .test(Range("A1").Value) Then Set mtch = .Execute(Range("A1").Value) For Each mtch In...

...Bunun için makroya ne eklemeliyim? Sub Saat() Dim i, ii, a, bl, s1, s2, bas, son Dim n, y As Variant With CreateObject("VbScript.Regexp") .Pattern = "([\d:\s]+)-([\d:\s]+)" For i = 8 To Cells(Rows.Count, "D").End(3).Row If .test(Cells(i, "D").Value) Then...

..."If-None-Match", "\zoru-basaririz-imkansiz-biraz-zaman-alir\" objHTTP.Send HTMLcode = objHTTP.responseText Set regExp = CreateObject("VBScript.RegExp") i = 10 For j = 1 To UBound(Split(HTMLcode, "parakod"":""")) Cells(i, 14) = Split(Split(HTMLcode...

...alternatifte ben paylaşmak isterim. Option Explicit Sub Test_1() Dim X As Long, Data As Variant With VBA.CreateObject("VBscript.RegExp") .Global = True .Pattern = "(^\D+ )" For X = 3 To Cells(Rows.Count, 1).End(3).Row If .Test(Cells(X...

...sağlıyor, isim kalıp fiyat siliniyor Dim objRegEx As Object, NoB As Long, myStr As String Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = True objRegEx.Pattern = "\([^()]*\)|(\-.*$)" NoB = Range("A" & Rows.Count).End(xlUp).Row For i = 3 To NoB...

...belki farklı çözüm yolları bulunabilir. Haluk beyin daha önce farklı başlıklarda paylaştığı Google Sheets üzerinde çalışan rakam harf ayıran REGEXP formülleri ile daha kolay çözüme gidilebilir. Ama bunun için excel yerine Google E-Tabloları kullanmanız gerekir. Son olarak excel üzerinde...