• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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
7
Beğeniler
1
Excel Vers. ve Dili
2010 x86
#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
2,836
Beğeniler
23
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
 
Katılım
15 Nisan 2007
Mesajlar
3,334
Beğeniler
13
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,343
Beğeniler
2
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
7
Beğeniler
1
Excel Vers. ve Dili
2010 x86
#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
2,836
Beğeniler
23
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