excel de bir hücre içindeki verileri ayrıştırma

[tan968]

Merhaba bu konu da acil yardıma ihtiyacım var.

1000 ................... HF6005 LENZ
10000025 ........AF435KM KZOO
10000028 .........AH19067 CECO
10000041 ......... AF437K1 KZOO

bu veriler 4 satırda ve bir hücrede bana

A B C
1000 HF6005 LENZ
100000 AF435KM KZOO

Şeklinde 3 ayrı kolna ayırmam gerekiyor. Yardımcı olursanız çok sevinirim.

Şimdiden teşekkürler

 

[Ömer]

Merhaba,

Veri düzenini görebilmek için sorularınız küçük bir örnek dosya ile destekleyip sormanızı rica ederim.

Veri/Metni Sütunlara dönüştür menüsünü kullanabilirsiniz.

 

[tan968]

Merhaba,

Veri düzenini görebilmek için sorularınız küçük bir örnek dosya ile destekleyip sormanızı rica ederim.

Veri/Metni Sütunlara dönüştür menüsünü kullanabilirsiniz.

Veri/metni seçeneğini denedim. Belli bir sıra da gitmediği için olmuyor. Sağdan veya soldan formülleri ile bir yere geliyorum ama orta kısmı halledemiyorum.

 

[Ömer]

Küçük bir örnek dosya ekleyerek açıklarmısınız.

 

[tan968]

dosyayı nereden ekleyeceğimi bulamadım
A1 hücresinde yazılı olan "1000 ................... HF6005 LENZ"
bunu 1000 B2 cüresine HF6005 i C2 hücresine LENZ i D2 hücresine yazmalıyım

 

[Ömer]

dosyayı nereden ekleyeceğimi bulamadım
A1 hücresinde yazılı olan "1000 ................... HF6005 LENZ"
bunu 1000 B2 cüresine HF6005 i C2 hücresine LENZ i D2 hücresine yazmalıyım

B1:

=soldan(a1;bul(" ";a1)-1)

C1:

=soldan(kırp(yerinekoy(yerinekoy(a1;".";"");b1&" ";""));bul(" "
 ;kırp(yerinekoy(yerinekoy(a1;".";"");b1&" ";"")))-1)

D1:

=sağdan(a1;uzunluk(a1)-bul("*";yerinekoy(a1;" ";"*"
 ;uzunluk(a1)-uzunluk(yerinekoy(a1;" ";"")))))

.

 

[tan968]

ellerine sağlık çok teşekkür ederim

 

[tan968]

Ömer merhaba

bi konuda daha yardımcı olabilirmisin?
2703500 AF304M UFI 2703500 AF304M UFI
7680358 ST1408 MAHLE 7680358 ST1408 MAHLE
768 037 4 ST1410 MAHLE 768 037 MAHLE
768 037 6 ST1409 MAHLE 768 037 MAHLE
774 036 8 ST1704 MAHLE 774 036 MAHLE
RL 035 B25 B ST1725 STUF RL 035 STUF
RL 035 B40 B ST1726 STUF RL 035 STUF
RL 035 E10 B ST1503 STUF RL 035 STUF

dün yazdığın formüller çok işime yardı. yukarda sodaki numaralar arasında boşluklar var. "768 037 4 ST1410 MAHLE" A1 hücresinde fakat soldaki "768 037 4" arada boşluk olduğu için B1 e 768 yazıyor. bunu nasıl halledebilirim. Burdan dosya koymayı beceremediğim den mail adresi verirsen dosyayı sana gönderebilirim

 

[Ömer]

Burdan dosya koymayı beceremediğim den mail adresi verirsen dosyayı sana gönderebilirim

Linki inceleyin.

Sorunun devamında, ataç eklemek( Dosya eklemek).

.

 

[tan968]

dosyaı ek te gönderdim. şimdiden teşekür ederim

 

[Ömer]

Tüm çalışma 1 ve 2.satırdaki mantık ile mi ayrılacak. Örneğin 14. satıra yazdığınız çözüm yanlış mı?

.

 

[tan968]

Tüm çalışma 1 ve 2.satırdaki mantık ile mi ayrılacak. Örneğin 14. satıra yazdığınız çözüm yanlış mı?

.

Evet senin formülünle bir çözüm yaptık fakat baştaki boşluk sorun oluyor. Manuel yapmak durumunda kaldık. Olması gereken 1 ve 2 nci satırdaki gibi olması gerekiyor. yani A1 deki orj A1 de duracak B C D ayyrıştırlımış olacak. İlk rakam veya harfler orjinal no sonrasında gelen marka nosu son harlerde marka kısaltması

 

[Ömer]

Eğer veri sayısı bu kadar fazla ise makro kullanmanızı tavsiye ederim.

Module kopyalayıp çalıştırın.

Sub Ayristir()
 
    Dim i As Long, a As Variant
 
    Application.ScreenUpdating = False
    Range("B:D").ClearContents
    On Error Resume Next
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        With Cells(i, "A")
            a = Split(.Value, " ")
            .Offset(0, 2) = a(UBound(a) - 1)
            .Offset(0, 3) = a(UBound(a))
            .Offset(0, 1) = Trim(Left(.Value, Len(.Value) - _
                    Len(.Offset(0, 2)) - Len(.Offset(0, 3)) - 1))
        End With
    Next i
 
End Sub

.