Veri Ayırma...

[altan888]

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

 

[Ömer BARAN]

Merhaba.

A3 hücresine uygulayın ve sağa ve aşağı kopyalayın.
.

=[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.
.

[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]

İki cevabı önceki cevapta birleştirdim.
.

 

[Murat OSMA]

Tek döngü ile makroya alternatif..

[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]

Ö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]

Murat Bey Size de çok teşekkürler, emeğinize sağlık...

 

[Ömer BARAN]

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]

Alternatif,

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

 

[altan888]

Tüm cevaplar için çok teşekkürler, emeğinize sağlık , iyi günler ...