FYI,
semoga bisa membantu (maklum baru belajar juga nih)
Sub btn_copy()
Sheet1.Activate
Range("c2").Select
tgl = Range("c2").Value
Sheets("data base").Select
Range("d2").Select
langkah = (tgl - 2) + tgl
ActiveCell.Offset(2, langkah).Select
Sheet1.Activate
Range("C4:D68").Select
Selection.Copy
Sheets("data base").Select
ActiveSheet.Paste
End Sub
Regards
--- In [email protected], "taufik" <[EMAIL PROTECTED]> wrote:
>
> Dear Pakar XL,
>
> Bisa bantu saya untuk buat makro mengcopy data dari data entry /
sheet1 ke database sesuai tanggal yang diinginkan (me-refer ke cell yang
sudah ditentukan) file dimaksud terlampir.
>
> matur nuwun.
>
