Excel Macro Just need to go next ROW if the value is not Numeric.

[Gomes1985]

This code has some syntax error but its generic I cant understand. Says For with no Next I have got an next in code it as I am new at this how can I Skip to next row if the row does not contain a number?

For Each Nextcell In Range(InitialRow)
If Not IsNumeric(Nextcell) Then
IsNotNumber = True
Sheets("GAMMING").Range("B" & InitialRow).Select
InitialRow = InitialRow + 1
End If
Next Nextcell

Any help would be great

 

[My Aswer Is This]

Gomes.

You need to tell us what your wanting to do and we will write you a script.

 

[Gomes1985]

What I currently doing it I have Excel sheet I am reading 1 line at a time.

The Column A contains Integers and Strings. I just need to skip to the next line if the code comes across any String only in Column A.

hope that makes more sense now?

 

[My Aswer Is This]

Since you really did not say what your wanting to do this may help

If IsNumeric(Cells(i, 1)) = True Then

 

[Gomes1985]

The table is

[TABLE="width: 192"]
<colgroup><col width="64" style="width:48pt"> <col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 64"]SEQ[/TD]
[TD="width: 64"]acc[/TD]
[TD="width: 64"]bsb[/TD]
[/TR]
[TR]
[TD="class: xl65, align: right"]1[/TD]
[TD="align: right"]123[/TD]
[TD="align: right"]4567[/TD]
[/TR]
[TR]
[TD="class: xl65"]bas[/TD]
[TD="align: right"]456[/TD]
[TD="align: right"]789[/TD]
[/TR]
[TR]
[TD="class: xl65, align: right"]2[/TD]
[TD="align: right"]123[/TD]
[TD="align: right"]4567[/TD]
[/TR]
[TR]
[TD="class: xl65, align: right"]3[/TD]
[TD="align: right"]147[/TD]
[TD="align: right"]78999

[/TD]
[/TR]
</tbody>[/TABLE]
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

 

[Trebor76]

Hi Gomes1985,

Try this:

Option Explicit
Sub Macro2()

    Dim lngMyRow As Long
    Dim lngLastRow As Long
    Dim wsSource As Worksheet
    
    Application.ScreenUpdating = False
    
    Set wsSource = Sheets("Sheet2")
    
    lngLastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
    
    For lngMyRow = 2 To lngLastRow
        If IsNumeric(wsSource.Range("A" & lngMyRow)) = True Then
            wsSource.Range("D" & lngMyRow).Value = "A" & lngMyRow & " is a number"
        Else
            wsSource.Range("D" & lngMyRow).Value = "A" & lngMyRow & " is not a number"
        End If
    Next lngMyRow
    
    Application.ScreenUpdating = True

End Sub

Regards,

Robert

 

[Gomes1985]

Hi Robert,

Thanks for that Works like a charm.

 

[Trebor76]

Thanks for letting us know and you're welcome

 

[Gomes1985]

Sorry just side Question on this same code.

Instead of getting a output on Column D. If I just read whats on Column A and NOT provide an output but go to nextline

How would I do it?

 

[My Aswer Is This]

You just want the script to just check and then do nothing but go to next row then use this script.

Option Explicit
Sub Macro2()

    Dim lngMyRow As Long
    Dim lngLastRow As Long
    Dim wsSource As Worksheet
    
    Application.ScreenUpdating = False
    
    Set wsSource = Sheets("Sheet2")
    
    lngLastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
    
    For lngMyRow = 2 To lngLastRow
        If IsNumeric(wsSource.Range("A" & lngMyRow)) = True Then
            
        Else
            
        End If
    Next lngMyRow
    
    Application.ScreenUpdating = True

End Sub