Record invoice

  1. tahun lalu

    Dear para master adakah yang bisa memberi contoh untuk cara membuat record, tapi dengan jumlah item yang berbeda-beda
    contoh terlampir

  2. diditsatriyadi

    11 Jun 2017 Terverifikasi Surabaya + 1.103 Poin

    rasanya dulu pernah ada posting serupa, tapi saya coba bikinkan sederhana versi saya
    tentunya harus menggunakan makro VBA seperti excel terlampir, menggunakan teknik yang paling mudah dipelajari (kombinasi worksheets-cells-value). saya cuma fokuskan untuk menyimpan data dari dari sheet "INV" ke "RCD" untuk lain-lain, misal menghapus form setelah data direcord, menampilkan kembali data, mengedit record dan sebagainya silakan dikembangkan sendiri :)

    Sub Record_Print()
        posi = 1
        While Worksheets("RCD").Cells(posi, 1).Value <> ""
          posi = posi + 1
        Wend
        ambi = 1
        While Worksheets("INV").Cells(ambi + 5, 2) <> ""
          Worksheets("RCD").Cells(posi, 1).Value = Worksheets("INV").Cells(2, 3).Value
          Worksheets("RCD").Cells(posi, 2).Value = Worksheets("INV").Cells(3, 3).Value
          Worksheets("RCD").Cells(posi, 3).Value = Worksheets("INV").Cells(4, 3).Value
          Worksheets("RCD").Cells(posi, 4).Value = Worksheets("INV").Cells(2, 6).Value
          Worksheets("RCD").Cells(posi, 5).Value = Worksheets("INV").Cells(3, 6).Value
          Worksheets("RCD").Cells(posi, 11).Value = Worksheets("INV").Cells(4, 6).Value
          Worksheets("RCD").Cells(posi, 6).Value = Worksheets("INV").Cells(ambi + 5, 2).Value
          Worksheets("RCD").Cells(posi, 7).Value = Worksheets("INV").Cells(ambi + 5, 3).Value
          Worksheets("RCD").Cells(posi, 8).Value = Worksheets("INV").Cells(ambi + 5, 4).Value
          Worksheets("RCD").Cells(posi, 9).Value = Worksheets("INV").Cells(ambi + 5, 5).Value
          Worksheets("RCD").Cells(posi, 10).Value = Worksheets("INV").Cells(ambi + 5, 6).Value
          ambi = ambi + 1
          posi = posi + 1
        Wend
    End Sub

  3. SIAP mas mantap bisa belajar nih
    tapi kalo hasil recordnya selalu lebih 1 gimana ya?

  4. @diditsatriyadi

 

atau Mendaftar untuk ikut berdiskusi!