Yazı içinden bir kısmı alma

onder_09

Altın Üye
Katılım
17 Mart 2017
Mesajlar
201
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
19-07-2025
Herkese merhaba kolay gelsin iyi çalışmalar

ADA | 810000042226 | ₺624,9 | 22.02.2021
BEMKA | 810000338624 | ₺116,7 | 22.02.2021

diye devam eden elimde böyle liste var ben sadece 810000042226 kısmını almak istiyorum baştaki isimler değişken olabiliyor. =PARÇAAL(A2;9;13) bu formülü kullandığımda birinde alıyor diğerinde baştaki isim uzun olduğu için sapıtıyor. listeler a1 den itibaren başlıyor şimdiden yardımlarınız için teşekkürler.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
=TRIM(MID(SUBSTITUTE("|"&MID($A1;1;LEN($A1));"|";REPT(" ";255));2*255;255))
TRIM = KIRP
MID = PARÇAAL
SUBSTITUTE = YERİNEKOY
LEN = UZUNLUK
REPT = YİNELE
 

onder_09

Altın Üye
Katılım
17 Mart 2017
Mesajlar
201
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
19-07-2025
Deneyiniz.

C++:
=TRIM(MID(SUBSTITUTE("|"&MID($A1;1;LEN($A1));"|";REPT(" ";255));2*255;255))
TRIM = KIRP
MID = PARÇAAL
SUBSTITUTE = YERİNEKOY
LEN = UZUNLUK
REPT = YİNELE
Ellerinize kollarınıza emeğinize sağlık
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,323
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Google Sheets'de şöyle yapılabilir;

JavaScript:
=index(split(A1;"|";true;true);2)
.
 

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Bu da RegExp ile alternatif olsun:
Ayıklanması istenen verilerin A sütununda bulunduğu varsayılmış, ayıklanan verilerin aynı satırda F sütununa atılması ön görülmüştür:
Kod:
Sub metinden_ayir()
'Başlamadan önce:::
'VBA Penceresinde:: Tools >> References >> (açılan pencereden) Microsoft VBScript Regular Expressions... referansını işaretleyiniz, Tamam diyerek onaylayınız.
Dim reg As RegExp, ptt As String, hcr As Range, veriler As Object
Dim ss As Long

ss = Sayfa1.Range("A54321").End(3).Row

Set reg = New RegExp
ptt = "\|\s?\d+\s?\|"
reg.Pattern = ptt
reg.Global = True
For i = 2 To ss
    Set hcr = Sayfa1.Range("A" & i)

    Set veriler = reg.Execute(hcr.Value)
    If veriler.Count > 0 Then
        For d = 1 To veriler.Count
            Sayfa1.Cells(i, d + 5).Value = Replace(Replace(veriler(d - 1), "|", ""), " ", "")
        Next d
    End If
Next i
End Sub
 

onder_09

Altın Üye
Katılım
17 Mart 2017
Mesajlar
201
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
19-07-2025
"SAYIN *** *** TOPLAMDA ARALIK AYI DAHİL 300 TL AİDAT BORCUNUZ VARDIR." elimde buna benzer metinler bulunmaktadır bu metin içindeki 300 TL yazısını nasıl alabilirim ?
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Metindeki kelime dizilimlerinizde standart varmı?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Rakamın solundaki DAHİL ve sağındaki AİDAT kelimeleri her satırda aynı şekilde mi?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Pratik olarak formül yerine Hızlı Doldur özelliğini kullanabilirsiniz.

Hızlı Doldur (Flash Fill)

Ayrıca formülle çözüm için ekteki dosyayı deneyebilirsiniz. İki farklı çözüm var. Daha da arttırılabilir.
 

Ekli dosyalar

onder_09

Altın Üye
Katılım
17 Mart 2017
Mesajlar
201
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
19-07-2025
Üst