Aynı Hücre İçerisindeki Verileri Ayrı Satırlar Haline Getirme

genesis_vision

Altın Üye
Altın Üye
Katılım
27 Mayıs 2018
Mesajlar
16
Beğeniler
2
Excel Vers. ve Dili
2016 x64
#1
Değerli dostlar aynı hücre içerisinde alt alta yazılmış (Alt+Enter ile) 46 satırlık veriler mevcut. Bu verileri bağımsız satırlar haline getirmenin bir yolu var mıdır? Yerli, yabancı kaynaklardan araştırma yaptım ama maalesef aradğımı bulamadım. Katkıda bulunabilecek olanlara teşekkürlerimi sunarım
 

Ekli dosyalar

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,042
Beğeniler
65
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#2
Merhaba,

Kodu dener misiniz.

Kod:
Sub deneme()

Sheets.Add
x = 1
s = 1
For Each bol In Sayfa1.Range("a1").CurrentRegion
dizi = VBA.Split(bol, Chr(10))

For Each deg In dizi
Data = VBA.Split(deg, "#")

For Each i In Data

Cells(x, s) = i
s = s + 1
Next i
s = 1
x = x + 1
Next deg
Next bol

End Sub
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,390
Beğeniler
26
Excel Vers. ve Dili
Office 2010 & 2013 tr
#3
Selamlar,
Makro ya da fonksiyon kullanmadan "metni sütunlara dönüştür" menüsünü kullanarak da hücreyi bölebilirsiniz?
Belirttiğim yolu izleyiniz.
Verilerin bulunduğu sütunu seçiniz. Ardından:
VERİ>Metni Sütunlara Dönüştür>Sınırlandırılmış-İleri
Diğer seçeneğindeki kutucuğa gelerek ALT tuşuna basılı tutarak "010" sayılarını girin ve "Son" tuşuna basın...
 
Katılım
23 Eylül 2013
Mesajlar
1,344
Beğeniler
3
Excel Vers. ve Dili
Excel 2007 İngilizce -
Excel 2010 Türkçe -
Excel 2013 Türkçe -
#4
Merhaba,
Alternatif olsun.
Kod:
Function Ayır_Damga(i As String, j As Integer)
    metin = Split(i, Chr(10))
    Ayır_Damga = metin(j - 1)
End Function
Kullanılışı: Ayır_Damga(A$1;1)
Formül içerisinde 1 yerine Satır(A1) yazıp aşağı çektiğinizde verileri alt alta listeleyecektir.
 

genesis_vision

Altın Üye
Altın Üye
Katılım
27 Mayıs 2018
Mesajlar
16
Beğeniler
2
Excel Vers. ve Dili
2016 x64
#5
Ne kadar teşekkür etsem azdır. Yardımcı olan herkese çok teşekkür ederim.
 

genesis_vision

Altın Üye
Altın Üye
Katılım
27 Mayıs 2018
Mesajlar
16
Beğeniler
2
Excel Vers. ve Dili
2016 x64
#6
Merhaba,

Kodu dener misiniz.

Kod:
Sub deneme()

Sheets.Add
x = 1
s = 1
For Each bol In Sayfa1.Range("a1").CurrentRegion
dizi = VBA.Split(bol, Chr(10))

For Each deg In dizi
Data = VBA.Split(deg, "#")

For Each i In Data

Cells(x, s) = i
s = s + 1
Next i
s = 1
x = x + 1
Next deg
Next bol

End Sub
Hocam ne kadar düşünceli bir insansınız. Hem satırlara hem de sütunlara bölüyor. Körün istediği bir göz Allah verdi iki göz:) Çok sade ve işlevsel. Tekrar teşekkür ediyorum. Bilginize ve emeğinize sağlık.
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,042
Beğeniler
65
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#7
Hocam ne kadar düşünceli bir insansınız. Hem satırlara hem de sütunlara bölüyor. Körün istediği bir göz Allah verdi iki göz:) Çok sade ve işlevsel. Tekrar teşekkür ediyorum. Bilginize ve emeğinize sağlık.
Ben teşekkür ederim,sağ olun.
 
Üst