UserForm Opening set values to contents of activecell.value

[dukeofscouts]

I've been toying with Userforms for about a week now. Thanks to google I've been able to find lots of help with trouble shooting most of my issues. However, this one has me stumped. When I run the macro to call the userform, it says that the Find function is not recognized. According to all the data I can dig up Find does work in VBA. Where did I make the wrong turn?


Private Sub UserForm_Initialize()
Tectbox1.Value = ActiveCell.Value
TextBox2.Value = Left(ActiveCell.Offset(1, 0), 3)
TextBox3.Value = Right(ActiveCell.Offset(1, 0), Len(ActiveCell.Offset(1, 0) - Find(":", ActiveCell.Offset(1, 0))))
TextBox4.Value = Mid(ActiveCell.Offset(1, 0), 5, 3)
TextBox5.Value = Mid(ActiveCell.offser(1, 0), 9, 2)
TextBox6.Value = Left(ActiveCell.Offset(2, 0), Find("@", ActiveCell.Offset(2, 0) - 1))
TextBox7.Value = Right(ActiveCell.Offset(2, 0), Find("@", ActiveCell.Offset(2, 0) - 2))
TextBox8.Value = Left(ActiveCell.Offset(3, 0), Find("-", ActiveCell.Offset(3, 0) - 1))
TextBox9.Value = Right(ActiveCell.Offset(3, 0), Find(">", ActiveCell.Offset(3, 0) - 2))
End Sub

 

[John_w]

Use Application.WorksheetFunction.Find, or InStr and swap the arguments round.

 

[dukeofscouts]

Well updates seemed to have worked,but now VBA is have an issue with the third line of code, the whole line of code. It gives me the error: "This object does not support the action or property". (or somthing to that extent). Is it that we can't split a cell using a calculation to get the number of characters?

Private Sub UserForm_activate()
TextBox1.Value = ActiveCell.Value
TextBox2.Value = Left(ActiveCell.Offset(1, 0), 3)
TextBox3.Value = Right(ActiveCell.Offset(1, 0), Len(ActiveCell.Offset(1, 0)) - Application.Worksheet.Find(":", ActiveCell.Offset(1, 0)))
TextBox4.Value = Mid(ActiveCell.Offset(1, 0), 5, 3)
TextBox5.Value = Mid(ActiveCell.Offset(1, 0), 9, 2)
TextBox6.Value = Left(ActiveCell.Offset(2, 0), Application.Worksheet.Find("@", ActiveCell.Offset(2, 0) - 1))
TextBox7.Value = Right(ActiveCell.Offset(2, 0), Application.Worksheet.Find("@", ActiveCell.Offset(2, 0) - 2))
TextBox8.Value = Left(ActiveCell.Offset(3, 0), Application.Worksheet.Find("-", ActiveCell.Offset(3, 0) - 1))
TextBox9.Value = Right(ActiveCell.Offset(3, 0), Application.Worksheet.Find(">", ActiveCell.Offset(3, 0) - 2))
End Sub