Samenvoegen Text box en userform

[hanspaparazzi]

Ik heb een Textbox met autofilter om gegevens naar voren te halen

code

[Private Sub TextBox1_Change()
Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 Then
ActiveSheet.AutoFilterMode = False
Else
ActiveSheet.Range("$B$6:$B$1000").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub]

en een userform om gegevens in te voeren

code [Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Database")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.txtPart.Value) = "" Then
Me.txtPart.SetFocus
MsgBox "Please enter a part number"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtLoc.Value
ws.Cells(iRow, 3).Value = Me.txtDate.Value
ws.Cells(iRow, 4).Value = Me.txtQty.Value

'clear the data
Me.txtPart.Value = ""
Me.txtLoc.Value = ""
Me.txtDate.Value = ""
Me.txtQty.Value = ""
Me.txtPart.SetFocus

End Sub]

nu wil ik deze 2 samenvoegen zodat ik gegevens wat makkelijker kan terugzoeken.En ja ik ben net nieuw met dit dus een draaitabel heb ik nog geen kaas van gegeten dus darom is zon textbox wat makkelijker.

de textbox eindigt bij rij 5 en op rij 6 staan de autofilter namen.

de textbox moet ik volgens mij de Range laten beginnen op ('find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
)heb ik goed als de first empty row nr 7 moet worden waardoor vba door gaat nummeren bij 7, 8 enz?

 

[Warme bakkertje]

Post eens een voorbeeldbestandje met wat fictieve gegevens, want je bedoeling is mij niet geheel duidelijk. Zoals ik het begrijp heb je een Textbox op je werkblad die je gebruikt om een autofilter aan te sturen en een userform om gegevens in te vullen en weg te schrijven naar je database. Wil je die textbox dan ook op je userform of ....? En wat is het probleem met je laatste rij ? De variabele irow zoekt toch steeds de laaatst gevulde rij onder het autofilter, nietwaar ?

 

[hanspaparazzi]

hier ff de voorbeeld

 

[Warme bakkertje]

iRow = ws.Cells(Rows.Count, [COLOR="red"]2[/COLOR]) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, [COLOR="red"]2[/COLOR]).Value = Me.txtPart.Value
ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = Me.txtLoc.Value

Wat nu je bedoeling is met je Textbox is mij nog steeds niet duidelijk

 

[hanspaparazzi]

iRow = ws.Cells(Rows.Count, [COLOR="red"]2[/COLOR]) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, [COLOR="red"]2[/COLOR]).Value = Me.txtPart.Value
ws.Cells(iRow, [COLOR="red"]3[/COLOR]).Value = Me.txtLoc.Value

Wat nu je bedoeling is met je Textbox is mij nog steeds niet duidelijk

Omdat ik vrij nieuw ben met vba wil ik de userform gebruiken om gegevens in te voeren en textbox om te zoeken in database.
Dat is wat ik voor voorlopig wil doen. Of raad jij wat anders aan warm bakkertje?
Als het kan met voorbeeld

dank je alvast