Dear Mas Ario
Terima kasih atas supportnya, sangat membantu sekali, namun saya belum memahami
macro sama sekali, bisa di bantu mas untuk description tiap syntax nya?
Sehingga saya bisa mengembangkan dalam bentuk record data yang saya gunakan.
(maaf jadi melebar pertanyaannya)
Sub Button1_Click()
Dim a, b, c, rws, cols As Long
Dim Data As String
a = WorksheetFunction.CountA(Rows(1)) - 1
b = WorksheetFunction.CountA(Range("A:A")) - 1
c = b + 3
Range("A1").Select
For cols = 1 To b
For rws = 1 To a + 1
Range("A" & c).Value = ActiveCell.Offset(0, cols).Value
Range("B" & c).Value = ActiveCell.Offset(rws, 0).Value
Range("C" & c).Value = ActiveCell.Offset(rws, cols).Value
c = c + 1
Next rws
Next cols
End Sub
Thanks
BR
Muhammad Iqbal
From: [email protected] [mailto:[email protected]]
Sent: January 7, 2017 9:11 AM
To: [email protected]
Subject: Re: [belajar-excel] merubah data vertical to data horizontal [1
Attachment]
Assalamualaikum Muhammad.
Terlampir file nya menggunakan Macro seadanya.
Maaf kalau belum seperti kemauan.
Wassalam
Sony
2016-12-28 16:09 GMT+07:00 'Muhammad Iqbal' [email protected]
[belajar-excel] <[email protected]>:
Dear be excel
Mohon saran untuk logika/formulasi untuk merubah data dari bentuk horizontal
menjadi bentuk vertical dibawah ini
Data awal :
Item
1-Jan-16
2-Jan-16
3-Jan-16
4-Jan-16
Alfa
10
10
11
13
beta
12
12
11
10
gama
14
13
14
11
omega
17
16
17
16
tetra
14
13
14
14
Akan di ubah menjadi bentuk seperti ini
Tanggal
Item
1-Jan-16
Alfa
1-Jan-16
Beta
1-Jan-16
Gama
1-Jan-16
Omega
1-Jan-16
Tetra
2-Jan-16
Alfa
2-Jan-16
Beta
2-Jan-16
Gama
2-Jan-16
Omega
2-Jan-16
Tetra
3-Jan-16
Alfa
3-Jan-16
Beta
3-Jan-16
Gama
3-Jan-16
Omega
3-Jan-16
tetra
4-Jan-16
Alfa
4-Jan-16
beta
4-Jan-16
gama
4-Jan-16
omega
4-Jan-16
tetra
Selama ini masih saya lakukan secara manual dengan copy paste.
Matursuwun sebelumnya.
BR
Muhammad Iqbal
