วีดีโอ

kena tidak bisa dibuka kode id dan password salah

❤❤❤❤

🇩🇿A wonderful post, best of luck and greetings to you from Algeria

Apakah program tidak dianggap virus oleh program antivirus macam smadav, kaspersky dan lainnya ?

Kalo di google spreadsheet gimana min ?

Mantap...makasih bosku tutor nya..nambah ilmu lagi..Sukses

ini code nya gais Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() If CommandButton2.Caption = "Pcs" Then CommandButton2.Caption = "Kg" ElseIf CommandButton2.Caption = "Kg" Then CommandButton2.Caption = "Ltr" ElseIf CommandButton2.Caption = "Ltr" Then CommandButton2.Caption = "Botol" ElseIf CommandButton2.Caption = "Botol" Then CommandButton2.Caption = "Pcs" End If End Sub Private Sub simpsn_Click() If TextBox1 = "" Then MsgBox "tanggal belum diisi", vbCritical, "Kesalahan" TextBox1.SetFocus Exit Sub ElseIf TextBox2 = "" Then MsgBox "Nama Barang belum diisi", vbCritical, "Kesalahan" TextBox2.SetFocus Exit Sub ElseIf TextBox3 = "" Then MsgBox "Jumlah belum diisi", vbCritical, "Kesalahan" TextBox3.SetFocus End If Set Ws = Sheets("Sheet1") irow = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(irow, 1) = "Gudang Data " & irow - 2 Ws.Cells(irow, 2) = TextBox1 Ws.Cells(irow, 3) = TextBox2 Ws.Cells(irow, 4) = TextBox3 Ws.Cells(irow, 5) = CommandButton2.Caption If OptionButton1.Value = True Then Ws.Cells(irow, 6).Value = "Toko A" ElseIf OptionButton2.Value = True Then Ws.Cells(irow, 6).Value = "Toko B" Else End If MsgBox TextBox2 & " berhasil disimpan", vbInformation, "Input Barang" TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox3.SetFocus End Sub

ini code nya gaes.................................................... Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() If CommandButton2.Caption = "Pcs" Then CommandButton2.Caption = "Kg" ElseIf CommandButton2.Caption = "Kg" Then CommandButton2.Caption = "Ltr" ElseIf CommandButton2.Caption = "Ltr" Then CommandButton2.Caption = "Botol" ElseIf CommandButton2.Caption = "Botol" Then CommandButton2.Caption = "Pcs" End If End Sub Private Sub simpsn_Click() If TextBox1 = "" Then MsgBox "tanggal belum diisi", vbCritical, "Kesalahan" TextBox1.SetFocus Exit Sub ElseIf TextBox2 = "" Then MsgBox "Nama Barang belum diisi", vbCritical, "Kesalahan" TextBox2.SetFocus Exit Sub ElseIf TextBox3 = "" Then MsgBox "Jumlah belum diisi", vbCritical, "Kesalahan" TextBox3.SetFocus End If Set Ws = Sheets("Sheet1") irow = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(irow, 1) = "GUDANG Data " & irow - 2 Ws.Cells(irow, 2) = TextBox1 Ws.Cells(irow, 3) = TextBox2 Ws.Cells(irow, 4) = TextBox3 Ws.Cells(irow, 5) = CommandButton2.Caption MsgBox TextBox2 & " berhasil disimpan", vbInformation, "Input Barang" TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox3.SetFocus End Sub

code nya gaes........................ Private Sub CommandButton1_Click() Call Hapus End Sub Sub Hapus() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" End Sub Private Sub ListBox1_Click() TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0) ' Pencarian = TextBox1.Value With Worksheets("Sheet1").Range("b6:b500") Set x = .Find(Pencarian, LookIn:=xlValues) If Not x Is Nothing Then baris = x.Row TextBox2.Value = Worksheets("Sheet1").Cells(baris, 3).Value TextBox3.Value = Worksheets("Sheet1").Cells(baris, 4).Value TextBox4.Value = Worksheets("Sheet1").Cells(baris, 5).Value TextBox5.Value = Worksheets("Sheet1").Cells(baris, 6).Value TextBox6.Value = Worksheets("Sheet1").Cells(baris, 7).Value Else MsgBox "Karakter Tidak Ada Di Data" End If End With End Sub Private Sub UserForm_Initialize() ListBox1.ColumnCount = 3 ListBox1.ColumnWidths = 100 ListBox1.RowSource = "Nama" TextBox8.Value = Worksheets("Sheet1").Cells(5, 2).Value TextBox9.Value = Worksheets("Sheet1").Cells(5, 3).Value TextBox10.Value = Worksheets("Sheet1").Cells(5, 4).Value TextBox11.Value = Worksheets("Sheet1").Cells(5, 5).Value TextBox12.Value = Worksheets("Sheet1").Cells(5, 6).Value TextBox13.Value = Worksheets("Sheet1").Cells(5, 7).Value End Sub

