sebelumnya mohon Maaf saudara NangAgus. Maksud saya adalah bagaimana scrip
simple dari
tanggal "07-30-2014" agar saya tidak perlu lagi memasukan tanggal per sheet
jadi,mungkin menjadi seperti (misalnya):
exdate = "07-30-2014"
If Date < exdate Then
Sheets("PRINTOUT2")
Sheets("PRINTOUT3")
Sheets("PRINTOUT4")
Sheets("PRINTOUT5")
Sheets("PRINTOUT6") dst...
2013/10/17 nangAgus <nangag...@yahoo.co.id>
> **
>
>
> Dear Supri,
>
> Salam Warahmatullah
> ����Bagaimana jika Expire di letakkan di depan, sedangkan use form login
> sesudahnya?
> Tambahkan perintah menutup workbook���� jika tanggal sudah tercapai:
>
> Private Sub Workbook_Open()
> ������������ Application.Visible = False
> ������������ Dim exdate As Date
> ������������ exdate = "07-30-2014"
> ������������ If Date > exdate Then
> ������������ MsgBox ("Masa Berlaku Data Telah Berakhir Pada : " & exdate &
> ""), vbInformation, "INFO"
> ����ActiveWorkbook.Close
> End If
> ������������ If Date < exdate Then
> ������������ MsgBox ("Masa Berlaku data: { " & exdate & " }�������� dan
> masih sisa " & exdate - Date & " hari"), vbInformation, "Note"
> ������������ UserForm1.Show
> End If
> End Sub
>
>
> Salam Warahmatullah
>
> NangAgus
>
> On 16/10/2013 10:43, supri anto wrote:
>
> ����
>
> Assalamu������alaikum warohmatullahi wabarokatuuh������
>
> ������
>
> Yth Rekan-Rekan ������BeExceller
>
> ������
>
> Mohon Bantuannya,Adakah code vba yang lebih simpel untuk membuat tgl
> expired sheet. Agar tgl 07-30-204 ini tidak berulang-ulang di ketik pada
> setiap sheet,berikut scripnya dan untuk lebih jelasnya ada pada file
> lampiran.
>
> ������
>
> Private Sub CmdPrint2_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT2").Visible = xlSheetVisible
>
> Sheets("PRINTOUT2").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT2").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT2").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Private Sub CmdPrint3_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT3").Visible = xlSheetVisible
>
> Sheets("PRINTOUT3").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT3").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT3").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Private Sub CmdPrint4_Click()
>
> Application.ScreenUpdating = False
>
> exdate = "07-30-2014"
>
> If Date < exdate Then
>
> Sheets("PRINTOUT4").Visible = xlSheetVisible
>
> Sheets("PRINTOUT4").Select
>
> Sheets("Menu").Visible = xlVeryHidden
>
> If Date > exdate Then
>
> Sheets("PRINTOUT4").Visible = xlSheetVeryHidden
>
> Sheets("PRINTOUT4").Close
>
> Sheets("Menu").Visible = xlVeryHidden
>
> Application.ScreenUpdating = True
>
> End If
>
> End If
>
> End Sub
>
> ������
>
> Terima kasih sebelumnya������
>
> Wassalamu������alaikum warohamtullahi wabarokatuuh������
>
> ������
>
> Hormat saya,
>
> Suprianto
>
>
>
>
