Hi,
I have a form with 2 multi listboxes (listbox1 and listbox2).
I would like to take the values of these listboxes and search for (contains within) the output of listbox1 in column G and search for (contains within) the output of listbox2 in column H.
Once a matches have been found I would like to copy the entire row(s) to a new sheet
Example
[ATTACH=CONFIG]65229[/ATTACH]
Does this sound possible?
Thanks
Gary
Re: take value from 2 multi listboxes and search row for criteri
try this
Option Explicit
Sub test()
Dim lst1 As String, lst2 As String, ran As Range, ran1 As Range
lst1 = Me.listbox1.Value
lst2 = Me.listbox2.Value
Set ran = Range("G:G").Find(what:=lst1, MatchCase:=False)
If Not ran Is Nothing Then
Set ran1 = Range("H:H").Find(what:=lst2, MatchCase:=False)
TT:
If ran.Row <> ran1.Row Then
Debug.Print ran.Row
Set ran = Range("G" & ran.Row + 1 & ":G" & Range("A:A").Rows.Count).Find(what:=ran, MatchCase:=False)
GoTo TT:
Else
MsgBox ran.Row & " " & ran1.Row
''do your copy work
End If
End If
End SubRe: take value from 2 multi listboxes and search row for criteri
you have to give the value of list box into the lst1 and listbox 2 into lst2...
lst1 = Me.listbox1.Value lst2 = Me.listbox2.Value <---- see that you are passing the right values here i didnt checked it with list box .
if the null value passes into this string hopefully it will not run.
Don’t have an account yet? Register yourself now and be a part of our community!