Veri Ayırma...

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
364
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
27.09.2026
Merhabalar

Ekteki ecxel tablosunda, sağ taraftaki tek sütunda alt alta olan verileri soldaki 4 ayrı sütuna ayırmak istiyorum, Liste çok uzun İlk 2 satırı manuel yaptım ancak Formülle nasıl yaparım yardımcı olmanızı rica ederim, Şimdiden çok teşekkürler. Saygılar
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

A3 hücresine uygulayın ve sağa ve aşağı kopyalayın.
.
Kod:
=[COLOR="red"]KAYDIR[/COLOR]($F$2;([COLOR="red"]SATIRSAY[/COLOR](A$3:A3)-1)*4+[COLOR="Red"]SÜTUNSAY[/COLOR]($A3:A3);0)
Bu da makro ile çözüm olarak alternatif olsun.
.
Kod:
[FONT="Arial Narrow"][B]Sub TEKSUT_DORTSUT()[/B]
For satır = 3 To ([F65536].End(3).Row - 2) / 4 + 2
    For sütun = 1 To 4
    Cells(satır, sütun) = Cells(((satır - 3) * 4) + sütun + 2, 6)
    Next
Next
MsgBox "İşlem tamamlandı...", vbInformation, "..:: O.BARAN ::.."
[B]End Sub[/B][/FONT]
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
İki cevabı önceki cevapta birleştirdim.
.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Tek döngü ile makroya alternatif..

Kod:
[SIZE="2"]Sub Emre()
    s = 3
    For i = 3 To Range("F65536").End(3).Row Step 4
        Range("A" & s).Resize(, 4).Value = Application.Transpose(Range(Cells(i, "F"), Cells(i + 3, "F")).Value)
        s = s + 1
    Next i
End Sub[/SIZE]
 

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
364
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
27.09.2026
Ömer Bey cevap için çok çok teşekkür ederim, elinize sağlık. Formülünüz işimi çözdü ancak Fonksiyonları kısmen tanıyorum fakat sizin kullandığınız şekilde kullanmayı kafamda tasarlamakta zorluk çekiyorum. Belki zamanla gelişecek, tekrar çok teşekkürler , Saygılar
 

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
364
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
27.09.2026
Murat Bey Size de çok teşekkürler, emeğinize sağlık...
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Ben dahil formül cevabı verenlerin, formülü doğrudan yazdıklarını düşünmeyin.

Sizin örneğinizde, önemli olan F sütunundaki ritim.
Bu ritim anlaşılınca gerisi kolay zaten.

-- Önce formüldeki (SATIRSAY(A$3:A3)-1)*4+SÜTUNSAY($A3:A3) kısmını,
-- sonra da aynı formülü (SATIRSAY(A$3:A3)-1)*4&":"&SÜTUNSAY($A3:A3) olarak değiştirerek
-- hatta + işaretinden öncesini ve sonrasını ayrı ayrı

A3 hücresine uygulayıp sağa/aşağı kopyalarsanız, işlemin daha anlaşılır olacağını sanıyorum.
-- Hatta yukarıdaki formül parçası yerine, daha pratik olarak (SATIR()-3)*4+SÜTUN() kullanılabilirdi,
o sırada aklıma satır ve sütun saymak gelmiş demekki.

Böylece kayma miktarının, ne kadarının satırdan ne kadarının da sütundan kaynaklı olduğu daha iyi anlaşılacaktır.
.
 

Erdem Akdemir

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,636
Excel Vers. ve Dili
2016 PRO TÜRKÇE-İNG. 64 BİT
Alternatif,

Kod:
=KAYDIR($F3;((SATIR(A1)-1)*3)+SÜTUN()-1;)
 

altan888

Altın Üye
Katılım
15 Şubat 2008
Mesajlar
364
Excel Vers. ve Dili
Excel 2016 TR
Altın Üyelik Bitiş Tarihi
27.09.2026
Tüm cevaplar için çok teşekkürler, emeğinize sağlık , iyi günler ...
 
Üst