mohon pencerahaannya,,,tetep gk bisa,,,heee,,,
________________________________
Dari: "the_x_mi...@yahoo.com" <the_x_mi...@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 22 Mei 2012 9:07
Judul: Re: Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di
sheet tertentu
Hi pak Achmad
Ada beberapa cara agar combo box terisi otomatis:
Salah satu nya adalah
Men define name yg merefer ke kolom yg diinginkan, lalu isikan name tersebut di
rowsource pada properties combo box
________________________________
From: achmad adi <dido...@ymail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 22 May 2012 09:48:39 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet
tertentu
trimakasih Ms. Markonah atas bantuannya,,,,
tetapi kok combo boxnya gak ada listdown nya,,,diketik manual,,,minta
untuk memeasukan ALOKASI,,,mohon pencerahaanya
________________________________
Dari: Markonah <markona...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 16 Mei 2012 18:04
Judul: Re: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet
tertentu
Option Explicit
' Pertanyaan Markonah 16Mei2012---------------------------------
' kalau prosedur ini diberlakukan truss bgmana dong cara untuk
' mengKlik Tombol "SIMPAN KE yg ada di sheet "dataentry" ???
'----------------------------------------------------------
'Private Sub Cbo_Alokasi_Change()
'If Cbo_Alokasi.ListIndex > -1 Then
'ThisWorkbook.Sheets(Cbo_Alokasi.Value).Activate
'End If
'End Sub
Private Sub CommandButton2_Click()
'--menyimpan data--
'--modifidifiedBy Markonah 16Mei2012
'-----------------------------------
Dim InPutRng As Range, Tabel7an As Range, IdxBaris7an As Long
If Not Sheets("dataentri").Cbo_Alokasi.ListIndex = -1 Then
Set InPutRng = Sheets("dataentri").Range("A15:L15")
Set Tabel7an = Sheets(Cbo_Alokasi.Value).Range("A5:L5").CurrentRegion
IdxBaris7an = Tabel7an.Rows.Count + 1
InPutRng.Copy
Tabel7an(IdxBaris7an, 1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Sheets(Cbo_Alokasi.Value).Activate
MsgBox "Data telah disimpan. Terima kasih", 64
Else
MsgBox "Pilih Alokasi !!"
End If
End Sub
--
2012/5/16 achmad adi <dido...@ymail.com>
>
> Dear Master Excel,
> Sebelumnya saya ucapkan terima kasih kepada Mr kid
> yang telah membantu masalah Excel sebelumnya,,
>
> Post kali ini lanjutan dari post saya sebelumnya,,,
> kali ini membahas
> Combo box untuk menentukan tempat simpan di sheet tertuju,,,
> - Pada saya memilih data di COMBO BOX = A maka data tersimpan pada Sheet A
> - Pada saya memilih data di COMBO BOX = B maka data tersimpan pada Sheet B dst
> ( COmbo Box Berisi Nama Sheet = A,B,C )
> - Dan jika saya memilih shet sama berulang-ulang, maka data akan disimpan
> pada baris setelah baris terakhir ( tidak menimpa ).
>
> mohon pencerahanya,,,
> sya lampirkan file,,
