Hücre İçindeki Tarih ve Sayıyı çekmek.

[kaptan14ts]

Merhabalar;
A1 Hücresinde uzunca bir metin var. Metnin içeriğinde geçen " ............................27.12.2024 tarih ve 35217 sayılı yazısın....................................." 27.12.2024 - 35217 şeklinde parçayı almak istiyoruz.Konu hakkında ustalardan yardım bekliyorum.Şimdiden teşekkürler.

 

[hasankardas]

Merhabalar hangi excel sürümünü kullanıyorsunuz. bunu porfilde belirtmeniz lazım.

=PARÇAAL(A1; MBUL(" tarih ve"; A1) - 10; 10)

sadece tarihi alır..
tarih ve sayı için

=PARÇAAL(A1; MBUL(" tarih ve"; A1) - 10; 10) & " - " & KIRP(PARÇAAL(A1; MBUL(" tarih ve "; A1) + 10; MBUL(" sayılı"; A1) - (MBUL(" tarih ve "; A1) + 10)))

 

[Zeki Gürsoy]

Sub test()
    Dim reg As Object, col As Object, strInput As String
   
    strInput = "...........................27.12.2024 tarih ve 35217 sayılı yazısın...................."
   
    Set reg = CreateObject("VBScript.RegExp")
   
    'reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "\d{1,2}\.\d{1,2}\.\d{2,4}(?=\s*tarih)|\d+(?=\s*sayılı)"
   
    If Not reg.test(strInput) Then
        MsgBox "uyuşma yok"
        End
    End If
   
    Set col = reg.Execute(strInput)
   
    Debug.Print col(0)
   
    If col.Count > 1 Then _
        Debug.Print col(1)
   
End Sub