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

 

[kaptan14ts]

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

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

Sadece Tarih kısmı çalıştı.
Diğer başlık Değer hatası dönüyor.

 

[kaptan14ts]

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

Ekli dosyayı görüntüle 261109

Kodu Makro içeren excel sayfasına yapıştırdım.Sonuç dönmedi.

 

[Zeki Gürsoy]

Sonuçları editörün konsoluna (Ctrl + G ile gidin) yazıyor; veya kodu Excel hücresine verecek şekilde revize edin.

.

 

[Korhan Ayhan]

Profilinizde kullandığınız excel sürümü ve dilini belirtmemişsiniz. Bu alanı güncellemenizde fayda var. Linki inceleyerek güncelleyebilirsiniz.

Bilgi Thread 'Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında'

21 Eylül 2023

Merhaba Değerli Forum Üyeleri,

Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum.

Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu konuda ısrarcı olmak zorunda kalıyoruz.

Foruma üye olan değerli katılımcılar bu alana gerekli önemi vermeyerek gelişigüzel ifadeler yazarak dolduruyorlar.

Örnek vermek gerekirse; (Benim karşılaştıklarım..)

Excel Vers. ve Dili Bilmiyorum
Excel Vers. ve Dili VBA
Excel Vers. ve Dili...

• Korhan Ayhan
• Cevaplar: 0
• Forum: FORUM KURALLARI-Duyurular-Forum Kullanım Bilgileri

• 

Ben Ofis 365 sürümü için öneride bulunmak isterim...

Veri A1 hücresinde...

Tarih için boş bir hücreye;

=TEXTJOIN(".";;TAKE(TEXTSPLIT(TRIM(REGEXREPLACE(A1;"[^\d]+";" "));" ");;3))

Diğer sayı için;

=TAKE(TEXTSPLIT(TRIM(REGEXREPLACE(A1;"[^\d]+";" "));" ");;-1)