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.pujakes...@yahoo.co.id>
> **
>
>
> 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
>
>
>
