Ya mas trmksh banyak, maaf ni mau nanya lagi biasanya pada saat kita input data 
baru pasti masuknya di row 1, bisa gak/ada gak kode macro yg bisa membuat kita 
imput data baru berurutannya ke bawah bukan ke atas? Trmksh sebelumnya
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Mr. Kid" <[email protected]>
Sender: [email protected]
Date: Tue, 16 Oct 2012 00:36:50 
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] Mohon bantuannya mengenai auto open untuk formuser

Sama-sama.

Oh iya, script yang digunakan adalah prosedur-prosedur event dan sebuah
deklarasi variabel ber-scope private. (lihat di VBE)
1. ThisWorkbook (event workbook open)
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

2. UserForm1 :
>> Deklarasi variabel state tombol yang menutup userform
Private lState As Long

>> Event Initialize (saat userform di-load)
Private Sub UserForm_Initialize()
    With Application
        .ScreenUpdating = False
        .DisplayFullScreen = True
        Me.Height = .Height
        Me.Width = .Width
        .ScreenUpdating = True
    End With
End Sub

>> Event Terminate (saat userform di-unload)
Private Sub UserForm_Terminate()
    With Application
        .ScreenUpdating = False
        .WindowState = xlNormal
        .WindowState = xlMaximized
        .ScreenUpdating = True
        ThisWorkbook.Save
        .Visible = True
        If lState = -1 Then
            ThisWorkbook.Close False
        End If
    End With
End Sub

>> Event Click tombol 'Ke Workbook' [cmdToWbk] (untuk menutup userform dan
menampilkan workbook)
Private Sub cmdToWbk_Click()
    lState = 0
    Unload Me
End Sub

>> Event Click tombol 'Tutup' [cmdQuit] (untuk menutup userform kemudian
save dan menutup workbook)
Private Sub cmdQuit_Click()
    lState = -1
    Unload Me
End Sub

Wassalam,
Kid.




2012/10/15 HaDi SyaH <[email protected]>

> **
>
>
>
> terimaksih banyak mas,.. alhamdulilah sesuai harapan.
>
> ------------------------------
>
> On Mon, Oct 15, 2012 8:27 AM PDT Mr. Kid wrote:
>
> >Waalaikumussalam Wr. Wb.
> >
> >Coba file terlampir.
> >
> >Wassalamualaikum Wr. Wb.
> >Kid.
> >
> >2012/10/15 <[email protected]>
> >
> >> Assalamualaikum...
> >> Yang terhormat para mastr exel, ada beberapa hal yang ingin sy tanyakan,
> >> dan mohon bantuannya
> >> Yang ingin sy tanyakan bagaimana kode macro untuk auto open user form,
> >> yang pada saat mengklik file woorkbook/excel langsung muncul user form
> >> tanpa menampilkan workbooknya,
> >> Atas bantuannya sebelumnya sy ucapkan terima kasih
> >> Powered by Telkomsel BlackBerry®
> >>
> >> ------------------------------------
> >>
> >> ----------------------------------------------------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> [email protected]
> >>
> >> posting ke milis, kirimkan ke:
> >> [email protected]
> >>
> >> berkunjung ke web milis
> >> http://tech.groups.yahoo.com/group/belajar-excel/messages
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-archive.com/[email protected]/
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-belajar-excel.1048464.n5.nabble.com/
> >>
> >> menghubungi moderators & owners: [email protected]
> >>
> >> keluar dari membership milis (UnSubscribe):
> >> kirim mail kosong ke [email protected]
> >> ----------------------------------------------------------Yahoo!
> >> Groups Links
> >>
> >>
> >>
> >>
>
>  
>

Kirim email ke