If only run first line and skip the others

[Capa7md]

Hi i want ti edit my data by using if and when i run the code it just go to first line and skip the others

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim NewRow As Long
LastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For NewRow = 3 To LastRow
If Sheet1.Cells(NewRow, 1) = CInt(Me.TextBox6) Then
Sheet1.Cells(NewRow, 2) = Me.TextBox1
Sheet1.Cells(NewRow, 3) = Me.TextBox2
End If
Next NewRow



End Sub

 

[NoSparks]

Just a guess

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim NewRow As Long
    
LastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For NewRow = 3 To LastRow
    If Sheet1.Cells(NewRow, 1) = CInt(Me.TextBox6) Then
        Sheet1.Cells(NewRow, 2) = Me.TextBox1
        Sheet1.Cells(NewRow, 3) = Me.TextBox2
        Exit For
    End If
Next NewRow

End Sub

 

[Capa7md]

Just a guess

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim NewRow As Long
   
LastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For NewRow = 3 To LastRow
    If Sheet1.Cells(NewRow, 1) = CInt(Me.TextBox6) Then
        Sheet1.Cells(NewRow, 2) = Me.TextBox1
        Sheet1.Cells(NewRow, 3) = Me.TextBox2
        Exit For
    End If
Next NewRow

End Sub

Yes this is my code but my problem is the code only run the first line in if and skep the second line if the condition was true

 

[NoSparks]

Sorry, I misunderstood what you're asking.

what is the value in cells(NewRow,1) and what is the value in TextBox6 ?

 

[Capa7md]

Sorry, I misunderstood what you're asking.

what is the value in cells(NewRow,1) and what is the value in TextBox6 ?

The value in cells(NewRow,1) is number by using row() and text 6 also serial number using row() . The reason of the code to find the row to edit data in it i camper the vlaue in text6 which came from listbox by clicking and gave the serial number

 

[NoSparks]

Set a break point on the If line and the code will stop there when you run it.
Now execute each line one at a time with the F8 key and verify that Excel is seeing the two values as equal and is continuing on to the other lines

 

[Capa7md]

Set a break point on the If line and the code will stop there when you run it.
Now execute each line one at a time with the F8 key and verify that Excel is seeing the two values as equal and is continuing on to the other lines

I actually did that and vba code just do the first line of if and skip all sub

 

[NoSparks]

Sure sounds to me that the IF statement is FALSE.
But maybe I don't know which line you are referring to as the first line.
Is the IF statement not being executed?

 

[Skyybot]

If Sheet1.Cells(NewRow, 1) = CInt(Me.TextBox6)

Both will have to be the data type Long or you may get False.

 

[NoSparks]

NewRow is declared as Long and TextBox6 is coerced to Integer.
Not exactly the same data types but works on my Excel 2010.
I may be mistaken but think Excel converts Integer to Long internally since Excel 2007.
Probably should have changed CInt to CLng regardless.