Store Userform textbox value

[KittyS]

I am new to using userforms and struggling.. so if anybody has a tip:

I want the user to input a (week)number in a userform and then find this number in my worksheet. I can't seem to match the userform value with the sheet value.

Code is as follows:

Private Sub OK_Click()

Range("A8").Select
ActiveCell(1, 14).Select
If ActiveCell.Value = Planweeknr.Value Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy

End If


please?

 

[Trevor G]

Welcome to the Forum KittyS. You could look to record a macro using the find command and then adapt that to the field name. Example below I have named a textbox as txtWeekNu

Private Sub cmdOK_Click()
Sheets("Sheet3").Select
Cells.Find(What:=Me.txtWeekNu.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select


End Sub

 

[KittyS]

Hi Trevor,

Thanks for your reply. However, I can't get it to work. I put planningweeknr in the sheet on "10". When I want the userform textbox entry "10" to be found in my sheet it doesn't find it. This is the whole code so far. I need a way to store the planningweeknumber somewhere in a variable, and then search for this same variable in the sheet.
help..

Private Sub OK_Click()
If Planweeknr.Value = "" Then
Planweeknr.SetFocus
MsgBox "Please enter a week number!", vbExclamation
End If
Cells.Find(What:=Me.Planweeknr.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("A8").Select
ActiveCell(1, 14).Select
If ActiveCell.Value = Me.Planweeknr.Value Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy

 

[Norie]

Are the values on the worksheet text like the value in the textbox is?

 

[KittyS]

Eeeh.. now they are! Omg, thanks!!!