Satırı sütuna çevirme

[steppe]

Örnekteki gibi Sayfa2'deki verileri Sayfa1'e aktarmak istiyorum.Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Long, a As Long
 
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    S1.Range("A2:D" & Rows.Count).ClearContents
 
    sat = 2
    For i = 1 To S2.Cells(Rows.Count, "A").End(xlUp).Row
        If S2.Cells(i, "B") <> "" Then
            a = S2.Cells(i, "A").End(xlUp).Row
            S1.Cells(sat, "A") = S2.Cells(a, "A")
            S1.Cells(sat, "B") = S2.Cells(i, "A")
            S1.Cells(sat, "C") = S2.Cells(i, "C")
            S1.Cells(sat, "D") = S2.Cells(i, "D")
            sat = sat + 1
        End If
    Next i
 
End Sub

.

 

[steppe]

Ömer Kardeş,
Çok teşekkür ederim,tam istediğim gibi olmuş.