Makro hjælp?
Hej!Jeg har fundet denne makro som søger efter 3 ord i samme række og hvis de findes skrives der i listbox. I starten har jeg 2 optionknapper hvor man kan vælge hest eller gris. Jeg vil gerne tilføje 3 optionknap som finder både hest og gris.
her er makro:
Private Sub CommandButton1_Click()
With UserForm1
If .OptionButton1 Then
sOne = "Horse"
Else
sOne = "Pig"
End If
If .OptionButton3 Then
sTwo = "Danish"
Else
sTwo = "Foreign"
End If
sThree = .TextBox1.Text
End With
With Worksheets(1).Cells
Set c = .Find(sOne, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If Application.CountIf(c.EntireRow, "*" & sTwo & "*") And _
Application.CountIf(c.EntireRow, "*" & sThree & "*") Then
UserForm1.ListBox1.AddItem c.Value
UserForm1.ListBox1.List( _
UserForm1.ListBox1.ListCount - 1, 1) _
= c.Offset(0, 2).Value
UserForm1.ListBox1.List( _
UserForm1.ListBox1.ListCount - 1, 2) _
= c.Offset(0, 5).Value
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
