minta tolong referensi pembuatan form input data dengan ketentuan, apabila data sudah terdaftar maka diberi pilihan "update data atau cancel". file terlampir
minta tolong referensi pembuatan form input data dengan ketentuan, apabila data sudah terdaftar maka diberi pilihan "update data atau cancel". file terlampir
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
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
@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
If sel = Me.CIF * 1 Or .Cells(r, 2) = nama Then
Ehiya mas maksudnya kolom CIF dan Name???? kalo InvestorType memang pasti banyak yg sama
Izin bertanya mas2 semuanya. maaf sebelumnya. @manweljs_ script diatas yang berfungsi untuk menyimpan data agar tidak tertimpa yang mana ya mas?
@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.
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
@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