Code Does not Realise equal values

hmk

Active Member
Joined
Jun 8, 2004
Messages
423
Hi there
The problem with this line : the code does realise that TextBox2.Value realy equal ws.Range("A65536").End(xlUp).Value.......why is that ?? any idea

Code:
If TextBox2.Value = ws.Range("A65536").End(xlUp).Value Then
ws.Cells(r, Exp) = TextBox1.Value

Code:
Private Sub CommandButton1_Click()
Dim r As Long, Exp As Long
    Dim ws As Worksheet
        
Set ws = Worksheets("sheet1")
r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'*Exp Name
Exp = ThisWorkbook.Sheets(1).Cells.Find(what:=TextBox1.Value, _
                        LookIn:=xlValues, LookAt:=xlPart, _
                        SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column

If TextBox2.Value = ws.Range("A65536").End(xlUp).Value Then
ws.Cells(r, Exp) = TextBox1.Value
Else
With ws
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = TextBox2.Value
.Cells(r, Exp) = TextBox1.Value
End With
End If

End Sub
 

Some videos you may like

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.

hmk

Active Member
Joined
Jun 8, 2004
Messages
423
The problem is solved

Code:
If Val(TextBox2.Text) = ws.Range("A65536").End(xlUp).Value Then
ws.Cells(r - 1, Exp) = TextBox1.Value
 

Watch MrExcel Video

Forum statistics

Threads
1,118,662
Messages
5,573,480
Members
412,533
Latest member
Pejter
Top