Hücreden Veri Almak

[esolen]

Arkadaşlar Merhaba;

Bir konuda yardımınıza ihtiyacım var,

Bir hücre içinde uzunlukları farklı olan bir metin bulunmaktadır. Benim amacım bu metinin içinde belli bir kelimeden sonra başlayan hücreyi almak, Bunu nasıl yapabilirim, Örnek metin aşağıdadır. işaretlediğim yeri başka bir hücreye taşımak istiyorum .

Dekont: Z00129 başka bir hücreye
02.11.2017 başka bir hücreye


Saygılarımla, ,



Dosya No: 2017/98631 - Evrak No: 2017-GE-450010 - Dekont: Z00129 / 02.11.2017 - Ref: P1123246/17 Z00129 2.11.2017

 

[Emir Hüseyin Çoban]

.

Dekont: ve Ref: kelimesi sabit her zaman var mı.

.

 

[esolen]

.

Dekont: ve Ref: verisi sabit her zaman var mı.

.

Veri uzunlukları her zaman değişken,

Değişmeyen kısım İstediğimiz bilgi Dekont kelimesinden sonraki bilgi

Özetle İstediğimiz bilgi Dekont ile Ref kelimelerinin arasında kalıyor. Uzunluklar sabit olmadığı için ben getiremedim.

 

[Emir Hüseyin Çoban]

.

Verinin A1 hücresinde olduğunu varsayarsak, aşağıdaki kodları deneyin.

Sub kod()

    v = Range("A1")

    bir = Split(v, "Dekont:")(1)
    iki = Split(bir, "Ref:")(0)
    iki = Replace(iki, " ", "")
    iki = Replace(iki, "-", "")

    Range("B1") = Split(iki, "/")(0)
    Range("C1") = Split(iki, "/")(1)


End Sub

.

 

[esolen]

Makro yapmadan çözme şansımız varmı acaba

 

[Emir Hüseyin Çoban]

.

Dekont No

=KIRP(SOLDAN(KIRP(YERİNEKOY(PARÇAAL(A1;(MBUL("Dekont:";A1)+7);MBUL("REF:";A1)-(MBUL("Dekont:";A1)+7));" -";""));BUL("/";KIRP(YERİNEKOY(PARÇAAL(A1;(MBUL("Dekont:";A1)+7);MBUL("REF:";A1)-(MBUL("Dekont:";A1)+7));" -";"")))-1))

Tarih

=KIRP(SAĞDAN(KIRP(YERİNEKOY(PARÇAAL(A1;(MBUL("Dekont:";A1)+7);MBUL("REF:";A1)-(MBUL("Dekont:";A1)+7));" -";""));UZUNLUK(KIRP(YERİNEKOY(PARÇAAL(A1;(MBUL("Dekont:";A1)+7);MBUL("REF:";A1)-(MBUL("Dekont:";A1)+7));" -";"")))-MBUL("/";KIRP(YERİNEKOY(PARÇAAL(A1;(MBUL("Dekont:";A1)+7);MBUL("REF:";A1)-(MBUL("Dekont:";A1)+7));" -";"")))))

.

 

[esolen]

Çok teşekkür ederim.
Benim için büyük bir yükü ortadan kaldırdınız...