Input data Transpose

Buatlah sebuah modul tombol panggil modul

pastekan kode ini pada modul tersebut :

Sub Copy_transpose_kebaris_terakhir()

Set salin = Sheets("Sheet1").Range("B6:B15")

Set SIMPAN = Sheets("Sheet2").Cells(Cells.Rows.Count, 2).End(xlUp).Offset(1, 0)

salin.Copy

SIMPAN.PasteSpecial Transpose:=True

End Sub

sampel file xlsm silakan unduh :
Input Transpose