Sorgu için arama sonuçları: RegExp

Haluk Bey kod tüm belge için bütün çalışıyor. Belirli bir kısmı seçili olsada yine tüm belgeyi temizliyor. Bu kod'a seçili kısımda da çalışması için nasıl bir ilave yapılabilir.

Haluk Bey Teşekkürler. Kod Çalıştı. istediğim bu idi. Eline sağlık. İyi ki varsınız. Tekrar Teşekkürler...

MS Word için; Sub Test() ' Haluk - 10/02/2021 ' https://excelhaluk.blogspot.com/ Dim regExp As Object Set regExp = CreateObject("VBscript.RegExp") regExp.Pattern = "\((\d+)\)" regExp.Global = True ActiveDocument.Range.Text =...

...yapmak lazım Kod: Sub Test3() Dim objRegEx As Object, myCell As Range, myStr As String Set objRegEx = CreateObject("VBscript.RegExp") objRegEx.Global = True objRegEx.Pattern = "\((\d+)\)" For Each myCell In Selection myStr = myCell.Text myStr...

...Dim reg As Object myDate = UCase(Format(Date, "mmmm yyyy")) If reg Is Nothing Then Set reg = CreateObject("VBScript.RegExp") reg.Pattern = "(.)" reg.Global = True End If yazTarih = UCase(reg.Replace(myDate, "$1 ")) End Function Sayfada...

...' sa4truss@gmail.com Dim objHTTP As Object, strURL As String, strJSon As String Dim arrPattern As String Dim regExp As Object Dim r As Integer, c As Byte, temp As Variant Dim strResponse As String, intStatus As Integer, strStatus As String arrProperties =...

@Haluk hocam elinize sağlık cok güzel ve işlevsel olmuş. makroyu kodu görüntüle kısmından yapıstırdım ve çalıştırabildim. mumkunse bazı sorularım var. 500 satırlık sonuç verdi. bu rakamı arttırabilir miyiz ? ( cok onemli değil?) makroyu her çalıştırdıgımda eski datayı yiyiyor. örnek ilk...

...' sa4truss@gmail.com Dim objHTTP As Object, strURL As String, strJSon As String Dim arrPattern As String Dim regExp As Object Dim r As Integer, c As Byte, temp As Variant Dim strResponse As String, intStatus As Integer, strStatus As String Range("A1:L" &...

...uygulayınız. Option Explicit Function K_PARÇAAL(Veri As Range) As String Application.Volatile True With CreateObject("VBScript.RegExp") .Pattern = "\w{3}-\w{4}" .Global = True If .Test(Veri.Value) Then K_PARÇAAL = .Execute(Veri.Value)(0)...

Çok teşekkür ederim Korhan Hocam, elinize emeğinize sağlık.

...Dim objHTTP As Object, strURL As String, HTMLcode As String Dim arrProperties() Dim arrPattern(1 To 21) As String Dim regExp As Object, xPattern As Variant Dim r As Integer, c As Byte Dim strResponse As String, intStatus As Integer, strStatus As String...

...If IsNumeric(Veri) Then KODLA = Veri Exit Function End If If Kriter = 0 Then With CreateObject("VBScript.RegExp") .Pattern = "[a-zçıiğöşü]" .Global = True KODLA = .Replace(Application.Proper(WorksheetFunction.Trim(Veri))...

...150 kelimeyi B1 hücresine yazar. Sonrasında ne istediğinizi anlamadım.... Sub Test() ' Haluk - 31/01/2021 ' sa4truss@gmail.com Dim regExp As Object, i As Integer Dim objMatches As Object Set regExp = CreateObject("VBScript.RegExp") With regExp .IgnoreCase...

Bu da RegExp ile alternatif olsun; Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 10 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Value <> "" Then With CreateObject("VBscript.RegExp")...

Meraktan biraz regexp karıştırayım dedim. Dosyada ortalık fena karıştır. :)))

..."Tabi değil" yazdırmak. Gerek Zeki Gürsoy'un gerekse Haluk Bey'in çalışmaları çok güzel olmuş. Ellerine ve emeklerine sağlık... Haluk Bey RegExp ile yukarıdaki yazdıklarım için yardımcı olursa veya ekteki tabloyu word'e atmadan RegExp ile PDF'den direkt excel'e atmam için yardımcı...

Sn. @veyselemre Bey Merhaba, Ekte ihtiyacımız olan çalışmayı birebir çözemedik fakat işlem olarak bizi bir nebze işimizi kolaylaştıracak benzer çalışmaları ararken sizin 2019 yılında aşağıda gördüğünüz üzere bir çalışma yaptığınızı gördük müsaitliğiniz var ise birebir bizim istediğimiz olmasada...

...kopyalıyorum. Ancak; excel sayfası biraz karışık oluyor haliyle :( Bunun için excel dosyasına kopyalamadan önce; PDF dosyasından Word dosyasına kopyalarken yada Word dosyasından Excel dosyasına kopyalarken, düzenleyerek (Örneğin RegExp kullanarak) kopyalayabilir miyiz? Şimdiden teşekkürler.

Eğer "Regular Expressions" ile çözüm arıyorsanız, bir modül ilave edip aşağıdaki kod yapıştırın. Function trimDigits(Addr As Range) Dim regExp As Object If regExp Is Nothing Then Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = "(\b\d[\d,.]{8})"...

Merhaba Arkadaşlar, 40.98229658742376, 28.707264510734888 şeklinde rakamları noktanın sağında 6 rakam kalacak şekilde makro ile nasıl kısaltabilirim? örnek: Yukarıdaki sayıyı 40.982296, 28.707268 yapma not:Regexp Pattern ile yapmaya çalıştım beceremedim.