Snasui Excel Forum

Code: Select all

Dim editRow As Integer

Private Sub CmdFind_Click()
    On Error Resume Next
    'Err.Clear
    Dim nRow As String
    nRow = Worksheets("DATAWORK").Columns(2).Find(Txtfind.Text).Row
    editRow = CInt(nRow)
'Other code

Private Sub CBUPDATE_Click()
    Dim irow As String
    Dim ws As Worksheet
    Set ws = Worksheets("DATAWORK")
    'irow = ws.Cells(Rows.Count, 1) _
            .End(xlUp).Offset(1, 0).Row
     If editRow = 0 Then
        Exit Sub
     Else
        irow = editRow
     End If
'Other code