نقل البيانات من جدول افقى متغير إلى جدول رأسى متتالى

[سالم سالم]

لدى جدول افقى متغبر الارتفاع واريد نقل بياناته تحت بعض بدون فراغات الى جدول راسى بارك الله فيكم

حركة البيع الاسبوعية.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

لعل هذا الكود ان يفى بالغرض

Sub ReArrang_Data()
Dim ws As Worksheet, C As Range
Dim i As Long, p As Long
Set ws = Sheets("Sheet1")
p = 3
i = 6
Do While i <= 16
For Each C In ws.Range(Cells(4, i), Cells(19, i))
If Len(C) > 0 Then
p = p + 1
ws.Cells(p, 2) = C.Value
ws.Cells(p, 3) = C.Offset(0, 1).Value
End If
Next
i = i + 2
Loop
End Sub

 

[سالم سالم]

جزاكم الله خيرا استاذ/ ابراهيم