Form Input Data

  1. 5 tahun lalu

    minta tolong referensi pembuatan form input data dengan ketentuan, apabila data sudah terdaftar maka diberi pilihan "update data atau cancel". file terlampir

    @faizal

    coba :

    Private Sub InputBtn_Click()
    Dim rng, sel, x, r, n
    With Sheet1
    x = Range("A" & Rows.Count).End(xlUp).Row
    Set rng = .Range("A1:A" & x)
    For Each sel In rng
    r = sel.Row
        If sel = Me.CIF * 1 Then
            answer = MsgBox("Data sudah ada" & vbNewLine & _
            "Apakah anda ingin mengupdate data?", vbYesNo + vbExclamation)
            If answer = vbYes Then
                .Cells(r, 1) = CIF * 1
                .Cells(r, 2) = nama
                .Cells(r, 3) = InvestorType
            End If
        n = 1
        End If
    Next sel
    
    If n <> 1 Then
        .Cells(x + 1, 1) = CIF * 1
        .Cells(x + 1, 2) = nama
        .Cells(x + 1, 3) = InvestorType
    End If
    End With
    End Sub

    Note : Ganti properties (Name) dari TextBox "Name" menjadi "nama", anda tidak boleh menggunakan variabel yang sudah dipakai oleh Excel

  2. manweljs_

    14 Mei 2019 Terverifikasi Jawaban Terpilih + 11.321 Poin

    @faizal

    coba :

    Private Sub InputBtn_Click()
    Dim rng, sel, x, r, n
    With Sheet1
    x = Range("A" & Rows.Count).End(xlUp).Row
    Set rng = .Range("A1:A" & x)
    For Each sel In rng
    r = sel.Row
        If sel = Me.CIF * 1 Then
            answer = MsgBox("Data sudah ada" & vbNewLine & _
            "Apakah anda ingin mengupdate data?", vbYesNo + vbExclamation)
            If answer = vbYes Then
                .Cells(r, 1) = CIF * 1
                .Cells(r, 2) = nama
                .Cells(r, 3) = InvestorType
            End If
        n = 1
        End If
    Next sel
    
    If n <> 1 Then
        .Cells(x + 1, 1) = CIF * 1
        .Cells(x + 1, 2) = nama
        .Cells(x + 1, 3) = InvestorType
    End If
    End With
    End Sub

    Note : Ganti properties (Name) dari TextBox "Name" menjadi "nama", anda tidak boleh menggunakan variabel yang sudah dipakai oleh Excel

  3. hampir sesuai mas, tapi saya masih blm paham gimana ya supaya apabila user menginput data yg sama walaupun hanya di salah satu kolom maka keluar msgbox "data sudah ada?""apakah anda ingin mengupdate data?"

    kalau yg sudah dibuat diatas kan apabila di seluruh kolom datanya sama persis, bagaimana kalo data yg sama hanya di salah satu kolom? terima kasih mas

  4. @faizal .... saya masih blm paham gimana ya supaya apabila user menginput data yg sama walaupun hanya di salah satu kolom maka keluar msgbox ....

    anda yakin ? setidaknya investor type pasti akan sering sama karena anda membuatnya sebagai combobox

    untuk menambahkan kriteria pemeriksaan pada kolom nama, edit baris :

    If sel = Me.CIF * 1 Then


    menjadi :

    If sel = Me.CIF * 1 Or .Cells(r, 2) = nama Then

  5. Ehiya mas maksudnya kolom CIF dan Name???? kalo InvestorType memang pasti banyak yg sama

  6. Izin bertanya mas2 semuanya. maaf sebelumnya. @manweljs_ script diatas yang berfungsi untuk menyimpan data agar tidak tertimpa yang mana ya mas?

  7. @Tesa ...script diatas yang berfungsi untuk menyimpan data agar tidak tertimpa yang mana ya mas?...

    n = 1

    jika ada data sama (n = 1) maka baris paling bawah tidak akan diproses karena kriteria n <> 1 tidak terpenuhi.

  8. mas @manweljs_ , mau tanya. apa bisa seluruh data yang ada pada sheet kita tampilkan pada userform. kalo bisa tool apa yang harus digunakan? terima kasiih

  9. @faizal ...apa bisa seluruh data yang ada pada sheet kita tampilkan pada userform. kalo bisa tool apa yang harus digunakan?...

    bisa aja.

    Tool standarnya ListBox, tapi anda juga bisa menggunakan ListView atau Spreadsheet

 

atau Mendaftar untuk ikut berdiskusi!