Ters yapıştır

[saracevic]

Merhabalar,

Ekli dosyadaki çalışma sayfasında bulunan verileri,çalışma sheetine nasıl dönüştürebiliriz.Desteğinizi rica ederim.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki formülü B2 hücresine uygulayıp aşağı doğru 2441'inci
(244 sütun var, o nedenle 2440*10 + başlık satırı=2441) satıra kadar (bu satır dahil)
kopyalayınız.

=İNDİS(ÖRNEK!$A$2:$IJ$11;EĞER(MOD(SATIR()-1;10)=0;10;MOD(SATIR()-1;10));TAMSAYI((SATIR()-2)/10)+1)

 

[veyselemre]

Sub TEST()
    
    Set so = Sheets("Örnek")
    Set sc = Sheets("ÇALIŞMA")

    sonSat = sc.[a65536].End(3).Row
    
    sat = 15
    For i = 1 To sonSat Step 10
        sut = sut + 1
        If sut > 256 Then sut = 1: sat = sat + 11
        so.Cells(sat - 1, sut) = sut
        sc.Cells(i, 2).Resize(10).Copy so.Cells(sat, sut)
    Next i
    
End Sub

 

[saracevic]

Sub TEST()
    
    Set so = Sheets("Örnek")
    Set sc = Sheets("ÇALIŞMA")

    sonSat = sc.[a65536].End(3).Row
    
    sat = 15
    For i = 1 To sonSat Step 10
        sut = sut + 1
        If sut > 256 Then sut = 1: sat = sat + 11
        so.Cells(sat - 1, sut) = sut
        sc.Cells(i, 2).Resize(10).Copy so.Cells(sat, sut)
    Next i
    
End Sub

Teşekkürler çok işime yaradı.