Hello mas solihin,
Bisa pakai code dibawah
Private Sub CommandButton1_Click()
Dim sumber As Range, tujuan As Range
With Sheets("Master_Data")
Set sumber = Range("C2,C4,C6,C8,C10")
Set tujuan = .Range("D65536").End(xlUp).Cells(2, 1)
sumber.Copy
tujuan.PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
Application.CutCopyMode = False
.Select
.Range("A1").Select
End With
Sheets("Form").Select
End Sub
truble ticket ( solved ).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
