Tranpose array
Salah satu model copy paste yakni copy paste data baris menjadi data kolom demikian pula sebaliknya sesuai funsi bawaan excel yang dikenal dengan Copy Transpose
Namun kali ini bagaimana mengaplikasikan fungsi tersebut ke sebuah macro atau Vba
Caranya juga cukup mudah kita hanya perlu sebuah modul yang akan kita panggil dengan sebuah modul
Buatlah table seperti gambar diatas kemudian buatlah sebuah modul dan pastekan kode berikut pada modul
Namun sebelumnya sesuaikan dengan nama sheet dimana dicopy dan dimana mau dipaste
Demikian pula cell atau area yang akan menjadi target harus disesuaikan dikode pada modul
Sub Tranpose()
Worksheets("data1").Range("A2:b20").Copy
Worksheets("data1").Range("d2").PasteSpecial Transpose:=True
End Sub
Selesai
semoga bermanfaat
Sampel file dapat didownload di link berikut
Salah satu model copy paste yakni copy paste data baris menjadi data kolom demikian pula sebaliknya sesuai funsi bawaan excel yang dikenal dengan Copy Transpose
Namun kali ini bagaimana mengaplikasikan fungsi tersebut ke sebuah macro atau Vba
Caranya juga cukup mudah kita hanya perlu sebuah modul yang akan kita panggil dengan sebuah modul
Buatlah table seperti gambar diatas kemudian buatlah sebuah modul dan pastekan kode berikut pada modul
Namun sebelumnya sesuaikan dengan nama sheet dimana dicopy dan dimana mau dipaste
Demikian pula cell atau area yang akan menjadi target harus disesuaikan dikode pada modul
Sub Tranpose()
Worksheets("data1").Range("A2:b20").Copy
Worksheets("data1").Range("d2").PasteSpecial Transpose:=True
End Sub
Selesai
semoga bermanfaat
Sampel file dapat didownload di link berikut
No comments:
Post a Comment