Wah, terima kasih mbak Jan Raisin, Saya juga mohon maaf Atas khilaf dan salah selama ini Smoga anggota milis Memaafkan kesalahan saya.
++rudi BeExceller -----Original Message----- From: Jan Raisin <[email protected]> Sender: [email protected] Date: Tue, 9 Jul 2013 09:36:35 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Update status data وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Mumpung lagi bisa online, bantu sedikit solusi: script ditulis dalam sebuah modul: Sub UpDateData() Dim sCode As String Dim rgFind As Range Dim iCnt As Integer sCode = frmData.txtNomor.Text Set rgFind = Cells.Range("b:b").Find(sCode, lookat:=xlWhole, MatchCase:=True) If rgFind Is Nothing Then frmData.Label3.Caption = 0 MsgBox "Data Tidak Ada", vbCritical + vbOKOnly, "Data Tidak Ditemukan" Exit Sub End If iCnt = Application.WorksheetFunction.CountIf(Range("b:b"), sCode) frmData.Label3.Caption = iCnt If iCnt >= 2 Then MsgBox "BarCode : " & sCode & vbNewLine & _ "Ada " & iCnt & " data yang sama", vbCritical + vbOKOnly, "Data Ganda" Exit Sub End If If frmData.OptionButton1 = True Then Cells(rgFind.Row, 12).Value = "bayar" Else Cells(rgFind.Row, 12).Value = "belum" End If End Sub script ditulis dalam form Data Private Sub OptionButton1_Click() UpDateData Unload frmData End Sub Private Sub OptionButton2_Click() UpDateData Unload frmData End Sub Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih 1 tahun bergabung dengan milis ini, insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah kita diterima ALLAH SWT. اَمِين يَا رَبَّ الْعَالَمِيْن وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ -Miss Jan Raisin- - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke [email protected] bukan dikirim japri ke email pribadi member milis; - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153; - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat; - Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمِين يَا رَبَّ الْعَالَمِيْن Pada 9 Juli 2013 05.51, Rudi Anto <[email protected]> menulis: > ** > > > Assalamu'alaikum Wr. Wb. > > gimana ya update status data via macro, > terlampir saya sertakan file lampiran. > > ketika kita jalankan form, kemudian masukkan nomor barcode > di enter data akan mengupdate status sesuai nomor barcode dan option > button. > > saya tidak menggunakan command button, > karena saya pake scanner barcode. > > terima kasih sebelumnya, atas batuan rekan2. > > salam, > ++rudi > > >
