Untuk Eksekusi otomatis biasanya digunakan Worksheet_Event, mis Event DoubleClick, Event Change, dll. Syaratnya, pada VBE macronya diletakkan pada "Sheet" tsb, bukan pada "Module" dan didahului dengan "Private Sub" bukan "Sub".
Mungkin solusinya bisa pas kalau sdh ada sample file (workbook) nya. Salam, HK ________________________________ From: bery.pujakesuma <[email protected]> To: [email protected] Sent: Thursday, 28 March 2013, 13:11 Subject: [belajar-excel] Re: Vlookup dan Sumif Vba Code terima kasih pak atas tanggapannya. Bagaimana caranya saya upload samplenya ??? Jika membuat shape tombol atau button, berarti bukan eksekusi otomatis. Saya menginginkan eksekusi secara otomatis tanpa harus klik tombol atau button lagi. Adakah caranya ? thank's --- Mods --- Agar dapat melampirkan file, lakukan posting ke milis melalui akun email pribadi (dari Inbox lakukan Compose Email) seperti Anda mengirim email kepada rekan kerja. ------------ --- In [email protected], Jan Raisin <miss.jan.raisin@...> wrote: > > Mungkin pak Bery bersedia berbagi sample workbooknya.. agar tidak ada salah > penafsiran apa yang diinginkan. > > Lalu bagaimanakah code eksekusi otomatisnya ?? Sebelumnya diucapkan terima > kasih > >>> sakah satu caranya adalah membuat sebuah shape/tombol yang diassign > dengan macro, yang berisi kode sbb: > > Sub PanggilProsedur () > call group_code_barang > call rp > End Sub > > Wassalam, > > -Miss Jan Raisin- > > 2013/3/27 bery.pujakesuma <bery.pujakesuma@...> > > > ** > > > > > > Dear All > > > > Saya ingin membuat vlookup dan sumif di VBA ada yang bisa membantu ?? > > > > berikut code saya, mohon di koreksi jika ada salah. > > > > Sub group_code_barang() > > Dim result As Variant > > Range("B1").Select > > ActiveCell.FormulaR1C1 = "Group Kode Barang" > > With Range("B2:B10") > > .formula = > > "=If(Iserror(VLookup(A2,master_barang!$A:$E,2,False)),0,VLookup(A2,master_barang!$A:$E,2,False))" > > .FormulaHidden = True > > End With > > Range("B2:B10").Select > > Range("B1").Select > > Selection.AutoFilter > > ActiveWorkbook.Save > > End Sub > > > > Sub rp() > > Dim result As Variant > > ' check_for_analysis Macro > > ' check_for_analysis using the VLOOKUP to external file > > Range("G1").Select > > ActiveCell.FormulaR1C1 = "Rp" > > With Range("G2:G10") > > .formula = "=SUMIF(master_barang!A:A,A2,master_barang!F:F)*F2" > > .FormulaHidden = True > > End With > > Range("G2:G10").Select > > Range("G1").Select > > ActiveWorkbook.Save > > End Sub > > > > Lalu bagaimanakah code eksekusi otomatisnya ?? Sebelumnya diucapkan terima > > kasih > > > > > > >
