Hey guys I am trying to build a userfrom that allows the user to input some data and that data to be placed in a specific cell.
Private Sub Sae_data_Click()
Dim colnumber As Variant
Dim rownumber As Variant
Dim findrownumber As Long
Dim findcolnumber As Long
With Worksheets("Total")
Set rownumber = .Range("c:c").find(what:="textbox1.text", LookIn:=xlValues)
Set colnumber = .Range("a:fk").find(what:="listbox1.text" & "listbox2.text", LookIn:=xlValue)
End With
findrownumber = rownumber.row
findcolnumber = colnumber.column
Cells(findrownumber, findcolnumber).TextBox4.Text
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Jan"
.AddItem "Feb"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "Sept"
.AddItem "Oct"
.AddItem "Nov"
.AddItem "Dec"
End With
With ListBox2
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
lbl_Exit:
Exit Sub
End Sub
Basically I want to enter data in a cell that meets some criteria.
Any help is appreciated. Thank you
Bookmarks