using left and right formula...in VBA

[mrinal saha]

Hi All,

I am using logic of right function in vba but somehow its is working...

What I am looking for is, if the cell doesn't end with US or PR, cut the row and paste it at the top of the data. Inspite, it cuts everyrow and paste it on the top one by one regardless the parameters.

For a = 7 To rownum - 2
If Right(Cells(a, 7).Value, 2) <> "US" Or Right(Cells(a, 7).Value, 2) <> "PR" Then
Cells(a, 7).EntireRow.Cut
Rows("6:6").Select
Selection.Insert Shift:=xlDown
End If
Next a

Any help would be appreciated...Many thanks.

regards,
Mrinal

 

[VoG]

Try

If Right(Cells(a, 7).Value, 2) <> "US" And Right(Cells(a, 7).Value, 2) <> "PR" Then

 

[brettdj]

I suggest you use
Right$ and Left$
rather than
Right and Left

The first versions are string functions and therefore will be more efficient codewise when processing many loops than their variant cousins.

Cheers

Dave