mencoba memberi alternatif lain:
Private Sub CommandButton1_Click()
Sheet1.Range("C5:D68").Copy Destination:=Sheet2.Cells(5, Col_Target)
Sheet2.Activate: Sheet2.Cells(5, Col_Target).Select
End Sub
Function Col_Target() As Long 'mencari kolom yg sesuai dg kriteria tanggal
Dim selTgl As Long
If Sheet1.Range("C2").Value <= 0 Or Sheet1.Range("C2").Value > 31 Then
MsgBox "Nilai tanggal tidak dikenal", vbInformation, "Periksa Tanggal"
End
End If
For selTgl = 4 To 66 Step 2
If Sheet2.Cells(2, selTgl).Value = Sheet1.Range("C2").Value Then
Col_Target = selTgl: Exit For
End If
Next
End Function
On 8/11/08, Latief <[EMAIL PROTECTED]> wrote:
>
> 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.
>>
>
>
>
>
