Hi I am trying to check an array to get a match and if the isnt a match add into array name filters(). I keeps giving me a syntax error. Please help thank you!
Dim PartAbbvArray() as string
Sub AddFilter()
For i =1 to 10
PartabbvArray(i)="part" & i
Next
Dim i As Integer
IsinArray(FilterCheck,PartAbbvArray(),false)
If IsInArray = False Then
For i = 1 To NumberOfFilters
Filters(i) = FilterClicky
Next i
End Sub
Public Function IsInArray(Arr As Variant, ValueToFind As Variant, Optional MatchCase As Boolean) As Boolean
IsInArray = InStr(1, Chr(1) & Join(Arr, Chr(1)) & Chr(1), Chr(1) & ValueToFind & Chr(1), Abs(MatchCase))
End Function
Dim PartAbbvArray() as string
Sub AddFilter()
For i =1 to 10
PartabbvArray(i)="part" & i
Next
Dim i As Integer
IsinArray(FilterCheck,PartAbbvArray(),false)
If IsInArray = False Then
For i = 1 To NumberOfFilters
Filters(i) = FilterClicky
Next i
End Sub
Public Function IsInArray(Arr As Variant, ValueToFind As Variant, Optional MatchCase As Boolean) As Boolean
IsInArray = InStr(1, Chr(1) & Join(Arr, Chr(1)) & Chr(1), Chr(1) & ValueToFind & Chr(1), Abs(MatchCase))
End Function