Aktarma Yatay bilgileri dikey Olarak

[mustafakoker]

Hayırlı akşamlar Ekteki örneğimde sayfa 1 deki verilerimi sayfa3 e dikey olarak makroyla aktarmak istiyorum

(sutun4 sutun 9 arasındakı bilgiler) sayfa 3 teki yerlerine aktarmak istiyorum
aktarım yaparken:buradakı yatay bilgileri sayfa3 dikey olarak aktaracak
örnek sayfa 3 te = kullanarak yapıyorum ama kod kullanarak yapması daha sağlıklı olur diye düşündüm

Yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, X As Byte, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa3")
    
    Application.ScreenUpdating = False
    
    S2.Range("B5:G65536").ClearContents
    Satır = 5
    
    For X = 2 To S1.Range("IV4").End(1).Column
        With S2
            .Cells(Satır, "B") = S1.Cells(4, X)
            .Cells(Satır, "C") = S1.Cells(5, X)
            .Cells(Satır, "D") = S1.Cells(6, X)
            .Cells(Satır, "E") = S1.Cells(7, X)
            .Cells(Satır, "F") = S1.Cells(8, X)
            .Cells(Satır, "G") = S1.Cells(9, X)
        End With
        Satır = Satır + 1
    Next
    
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mustafakoker]

Korhan bey gecenin bu saatinde yardımlarınız için teşekkürler

Hayırlı geceler sağolun

 

[desk]

Şanslısın servisi kalkmıyor bu saatte.

 

[mustafakoker]

ne demek isteiğinizi anlayamadım