Wa alaikum salam Wr Wb
Pak Wasis,
Coba pada formpelanggan scrip advance filter dirubah ke autofilter
Private Sub cmdCariKode_Click()
Set wsDtbsPlgn = Sheets("DatabasePelanggan")
Set rgDtbsPlgn = wsDtbsPlgn.Range("DatabasePelanggan")
Set rgAdvFilter = wsDtbsPlgn.Range("J2:L3")
If wsDtbsPlgn.Range("A3").Value = "" Then
Call DatabaseKosong
Exit Sub
End If
If wsDtbsPlgn.FilterMode Then
wsDtbsPlgn.ShowAllData
End If
If txtKode.Value = "" Then
MsgBox "Ketikkan PO yang akan dicari", _
vbOKOnly + vbInformation, "Kode Kosong"
txtKode.SetFocus
End If
With wsDtbsPlgn.Range("KodePelanggan")
Set c = .Find(txtKode.Value, LookIn:=xlValues)
If c Is Nothing Then
MsgBox "Kode PO " & txtKode.Value & " tidak ada", _
vbOKOnly + vbInformation, "PO QTY 1"
Call cmdAkhir_Click
Exit Sub
Else
wsDtbsPlgn.Range("J3").Value = "*" & txtKode.Value & "*"
wsDtbsPlgn.Range("K3:L3").ClearContents
formPelanggan.Height = 384
*'rgDtbsPlgn.AdvancedFilter Action:=xlFilterInPlace, _**
** ' CriteriaRange:=rgAdvFilter*
* rgDtbsPlgn.AutoFilter Field:=1, Criteria1:=txtKode*
Call TampilkanSemua
End If
End With
If wsDtbsPlgn.FilterMode Then
wsDtbsPlgn.ShowAllData
End If
End Sub
*From:*[email protected]
[mailto:[email protected]] *On Behalf Of *Wasis Zain
*Sent:* 05 Januari 2013 11:40
*To:* [email protected]
*Subject:* [belajar-excel] ERROR MENU SEARCHING PADA MACRO
Assalamualaikum warohmatullahi wabarokatuh
salam kenal para master
saya hanya peminat baru dalam belajar excel ini
saya ada permasalhan besar pada userform searching sekaligus userform
input
karena saya kurang bisa berucap maka sudi kiranya para master membuka
worksheet saya ini
kurang lebih pertanyaannya ini
"kenapa di macro ada tulisan RUN TIME ERROR NO CELLS WERE FOUND"
TERIMAKASIH BANYAK BANGET ATAS BANTUANNYA
