Scribd
Upload
51 views4 pages

Koding Data VBA Tanpa Userform

The document contains VBA code for Excel sheets to manage data entry and searching. It includes code for buttons to save, search, and delete rows of data on different sheets. The code finds the last row, saves input values to the next row, clears input cells, and searches/deletes rows by a key field value.

Uploaded by

lukman
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
51 views4 pages

Koding Data VBA Tanpa Userform

The document contains VBA code for Excel sheets to manage data entry and searching. It includes code for buttons to save, search, and delete rows of data on different sheets. The code finds the last row, saves input values to the next row, clears input cells, and searches/deletes rows by a key field value.

Uploaded by

lukman
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

SHEET DATA ANGGOTA

{TOMBOLSIMPAN}
Private Sub CommandButton1_Click()
Dim baris_terakhir As Integer
baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1

Range("G" & baris_terakhir) = Range("R5")


Range("H" & baris_terakhir) = Range("R6")
Range("I" & baris_terakhir) = Range("R7")
Range("J" & baris_terakhir) = Range("R8")
Range("K" & baris_terakhir) = Range("R9")
Range("L" & baris_terakhir) = Range("R10")
Range("M" & baris_terakhir) = Range("R11")

Range("R5") = ""
Range("R6") = ""
Range("R7") = ""
Range("R8") = ""
Range("R9") = ""
Range("R10") = ""
Range("R11") = ""
Range("R5").Select
End Sub
(TOMBOL HAPUS)
Private Sub CommandButton3_Click()
Dim baris As Integer
Dim cek_baris As String

baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1


Set cari = Range("G26:G" & baris_terakhir).Find(Range("R5"),
lookat:=xlWhole)
If Not cari Is Nothing Then
baris = [Link]
cek_baris = baris & ":" & baris
Rows(cek_baris).Select
[Link]
End If
End Sub
{TOMBOL CARI}
Private Sub CommandButton4_Click()
Dim baris As Integer
baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1
Set cari = Range("G26:G" & baris_terakhir).Find(Range("R5"),
lookat:=xlWhole)
If cari Is Nothing Then
Range("R6") = ""
Range("R7") = ""
Range("R8") = ""
Range("R9") = ""
Range("R10") = ""
Range("R11") = ""
Else
baris = [Link]
Range("R6") = Range("R" & baris)
Range("R7") = Range("H" & baris)
Range("R8") = Range("I" & baris)
Range("R9") = Range("J" & baris)
Range("R10") = Range("K" & baris)
Range("R11") = Range("L" & baris)

End If
End Sub
SHEET DATA TRANSAKSI
(TOMBOL SIMPAN)
Private Sub CommandButton1_Click()
Dim baris_terakhir As Integer
baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1
Range("G" & baris_terakhir) = Range("Q7")
Range("H" & baris_terakhir) = Range("Q8")
Range("I" & baris_terakhir) = Range("Q9")
Range("J" & baris_terakhir) = Range("Q10")
Range("K" & baris_terakhir) = Range("Q11")
Range("Q7") = ""
Range("Q8") = ""
Range("Q9") = ""
Range("Q10") = ""
Range("Q11") = ""
Range("Q7").Select
End Sub

{ TOMBOL CARI }
Private Sub CommandButton2_Click()
Dim baris As Integer
baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1
Set cari = Range("G9:G" & baris_terakhir).Find(Range("Q7"),
lookat:=xlWhole)
If cari Is Nothing Then

Range("Q7") = ""
Range("Q8") = ""
Range("Q9") = ""
Range("Q10") = ""
Range("Q11") = ""
Else
baris = [Link]
Range("Q7") = Range("G" & baris)
Range("Q8") = Range("H" & baris)
Range("Q9") = Range("I" & baris)
Range("Q10") = Range("J" & baris)
Range("Q11") = Range("K" & baris)
End If
End Sub

{TOMBOL HAPUS}
Private Sub CommandButton3_Click()
Dim baris As Integer
Dim cek_baris As String

baris_terakhir = Range("G:G").Cells([Link], 1).End(xlUp).Row + 1


Set cari = Range("G9:G" & baris_terakhir).Find(Range("Q7"),
lookat:=xlWhole)
If Not cari Is Nothing Then
baris = [Link]
cek_baris = baris & ":" & baris
If MsgBox("Apakah Anda Yakin Akan Menghapus Data", vbYesNo +
vbQuestion, "Konfirmasi") = vbYes Then
Rows(cek_baris).Select
[Link]
End If
End If
End Sub

You might also like