Showing posts with label Excel. Show all posts
Showing posts with label Excel. Show all posts

Wednesday, October 21, 2015

LookUp Excel dengan kriteria lebih dari 1





Rumus  :
KODE = B
MERK = C
CABANG = D

=INDEX(B2:B10,MATCH(1,(C2:C10="YAMAHA")*(D2:D10="MEDAN"),0))

Wednesday, November 19, 2014

Export Excel Sheet ke PDF dengan VBA Excel Macro

Pernahkan anda membuat Ratusan / Ribuan File PDF dari Excel, dan di export secara manual satu-persatu ? sungguh menjengkelkan bukan ?

Nah di artikel ini saya mencoba untuk sharing bagaimana mengotomasi hal tersebut dengan VBA Macro agar mempermudah pekerjaan kita.

Langkah-langkahnya :
  1. download Microsoft Office Add-in: Microsoft Save as PDF or XPS di sini , lalu install file yg telah anda download tadi. 
  2. Buka File Excel yang ingin anda  Convert ke PDF.
  3. Masuk ke Pilihan Developper :
  4. Buat Tombol Export dengan mengklik insert Form Control :
  5. Masuk ke Source Mode (Alt + F11)
  6. Ketikkan Script Berikut ini :
    
    Sub cetaktopdf()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:\PDF\hasilnya.pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
        DoEvents
        MsgBox "Convert To PDF Done"
    End Sub
    
    
Jika ada banyak dokumen yang ingin di cetak tinggal melakukan perulangan pada Script di atas.

Selamat Mencoba !