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,,
