Snasui Excel Forum

Code: Select all

Dim CRowNo As Integer

Private Sub cmdSave_Click()
    Dim cellrange As String
   Dim myWS As Worksheet

  Set myWS = Worksheets("logbook")

    ' Go to the existing row
    rowno = CRowNo
    Sheets("Logbook").Activate
    cellrange = "A" & Trim(Str(rowno))
    Range(cellrange).Value = TextBox66.Text
    TextBox66.Text = ""
 
    
End Sub

Code: Select all

Private Sub cmdSave_Click()
    Dim cellrange As String
   Dim myWS As Worksheet
   Dim CID As String
  Set myWS = Worksheets("logbook")

    ' Go to the existing row
    rowno = CRowNo
    Sheets("Logbook").Activate
    cellrange = "A" & Trim(Str(rowno))
    Range(cellrange).Value = TextBox66.Text
    TextBox66.Text = ""
 
 Sheets("LOGBOOK").Activate
        
    LastRow = ActiveSheet.UsedRange.Rows.Count
    CID = TextBox66.Value

    For n = 1 To LastRow
        If (Trim(Range("A" & Trim(Str(n))).Text) = Trim(CID)) Then
            CRowNo = n
    End If
    Next n
End Sub