Hai Shenly,Bisa dilampirkan dummy filenya ?
Salam,HK
On Monday, September 18, 2017, 5:04:18 PM GMT+7,
[email protected] [belajar-excel] <[email protected]>
wrote:
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 ???
