وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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
>
>
>
