- Beranda
- Komunitas
- Tech
- Programmer Forum
tolongin macro excel ane gan


TS
satriahidden
tolongin macro excel ane gan
gan ini ceritanya ane mo minta bantuan gmn caranya masukin data dr form vb ke sheet excel tp langsung k cell 8 ini script ane gan
Private Sub CmdOK_Click()
Set wsdatabase = Worksheets("SISWA")
Dim Barisdatabase As Long
If T1.Text = "" Then
MsgBox "TANGGAL masih kosong", vbOKOnly
T1.SetFocus
Exit Sub
ElseIf T2.Text = "" Then
MsgBox "HARI masih kosong", vbOKOnly
T2.SetFocus
Exit Sub
Exit Sub
End If
'menemukan baris kosong pada database sISWA
With wsdatabase
Barisdatabase = .Cells(Rows.Count, 8). _
End(xlUp).Offset(0, 1).Row
'--- data input
.Cells(Barisdatabase + 1, 5).Value = T1.Text
.Cells(Barisdatabase + 1, 6).Value = T2.Text
.Cells(Barisdatabase + 1, 7).Value = T3.Text
.Cells(Barisdatabase + 1, 8).Value = T4.Text
.Cells(Barisdatabase + 1, 9).Value = T5.Text
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
MsgBox "Data SISWA sudah disimpan", vbOKOnly
T1.SetFocus
End With
End Sub
Private Sub CmdBatal_Click()
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
End Sub
masalahnya gan!!
1. kenapa data bisa masuk pada sheet siswa di cell A8 tp kok g mau kebawah alias cuma nimpa data sebelumnya...
kasih pencerahanya gan please....
Private Sub CmdOK_Click()
Set wsdatabase = Worksheets("SISWA")
Dim Barisdatabase As Long
If T1.Text = "" Then
MsgBox "TANGGAL masih kosong", vbOKOnly
T1.SetFocus
Exit Sub
ElseIf T2.Text = "" Then
MsgBox "HARI masih kosong", vbOKOnly
T2.SetFocus
Exit Sub
Exit Sub
End If
'menemukan baris kosong pada database sISWA
With wsdatabase
Barisdatabase = .Cells(Rows.Count, 8). _
End(xlUp).Offset(0, 1).Row
'--- data input
.Cells(Barisdatabase + 1, 5).Value = T1.Text
.Cells(Barisdatabase + 1, 6).Value = T2.Text
.Cells(Barisdatabase + 1, 7).Value = T3.Text
.Cells(Barisdatabase + 1, 8).Value = T4.Text
.Cells(Barisdatabase + 1, 9).Value = T5.Text
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
MsgBox "Data SISWA sudah disimpan", vbOKOnly
T1.SetFocus
End With
End Sub
Private Sub CmdBatal_Click()
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
End Sub
masalahnya gan!!
1. kenapa data bisa masuk pada sheet siswa di cell A8 tp kok g mau kebawah alias cuma nimpa data sebelumnya...
kasih pencerahanya gan please....
0
741
2


Komentar yang asik ya
Urutan
Terbaru
Terlama


Komentar yang asik ya
Komunitas Pilihan