Hallo ik krijg de de melding "kan het genoemde argument niet vinden" in het onderstaande:
Het gaat om deze regel en dan vind hij de fout in Criterial:=
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:=sValue
Hierbij de voledige Sub
Sub SearchData()
Application.ScreenUpdating = False
Dim shDatabase As Worksheet
Dim shSearchData As Worksheet
Dim iColumn As Integer
Dim iDatabaseRow As Long
Dim iSearchRow As Long
Dim sColumn As String
Dim sValue As String
Set shDatabase = ThisWorkbook.Sheets("Database")
Set shSearchData = ThisWorkbook.Sheets("SearchData")
iDatabaseRow = ThisWorkbook.Sheets("Database").Range("A" & Application.Rows.Count).End(xlUp).Row
sColumn = frmForm.cmbZoekIn.Value
sValue = frmForm.txtZoek.Value
iColumn = Application.WorksheetFunction.Match(sColumn, shDatabase.Range("A1:F1"), 0)
If shDatabase.FilterMode = True Then
shDatabase.AutoFilterMode = False
End If
If frmForm.cmbZoekIn.Value = "Component" Then
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:=sValue
Else
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:="*" & sValue & "*"
End If
If Application.WorksheetFunction.Subtotal(3, shDatabase.Range("C:C")) >= 2 Then
shSearchData.Cells.Clear
shDatabase.AutoFilter.Range.Copy shSearchData.Range("A1")
Application.CutCopyMode = False
iSearchRow = shSearchData.Range("A" & Application.Rows.Count).End(xlUp).Row
frmForm.lstDatabase.ColumnCount = 6
If iSearchRow > 1 Then
frmForm.lstDatabase.RowSource = "SearchData!A2:F" & iSearchRow
MsgBox "Gegevens gevonden."
End If
Else
MsgBox "Geen gegevens gevonden."
End If
shDatabase.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
Het gaat om deze regel en dan vind hij de fout in Criterial:=
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:=sValue
Hierbij de voledige Sub
Sub SearchData()
Application.ScreenUpdating = False
Dim shDatabase As Worksheet
Dim shSearchData As Worksheet
Dim iColumn As Integer
Dim iDatabaseRow As Long
Dim iSearchRow As Long
Dim sColumn As String
Dim sValue As String
Set shDatabase = ThisWorkbook.Sheets("Database")
Set shSearchData = ThisWorkbook.Sheets("SearchData")
iDatabaseRow = ThisWorkbook.Sheets("Database").Range("A" & Application.Rows.Count).End(xlUp).Row
sColumn = frmForm.cmbZoekIn.Value
sValue = frmForm.txtZoek.Value
iColumn = Application.WorksheetFunction.Match(sColumn, shDatabase.Range("A1:F1"), 0)
If shDatabase.FilterMode = True Then
shDatabase.AutoFilterMode = False
End If
If frmForm.cmbZoekIn.Value = "Component" Then
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:=sValue
Else
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:="*" & sValue & "*"
End If
If Application.WorksheetFunction.Subtotal(3, shDatabase.Range("C:C")) >= 2 Then
shSearchData.Cells.Clear
shDatabase.AutoFilter.Range.Copy shSearchData.Range("A1")
Application.CutCopyMode = False
iSearchRow = shSearchData.Range("A" & Application.Rows.Count).End(xlUp).Row
frmForm.lstDatabase.ColumnCount = 6
If iSearchRow > 1 Then
frmForm.lstDatabase.RowSource = "SearchData!A2:F" & iSearchRow
MsgBox "Gegevens gevonden."
End If
Else
MsgBox "Geen gegevens gevonden."
End If
shDatabase.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub