Satırdan Parça Parça Veri Alma

[osman68]

Arkadaşlar bir sorunum var satırlarda 01.01.2018,123453,Osman Ltd.Şti., gibi bir veri var hepsi , (virgül) ile ayrılmış ben bu virgülle ayrılan yerleri yeni bir satıra atmak istiyorum
yani a= Tarih B = Numara C= Cari şeklinde olacak uygun bir formül var mı?

 

[netzone]

Merhaba,

Virgüllerle ayrılmış dökümanınızı "Veri > Metni Sütunlara Dönüştür" yolunu izleyerek virgülleri ayraç olarak belirtirseniz istediğinizi elde edebilirsiniz.

Bunun dışında Formüller isterseniz içeriğin tamamını yazarsanız arkadaşlarımız yardımcı olabilirler diye düşünüyorum.

*İPUCU* ilk satırı el yordamıyla hücreden alınacak verilerle doldurup bir alt satırına geçip CTRL+E tuşlarına basarsanız üstteki değerleri referans alıp aynı konumlardan verileri çekerek otomatik dolduracaktır. (Excel 2016*)

iyi çalışmalar.

 

[osman68]

Teşekürler "Metni Sutunlara Dönüştür" işe yaramaz çünki virgül araları eşit değil, diğerini denedim olmadı.

 

[Orion1]

A sütunundaki değerleri virgüle göre sütun,sütun aktarır.
Buyurun.

Sub virgulayir59()
Dim deg, k As Integer, i As Long, sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sonsat
    deg = Split(Cells(i, "A").Value, ",")
    sut = 2
    For k = 0 To UBound(deg)
        Cells(i, sut).Value = deg(k)
        sut = sut + 1
    Next k
Next i
MsgBox "İşlem bitti" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Ali]

Veri A1 hücresinde ise

B1 hücresine

=KIRP(PARÇAAL(YERİNEKOY(","&$A$1;",";YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))

yazıp sağa doğru çekiniz.

 

[osman68]

Veri A1 hücresinde ise

B1 hücresine

=KIRP(PARÇAAL(YERİNEKOY(","&$A$1;",";YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))

yazıp sağa doğru çekiniz.

Tamam teşekürler işe yaradı ancak aşağı çeksem bile hala a1 sütunu için çalışıyor a2,a3,a4 sutunlarında da veri var aşağı çekince çalışmıyor hala 1. sutunda var mı bir çözümü?

 

[çıtır]

Excel in hızlı doldurma özelliğinden faydalanın.ilk sütunları istediğiniz şekilde doldurun.Veri sekmesinde hızlı doldurma ((ctrl+E) tuşlayın .Diğerlerini doldursun.

 

[osman68]

Excel in hızlı doldurma özelliğinden faydalanın.ilk sütunları istediğiniz şekilde doldurun.Veri sekmesinde hızlı doldurma ((ctrl+E) tuşlayın .Diğerlerini doldursun.

KIRP(PARÇAAL(YERİNEKOY(","&$D$1;",";YİNELE(" ";255));SÜTUNSAY($D$125)*255;255))

olmuyor bakın 25. satırda "D1" Sabit kalıyor ama kalmaması gerekiyor "D25" olmalı üstelik yerine koy yinele kısmıda öyle.

 

[çıtır]

Kısa bir örnek dosya ekler misiniz.Altın üyeliğiniz var ,sizin için umarım zor olmaz.

 

[osman68]

Buyrun uğraştım ama ben yapamadım sağolun.

 

[Haluk]

Örnek dosyanıza göre hazırlanmış çözüm ektedir.

.

 

[çıtır]

Formülsüz çözüm ,birlikte deneyelim.Dosya ekte kolay gelsin.
Dosyada yapım açıklamasını hatalı yazmışım. ctrl basılı iken E tuşlayınız olaçak

 

[osman68]

Formülsüz çözüm ,birlikte deneyelim.Dosya ekte kolay gelsin.
Dosyada yapım açıklamasını hatalı yazmışım. ctrl basılı iken E tuşlayınız olaçak

olmadı excel versiyonunda mı acaba bir sıkındı mı var acaba

 

[osman68]

Örnek dosyanıza göre hazırlanmış çözüm ektedir.

.

Çok teşekür ederim işimi gördü. Ancak ben bu dosya ile her ay iki çalışma yapacağım. Bunu formülü kendim yazabileceğim bir yada kendim hazırlayabileceğim bir yol var mı?

 

[Ali]

tamam teşekürler işe yaradı ancak aşağı çeksem bile hala a1 sütunu için çalışıyor a2,a3,a4 sutunlarında da veri var aşağı çekince çalışmıyor hala 1. Sutunda var mı bir çözümü?

=KIRP(PARÇAAL(YERİNEKOY(","&$A1;",";YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))

gibi $ işaretini başa alırsınız