Selamat pagi master excel, ane mau tanya nih bagaimana cara agar apabila kita input data baru di kolom no.reg dan Nama, akan masuk ke dalam tabel DATA dengan no urut dan waktu kita input nya ? terima kasih sebelumnya :)
file terlampir..
Selamat pagi master excel, ane mau tanya nih bagaimana cara agar apabila kita input data baru di kolom no.reg dan Nama, akan masuk ke dalam tabel DATA dengan no urut dan waktu kita input nya ? terima kasih sebelumnya :)
file terlampir..
Mungkin file ini bisa membantu, saya dapatkan dali milis sebelah peninggalan pakar Excel yang sudah meninggal dunia,
tapi saya coba tes di kompi kantor saya tidak berhasil ketika di save (belum coba tes di kompi rumah), mungkin bisa di otak atik di komputer Haidar
error di
Set HistoRng = Sheets("Sheet1").Cells(1)
Kalau berhasil bisa di share ya pak filenya,
Trimakasih
Ikutan jawab juga, mudah-mudahan sesuai ya...
@Bambang13910 Mungkin file ini bisa membantu, saya dapatkan dali milis sebelah peninggalan pakar Excel yang sudah meninggal dunia,
tapi saya coba tes di kompi kantor saya tidak berhasil ketika di save (belum coba tes di kompi rumah), mungkin bisa di otak atik di komputer Haidar
error diSet HistoRng = Sheets("Sheet1").Cells(1)
Kalau berhasil bisa di share ya pak filenya,
Trimakasih
baik mas makasih atas infonya, kalo bisa nanti ane kabarin ya mas hehe
@Masdad Ikutan jawab juga, mudah-mudahan sesuai ya...
iya benar gan, kalo semisal saya mau menambahkan kriteria "no reg sudah pernah terdaftar" itu bagaimana ya ? terima kasih hehe :D
Maksudnya mau divalidasi biar tidak ada data no registrasi yang ganda gitu ya...
Tambahkan saja kode untuk memeriksa apakah No reg sudah ada dalam daftar DATA atau belum.
If Application.CountIf(.Range("G7:G" & i), .[C7]) = 1 Then MsgBox "Maaf, No Reg sudah ada di daftar DATA", 16, "Perhatian!!" End If
Selengkapnya jika gabungkan dengan script sebelumnya:
Sub InputData() Dim Smpn As Integer Set Data = Sheets(1) i = Data.Cells(Data.Rows.Count, "F").End(xlUp).Offset(0, 0).Row With Data If .[C7] = "" Or .[D7] = "" Then MsgBox "Maaf, Data yang anda masukkan belum lengkap", 48, "Perhatian!!" ElseIf Application.CountIf(.Range("G7:G" & i), .[C7]) = 1 Then MsgBox "Maaf, No Reg sudah ada di daftar DATA", 16, "Perhatian!!" Else .Cells(i + 1, 6).Resize(, 4).Value = Array(i - 5, .[C7], .[D7], Format(Now, "dd/mm/yyyy hh:mm:ss")) .Range("C7, D7") = "" End If End With End Sub
@Masdad Maksudnya mau divalidasi biar tidak ada data no registrasi yang ganda gitu ya...
Tambahkan saja kode untuk memeriksa apakah No reg sudah ada dalam daftar DATA atau belum.If Application.CountIf(.Range("G7:G" & i), .[C7]) = 1 Then MsgBox "Maaf, No Reg sudah ada di daftar DATA", 16, "Perhatian!!" End IfSelengkapnya jika gabungkan dengan script sebelumnya:
Sub InputData() Dim Smpn As Integer Set Data = Sheets(1) i = Data.Cells(Data.Rows.Count, "F").End(xlUp).Offset(0, 0).Row With Data If .[C7] = "" Or .[D7] = "" Then MsgBox "Maaf, Data yang anda masukkan belum lengkap", 48, "Perhatian!!" ElseIf Application.CountIf(.Range("G7:G" & i), .[C7]) = 1 Then MsgBox "Maaf, No Reg sudah ada di daftar DATA", 16, "Perhatian!!" Else .Cells(i + 1, 6).Resize(, 4).Value = Array(i - 5, .[C7], .[D7], Format(Now, "dd/mm/yyyy hh:mm:ss")) .Range("C7, D7") = "" End If End With End Sub
tepat sekali, terima kasih banyak suhu ! :)
Alhamdulillah kalau sudah sesuai, Sama-sama, terimakasih kembali :)