help with column looping

[new2vba]

i have multiple columns with a name followed by five #'s as such:

Name
#1
#2
#3
#4
#5

i'm want to loop through each column, and when criteria are met (ex:#4>#1), copy that column to another location and sort the numbers. i have a problem thinking in vba code, and i can't figure out how to code this logic:

for each column b to e, if row 5>row2 then....

the copy and sort which follows i think i got. Any ideas?

 

[new2vba]

i used numbers you have and your new code...works fine...now format the first number row so that background is colored and run... 1st number is at top, 2-5 are sorted beneath

 

[Macropheliac]

Got it. Try this:

Sub Compare_Entries()
Dim Tcell As Range
Dim Mycell As Range

Range("A11:IV65536").ClearContents

For Each Tcell In Range("A1", Range("A1").End(xlToRight))
    If Tcell.Offset(5).Value < Tcell.Offset(3).Value Then
        Select Case Range("A1").Offset(10).Value
                Case ""
                    Set Mycell = Range("A1").Offset(10)
                Case Is <> ""
                    Set Mycell = Range("IV11").End(xlToLeft).Offset(0, 1)
        End Select

        Tcell.Resize(6).Copy Mycell
        Mycell.Offset(1).Resize(6).Sort Key1:=Mycell.Offset(1), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
    End If
Next Tcell

End Sub

Let me know how it works out.

Mac

 

[new2vba]

i started from scratch...using data from last night and your new code...works fine - then change the background cell color of the first number row - does not sort the first number...change back to white - sorts all numbers again

 

[Macropheliac]

Looks like we posted at the same time. Did you see it?

 

[new2vba]

what's weird isits very inconsistent...color first two number rows - works; color the last three - works; color just the first - doesnt work; color the last four, but not the first - doesnt work

 

[Macropheliac]

Did you try the code posted 3 posts ago? Same result?

 

[new2vba]

yes, thats the code im using

 

[new2vba]

sent you email...but its the same thing u have - the first number row is colored and it doesnt sort the 1st number

 

[Macropheliac]

I tried all 4 scenarios. No problems.

 

[new2vba]

i tried from scratch again...same problem