Re: ]] XL-mania [[ Satu Form untuk multiple Sheet

'==module Userform==

Private Sub CommandButton1_Click()

   ' indri hapsari // sept 6. 2011

   '------------------------------

   Dim sht As Worksheet

   If TxtNomor = vbNullString Then

      MsgBox "Nomor Belum diisi !!", vbExclamation, "Media Order"

      TxtNomor.SetFocus

      Exit Sub

   Else

      For Each sht In Worksheets

         sht.Range("F6") = TxtNomor.Value

      Next

   End If

   Unload Me

End Sub

untuk menampilkan USERFORM:

(1)  Klik-Kanan salah satu cell di ROW1 (Sheet Mana Saja)

(2)  Klik SubMenu [Media Order Form]