asslamualakikum wr.wb
halo master, shenly kembali bertanya, sekrang sya ada masalah di coding macro,
dlu saya mendapatkan coding dari salah satu master disni, yang berbunyi sbb:
============================
Sub cobalagiaja()
Dim rngData As Range, lRows As Long 'variabel range data beserta
jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste
ActiveSheet.Unprotect Password:="mamamintapulsa"
Set rngData = Range("A22").CurrentRegion.Offset(1).Resize(, 1) 'record
data input kolom + 1 baris kosong terbawah
lRows = rngData.Rows.Count - 1 'jumlah
record
Sheets("Data").Select
Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range
posisi paste di kolom yg diingikn
rngData.Resize(lRows, 1).Copy 'copy
input kolom yg dinginkn
rngTarget.PasteSpecial xlPasteValues 'paste
values di posisi target kolom yg dinginkn
rngData.Offset(0, 1).Resize(lRows, 14).Copy 'copy
input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(0, 1).PasteSpecial xlPasteValues 'paste
values di posisi target kolom A lompat 2 kolom ke kanan
Sheets("Form").Select
Rows("23:1500").Select
Selection.Delete Shift:=xlUp
Range("J22:O22").Select
Selection.ClearContents
Range("F18").Select
ActiveWorkbook.Save
End Sub
=================
coding tersebut jika sya masukan di Command Buttom, akan terjadi kesalah
recod, Seprti : data yang dipindah entah masuk ke mana, jadi hasilnya seperti
mendelet data yg akan di pindah saja.
Tapi ketika sya buat coding tsb di Module, maka akan berjalan sesuai dgn yg
sya inginkn.
kira2 itu apa ya masalahnya master? kok tidak bisa di masukin di Command
buttom ???
