The table is
<tbody>
</tbody>
Below is the code
Private Sub CommandButton1_Click()
Dim InitialRow As Integer
InitialRow = 2
Set BaseSheet = ThisWorkbook.Sheets("sheet2")
FinalRow = BaseSheet.Cells(BaseSheet.Rows.Count, "A").End(xlUp).Row 'This gives the number of data in the column "B"
For RowCounter = 2 To FinalRow ' The loop you wanted
If RowCounter = FinalRow Then
MsgBox ("The End")
End
End If
If IsNumeric(Range("A2")) = True Then
Range("D2") = "A1 is a number"
Else
Range("D2") = "A1 is not number"
End If
Sheets("Sheet2").Range("A" & InitialRow).Select
InitialRow = InitialRow + 1
Next
End Sub
I have done a bit of changes to previous code just dont know why output is not changing in each row
SEQ | acc | bsb |
1 | 123 | 4567 |
bas | 456 | 789 |
2 | 123 | 4567 |
3 | 147 | 78999 |
<tbody>
</tbody>
Below is the code
Private Sub CommandButton1_Click()
Dim InitialRow As Integer
InitialRow = 2
Set BaseSheet = ThisWorkbook.Sheets("sheet2")
FinalRow = BaseSheet.Cells(BaseSheet.Rows.Count, "A").End(xlUp).Row 'This gives the number of data in the column "B"
For RowCounter = 2 To FinalRow ' The loop you wanted
If RowCounter = FinalRow Then
MsgBox ("The End")
End
End If
If IsNumeric(Range("A2")) = True Then
Range("D2") = "A1 is a number"
Else
Range("D2") = "A1 is not number"
End If
Sheets("Sheet2").Range("A" & InitialRow).Select
InitialRow = InitialRow + 1
Next
End Sub
I have done a bit of changes to previous code just dont know why output is not changing in each row