code nya Private Sub CommandButton1_Click() Unload Me End Sub Private Sub simpsn_Click() If TextBox1 = "" Then MsgBox "tanggal belum diisi", vbCritical, "Kesalahan" TextBox1.SetFocus Exit Sub ElseIf TextBox2 = "" Then MsgBox "Nama Barang belum diisi", vbCritical, "Kesalahan" TextBox2.SetFocus Exit Sub ElseIf TextBox3 = "" Then MsgBox "Jumlah belum diisi", vbCritical, "Kesalahan" TextBox3.SetFocus End If Dim A As Long Dim B As Long Dim C As Long Set Ws = Sheets("Sheet1") A = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(A, 1) = "GUDANG Data " & A - 2 Ws.Cells(A, 2) = TextBox1 Ws.Cells(A, 3) = TextBox2 Ws.Cells(A, 4) = TextBox3 Set Ws = Sheets("Sheet2") B = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(B, 1) = "GUDANG Data " & B - 2 Ws.Cells(B, 2) = TextBox1 Ws.Cells(B, 3) = TextBox2 Ws.Cells(B, 4) = TextBox3 Set Ws = Sheets("Sheet3") C = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(C, 1) = "GUDANG Data " & C - 2 Ws.Cells(C, 2) = TextBox1 Ws.Cells(C, 3) = TextBox2 Ws.Cells(C, 4) = TextBox3 MsgBox TextBox2 & " berhasil disimpan", vbInformation, "Input Barang" TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox3.SetFocus End Sub

ini kodingnya gaes Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton1 .BackColor = vbGreen .ForeColor = vbBlack End With End Sub Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton2 .BackColor = vbGreen .ForeColor = vbBlack End With End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton1 .BackColor = &H8000000F .ForeColor = &H8000000D End With With CommandButton2 .BackColor = &H8000000F .ForeColor = &H8000000D End With End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False Cells.Interior.ColorIndex = 0 If Target.Cells.Count > 1 Then Exit Sub With Target .EntireRow.Interior.ColorIndex = 8 .EntireColumn.Interior.ColorIndex = 6 End With Application.ScreenUpdating = True End Sub

ini code nya gaes Private Sub CommandButton1_Click() Unload Me End Sub Private Sub simpsn_Click() If TextBox1 = "" Then MsgBox "tanggal belum diisi", vbCritical, "Kesalahan" TextBox1.SetFocus Exit Sub ElseIf TextBox2 = "" Then MsgBox "Nama Barang belum diisi", vbCritical, "Kesalahan" TextBox2.SetFocus Exit Sub ElseIf TextBox3 = "" Then MsgBox "Jumlah belum diisi", vbCritical, "Kesalahan" TextBox3.SetFocus End If Set Ws = Sheets("Sheet1") irow = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Ws.Cells(irow, 1) = "GUDANG Data " & irow - 2 Ws.Cells(irow, 2) = TextBox1 Ws.Cells(irow, 3) = TextBox2 Ws.Cells(irow, 4) = TextBox3 MsgBox TextBox2 & " berhasil disimpan", vbInformation, "Input Barang" TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox3.SetFocus End Sub

ini code nya gaes Sub BarangMasuk() Set Ws = Sheets("Sheet1") Ws.Activate irow = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row If irow < 3 Then Me.ListBox1.RowSource = "" Else Me.ListBox1.RowSource = "a3:d" & irow End If End Sub Private Sub TextBox4_Change() Worksheets("Sheet1").Select If TextBox4 = "" Then BarangMasuk Else Dim myrange As Range Dim criteria As Range Set Ws = Sheets("Sheet1") irow = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row Set myrange = Ws.Range("a2:d" & irow) Set criteria = Ws.Range("h2:h3") Ws.Range("h2") = "Nama Barang" Ws.Range("h3") = "*" & TextBox4 & "*" myrange.AdvancedFilter xlFilterCopy, criteria, Ws.Range("j2:m2"), False irow2 = Ws.Cells(Ws.Rows.Count, 11).End(xlUp).Offset(0, 0).Row If irow2 > 2 Then Me.ListBox1.RowSource = "j3:m" & irow2 Else Me.ListBox1.RowSource = "" End If End If End Sub Private Sub UserForm_Initialize() Call BarangMasuk End Sub