if cell does not contain value skip then go to next code

[Leksv0j]

Hi

Would someone be able to help with the VBA code if cell does not contain "data" the go to next code?

Eg: skip cell does not contain "Asset" the go to next code cell contains "Same"?

I have the below code which I use to generate cell range contains "asset"

ActiveSheet.Range("$A$1:$AA$76").AutoFilter Field:=22, Criteria1:= _"=*Asset*", Operator:=xlAnd

''''' do stuff'''''''''''

i want the code above to if not found go to next code

Sub within_PO()

ActiveSheet.Range("$A$1:$AA$76").AutoFilter Field:=22, Criteria1:= _"=*Same*", Operator:=xlAnd

Thank you so much

<tbody>
</tbody>

 

[Fluff]

Could you run this

Sub TASKSHEET()

    Dim UsdRws As Long
    Dim w As Workbook

    UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Columns("V:V").Select
    ActiveSheet.Range("V1:V" & UsdRws).AutoFilter Field:=22, Criteria1:="=*Asset*"
    MsgBox Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count
End Sub

This will say how many visible cells there are

 

[Leksv0j]

Could you run this

Sub TASKSHEET()

    Dim UsdRws As Long
    Dim w As Workbook

    UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Columns("V:V").Select
    ActiveSheet.Range("V1:V" & UsdRws).AutoFilter Field:=22, Criteria1:="=*Asset*"
    MsgBox Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count
End Sub

This will say how many visible cells there are

my result is 82. 81"Asset* found visible.

 

[Fluff]

Apologies, I should have asked you to run that when there are no values of "Asset" to be found.

 

[Leksv0j]

Apologies, I should have asked you to run that when there are no values of "Asset" to be found.

I did try that too and the result is 1. Row header only

 

[Fluff]

I did try that too and the result is 1. Row header only

In that case I'm not sure what the problem is. If you get a value of 1 when there is only the header row (ie no values of "Asset") then the red part of this line

    If [COLOR=#ff0000]Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count = 1[/COLOR] Then GoTo Xit

returns true & it should goto Xit

Are you saying that this is not happening?

 

[Leksv0j]

In that case I'm not sure what the problem is. If you get a value of 1 when there is only the header row (ie no values of "Asset") then the red part of this line

    If [COLOR=#ff0000]Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count = 1[/COLOR] Then GoTo Xit

returns true & it should goto Xit

Are you saying that this is not happening?

it counts the row header that is why i get a value of 1. right?
yes it returns true and should go to Xit but it does not go there and still proceed with the next statement of code.

 

[Fluff]

it counts the row header that is why i get a value of 1. right?

Yes that's correct.

The question is, why is it then going to the next line rather than the GoTo?
And unfortunately, the answer is

I haven't got a clue

 

[Leksv0j]

i guess this is working now. injecting this code below.

Dim UsdRws As Long    Dim w As Workbook


    UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Columns("V:V").Select
    ActiveSheet.Range("V1:V" & UsdRws).AutoFilter Field:=22, Criteria1:="=*Asset*"


    

     If Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count = 1 Then GoTo Xit

i will try this on different sheets i will received and let you know.

 

[Leksv0j]

i guess this is working now. injecting this code below.

Dim UsdRws As Long    Dim w As Workbook


    UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Columns("V:V").Select
    ActiveSheet.Range("V1:V" & UsdRws).AutoFilter Field:=22, Criteria1:="=*Asset*"


    

     If Range("V1:V" & UsdRws).SpecialCells(xlVisible).Cells.Count = 1 Then GoTo Xit

i will try this on different sheets i will received and let you know.

The code is working fine now. thanks you so much Fluff!

 

[Fluff]

Glad to help & thanks for the feedback