Ik heb een macro waarbij ik een autofilter aanzet op basis van Cel inhoud, echter hij doet dit alleen als de Cel inhoud exact overeenkomt.
voorbeeld: in Cel F4 staat 4862 dan zoekt hij alle cellen met 4862, graag zou ik willen dat hij dan ook cellen vind met 64862
Weet iemand hoe ik deze macro kan aanpasssen
met vriendelijke groet,
B.
voorbeeld: in Cel F4 staat 4862 dan zoekt hij alle cellen met 4862, graag zou ik willen dat hij dan ook cellen vind met 64862
Weet iemand hoe ik deze macro kan aanpasssen
Code:
Sub zoek_charge()
On Error GoTo ErrMsg
r = Range("e4").Value 'regelnummer
Cells(r, 33).Select 'selecteert regel betreffen regelnummer
ActiveSheet.ListObjects("Certificaten").Range.AutoFilter Field:=33, Criteria1:=ActiveSheet.Range("f4")
Cells(r, 33).Select 'selecteert regel betreffen regelnummer
Exit Sub
ErrMsg:
MsgBox ("Charge nummer komt niet voor in deze lijst" & vbNewLine & "Zoek handmatig naar deel van charge in kolom Charge / Heat"), vbInformation
Range("AG9").Select
End Sub
met vriendelijke groet,
B.
Laatst bewerkt: