Mengcoppy data di cell tertentu setelah file di print.

  1. 7 tahun lalu

    Hai... Nama Saya Rovel. Mohon Bantuan Dong...
    saya ingin membuat sebuah rekapan penjualan, yang saya mau adalah setelah faktur di print, data data seperti nama toko, nomor faktur, potongan penjualan, dll. otomatis di tulis dalam sebuah work sheet Rekapan penjualan.
    jadi dalam kata lain semua faktur yang saya print otomatis di tulis dalam rekapan penjualan. coding nya?
    Thanks

  2. Hi Rovel,

    Mungkin bisa upload filenya terlebih dahulu

  3. Hi Fujiansyah....
    ini file nya

  4. Tolong reupload N beri tanda yg mana datanya yg dimaksud dan diletakkan dimana

  5. Nyimak sambil gelar tiker ...

    Biasanya ... Data dulu baru di print ..
    ini Print dulu baru ngisi data .... sepertinya, seperti form entri data ... SAVE and Print ...
    Lanjut Ndan Rovel & Ndan Fuji ...

  6. @Felloy Nyimak sambil gelar tiker ...

    Biasanya ... Data dulu baru di print ..
    ini Print dulu baru ngisi data .... sepertinya, seperti form entri data ... SAVE and Print ...
    Lanjut Ndan Rovel & Ndan Fuji ...

    hahaha betul memang

    mungkin dia ingin record ulang data yg sudah di print/proses,tapi yg jadi masalah data yg ingin direcord tdk ada di master nya :D

  7. @ALL MAKSUD SAYA SEPERTI INI.MOHON BANTUAN DONG..... THANKS

  8. @Rovel @ALL MAKSUD SAYA SEPERTI INI.MOHON BANTUAN DONG..... THANKS

    Itu maksud saya, kenapa ga nyambung sample file dg pict yg ada . Dan file rekapan toko juga upload juga gan. Ane butuh jg buat switch & tau extensi pake format apa.thx

  9. Gini gan,

    asumsi saya nama file & extensi rekapan tokonya : "REKAPAN TOKO.xlsm"

    lalu untuk coding yg ada di sheet master (command button1:untuk printing) :

    Private Sub CommandButton1_Click()
    Call appRunner
    End Sub

    dan untuk yg dimodule nya :

    Sub appRunner()
    
    Dim B, C, D, E, FileName, lstrow, Path As String
    
    Application.DisplayAlerts = False
    Path = "F:\UD.ANANTO\FAKTUR PENJUALAN\"
    FileName = Range("J7").Value & ".xls" 'Change extension here
    B = Range("J7").Value ' nama toko - silahkan disesuaikan stringnya : bebas
    C = Range("M39").Value ' Total Pembelian - silahkan disesuaikan stringnya : bebas
    D = Range("M40").Value ' Potongan pembelian - silahkan disesuaikan stringnya : bebas
    E = Range("M41").Value ' Total yg dibayar - silahkan disesuaikan stringnya : bebas
    ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
    '======================================>> additional coding to export data into 'Rekapan Toko'
    Range("A1").Select
    Windows("REKAPAN TOKO.xlsm").Activate 'change as your own filename
    Sheets("Sheet1").Select '#if you want to focus on defined sheet
    Range("A1").Select
    lstrow = Range("B1:B9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    MsgBox "lstrow : " & lstrow
    MsgBox "C : " & C
    Range("B" & lstrow).Select
    Range("B" & lstrow).Value = B
    Range("C" & lstrow).Value = C
    Range("D" & lstrow).Value = D
    Range("E" & lstrow).Value = E
    Workbooks.Open FileName:="F:\UD.ANANTO\FORMULIR FAKTUR PANJANG.xlsm"
    Workbooks(Range("J7").Value & ".xls").Close savechanges:=True
    '<<===========================================end for rekapan toko

    REKAPAN TOKO.xlsm
    FORMULIR FAKTUR PANJANG.xlsm

 

atau Mendaftar untuk ikut berdiskusi!