NO NOTA OTOMATIS DAN MENAMPILKAN KEMBALI ARZIP BELANJA SESUAI NO NOTA - EXCEL VBA

APLIKASI GRATIS MEMBUAT NO SERI NOTA OTOMATIS

Pastekan pada tombol  INPUT

Private Sub CommandButton1_Click()

TextBox3.Value = Worksheets("sheet1").Cells(1, 1).Value

If TextBox3.Value >= 9 Then Exit Sub

Dim irow As Long

'Deklarasi  irow  input atau mengisi  baris terakhir pada sheet1

irow = Worksheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 2).row

Worksheets("sheet1").Cells(irow, 1).Value = TextBox1.Value

Worksheets("sheet1").Cells(irow, 2).Value = TextBox2.Value

'Worksheets("sheet1").Cells(irow, 3).Value = TextBox3.Value

Worksheets("sheet1").Cells(irow, 4).Value = TextBox4.Value

Worksheets("sheet1").Cells(irow, 5).Value = TextBox5.Value

Worksheets("sheet1").Cells(irow, 6).Value = TextBox6.Value

Worksheets("sheet1").Cells(irow, 7).Value = TextBox7.Value

TextBox3.Value = Worksheets("sheet1").Cells(1, 1).Value

End Sub

Pastekan pada tombol  NOTAKAN

Private Sub CommandButton2_Click()

Set salin = Sheets("Sheet1").Range("A6:H15")

Set simpan = Sheets("Sheet2").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(2, 0)

salin.Copy

simpan.PasteSpecial Paste:=xlPasteValues

Sheets("Sheet2").Select

With Sheets("Sheet2")

[a1].Formula = "=MAX(a6:a501)+1"

End With

Sheets("Sheet1").Select

End Sub

Pastekan pada ListBox1

Private Sub ListBox1_Click()

TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 0)

End Sub

Pastekan pada ListBox3

Private Sub ListBox3_Click()

TextBox4.Value = ListBox3.List(ListBox3.ListIndex, 1)

TextBox5.Value = ListBox3.List(ListBox3.ListIndex, 2)

TextBox6.Value = ""

End Sub

Pastekan pada TextBox6

Private Sub TextBox6_Change()

a = Val(TextBox5.Text)

b = Val(TextBox6.Text)

r = a * b

TextBox7.Text = r

End Sub

Pastekan pada  USERFORM

Private Sub UserForm_Initialize()

TextBox1.Value = Sheets("Sheet1").Cells(1, 4).Value

With Me.ListBox1

.ColumnCount = 7

.ColumnWidths = 50 & ";" & 180 & ";" & 100 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50

.RowSource = ("BELANJA")

.ColumnHeads = True

'.ListIndex = [a1] - 1

End With

With Me.ListBox3

.ColumnCount = 3

.ColumnWidths = 25 & ";" & 180 & ";" & 50

.RowSource = ("BARANG")

.ColumnHeads = True

'.ListIndex = [a1] - 1

End With

TextBox3.Value = Worksheets("sheet1").Cells(1, 1).Value

TextBox2.Value = Now()

TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy")

End Sub

Pastekan pada  MODUL untuk menampilkan arzip berdasarkan no nota

Sub filter_pilih_no_nota()

Set salin = Sheets("Sheet2").Range("A7:G200")

Set simpan = Sheets("ARZIP").Range("A7:G200")

salin.Copy

simpan.PasteSpecial Paste:=xlPasteValues

Dim row As Long

LastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row

row = 6

For row = LastRow To row Step -1

If Cells(row, 1) <> Range("G2") Then

Cells(row, 1).EntireRow.Delete

End If

Next row

Set salin = Sheets("ARZIP").Range("A6:G15")

Set simpan = Sheets("Sheet1").Range("A6:G15")

salin.Copy

simpan.PasteSpecial Paste:=xlPasteValues

Sheets("Sheet1").Select

End Sub

UNDUH SAMPEL FILE ZIP >>>> NOTA ZIP

Silahkan dikembangkan dan semoga bermanfaat !!!