sharky12345
Well-known Member
- Joined
- Aug 5, 2010
- Messages
- 3,421
- Office Version
- 2016
- Platform
- Windows
I'm trying to update the row on a sheet if a record is found, I'm trying this but it's not working;
I'm getting Type Mismatch with this highlighted (within FindRow.Row) ;
Code:
Set ws = Worksheets("Training")
Set SearchRange = Range("A2", Range("A65536").End(xlUp))
Set FindRow = SearchRange.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
Set Row = FindRow.Row
realDate = Me.Controls.Item("TextDate").Text
ws.Cells(Row, 4).Value = DateSerial(Year(realDate), Month(realDate), Day(realDate))
ws.Cells(Row, 5).Value = Me.Controls.Item("ComboType").Text
ws.Cells(Row, 6).Value = Me.Controls.Item("ComboInst1").Text
ws.Cells(Row, 7).Value = Me.Controls.Item("ComboInst2").Text
I'm getting Type Mismatch with this highlighted (within FindRow.Row) ;
Code:
.Row