[ask] Input data dengan no urut dan sesuai tanggal

  1. 4 tahun lalu
    Di sunting 4 tahun lalu oleh haidaramzy

    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..

    Input Data.xlsx

    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

  2. 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

  3. Masdad

    20 Mar 2020 Terverifikasi Demak + 2.198 Poin

    Ikutan jawab juga, mudah-mudahan sesuai ya...

  4. @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 di

    Set 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

  5. @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

    BEORG - Input Data 1.xlsb

  6. Masdad

    23 Mar 2020 Terverifikasi Jawaban Terpilih Demak + 2.198 Poin

    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

  7. @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 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

    tepat sekali, terima kasih banyak suhu ! :)

  8. Masdad

    24 Mar 2020 Terverifikasi Demak + 2.198 Poin

    Alhamdulillah kalau sudah sesuai, Sama-sama, terimakasih kembali :)

 

atau Mendaftar untuk ikut berdiskusi!