Kaskus

Tech

satriahiddenAvatar border
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....
0
741
2
GuestAvatar border
Komentar yang asik ya
Urutan
Terbaru
Terlama
GuestAvatar border
Komentar yang asik ya
Komunitas Pilihan