A sütunun dan istediğim kısmı aradan almak istiyorum.

[vakyn]

A Sütunumda bu kod yazmaktadır.
1594-4652-geme-tek-b2
B Sütunuma geme yazısını çekmek istiyorum.

4000 bin satır var ve aşağı doğru bu kodların sıralaması değişmiyor, fakat içeriği değişiyor yardımcı olabilir misiniz.

Teşekkürler.

 

[hasankardas]

=PARÇAAL(A2;11;4)
dener misiniz?

 

[vakyn]

D

=PARÇAAL(A2;11;4)
dener misiniz?

Formül öneriniz çok güzel çalıştı fakat aşağı doğru indiğimde bazı satırlarda kayma olmuş çünkü
1594-4652-geme-tek-b2
1594-411-geme-tek-b2

mor ile işaretlediğim kısımlarda rakam farklılıkları varmış sonradan fark ettim bunun için yapılabilecek bir formül öneriniz varmı acaba.

 

[Korhan Ayhan]

Deneyiniz.

=EĞER(ESAYIYSA(MBUL("-geme-";A1));"geme";"")

Bir diğer önerim;

=FİLTRE(A:A;ESAYIYSA(MBUL("-geme-";A:A));"")

 

[vakyn]

Deneyiniz.

=EĞER(ESAYIYSA(MBUL("-geme-";A1));"geme";"")

Bir diğer önerim;

=FİLTRE(A:A;ESAYIYSA(MBUL("-geme-";A:A));"")

Korhan bey,
Formülleriniz çok güzel çalışıyor fakat geme yazısı bazı noktalarda geye olarak da değişiyor bu durumda değişken spec numaralarını tespit etmek için başka bir öneriniz varmı ama ilk vermiş olduğunuz formül direk spec numarasını gayet güzel çekiyor alt satırlarda değişkenlik gösterdiğinde boş bırakıyor.

 

[Erkan Akayay]

3. sırada ne varsa onu getirir.

=KIRP(PARÇAAL(YERİNEKOY(A1;"-";YİNELE(" ";UZUNLUK(A1))); 2*UZUNLUK(A1)+1; UZUNLUK(A1)))

 

[excelokyanus500]

Makro ile yapmak isterseniz. Örnek

Sub ParcalaBirlestir()
 
Dim Bakbuna As String
Dim Say As Integer
Dim YardimciBolen As Variant
 
SonSat = Cells(Rows.Count, 1).End(xlUp).Row ' Son satır için A sütununa bakar
For i = 1 To SonSat

Bakbuna = Range("A" & i).Value ' Değerlerin olduğu hücreler
 
YardimciBolen = Split(Bakbuna, "-")
 
For Say = 0 To UBound(YardimciBolen)
    Cells(i, Say + 2) = YardimciBolen(Say)
    Cells(i, Say + 2) = YardimciBolen(Say)
    Cells(i, Say + 3).FormulaR1C1 = "=RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
    Cells(i, Say + 3).Value = Cells(i, Say + 3).Value
Next
 Next
End Sub

 

[vakyn]

3. sırada ne varsa onu getirir.

=KIRP(PARÇAAL(YERİNEKOY(A1;"-";YİNELE(" ";UZUNLUK(A1))); 2*UZUNLUK(A1)+1; UZUNLUK(A1)))

Mu formül şahane oldu çok işimi gördü çok teşekkürler Erkan bey ve tüm yanıt veren arkadaşlar iyi günler dilerim.