8 satırlık yatay devam eden verileri bir sütuna kopyalamak

[modoste]

merhaba sayın hocalarım
ekli tablomda H14:Z21 arasındaki verileri F14 den başlayacak şekilde düşey bir şekilde formülle taşımak istiyorum.

 

[modoste]

mavi dolgulu yerleri yardımcı hücreler olarak kullanarak sorumu kendim çözdüm ama ilk halinin çözümünü öğrenmek istiyorum.

 

[Murat OSMA]

Makro ile de alternatif isterseniz, bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim sat%, sut%
    sat = 14: sut = 8
    While Cells(14, sut) <> ""
        Range(Cells(14, sut), Cells(21, sut)).Select
        Range(Selection, Selection.End(xlDown)).Copy Cells(sat, "F")
        sat = sat + 8: sut = sut + 1
    Wend
    sut = Empty: sat = Empty
End Sub[/FONT]

 

[modoste]

makro için teşekkür ederim ama formülle çözüm gerekiyor.