Vba code if statement

Question

I'm a beginner in using vba code and I need a statement function to make it move to a new columns with a new starting cell output when the row offset of the first columns=1048567 to continue the processing the vba code

If sq(lUser_1, 2) & "" <> sqq(lUser_2) Then

    'we found a new combination, output to screen
    Range(sStartingCellOutput).Offset(lRowOffset).Resize(, 3).Value = Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value)

    'increment the counter
    lRowOffset = lRowOffset + 1

End If

Question is not clear.

Tarik
– Tarik

2015-08-15 10:26:31 +00:00
Commented Aug 15, 2015 at 10:26 — Tarik
– Tarik, Commented Aug 15, 2015 at 10:26

user4039065 · Accepted Answer · 2015-08-15 11:22:27Z

2

You need to introduce another variable to take care of the column offset.

dim lColOffset as long
lColOffset = 0
If sq(lUser_1, 2) & "" <> sqq(lUser_2) Then

    'we found a new combination, output to screen
    Range(sStartingCellOutput).Offset(lRowOffset, lColOffset).Resize(1, 3).Value = _
      Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value)

    'increment the counter
    lRowOffset = lRowOffset + 1
    if lRowOffset >= Rows.Count then
        lRowOffset = 0
        lColOffset = lColOffset + 4
    end if

End If

I've staggered the column offset by 4. You are putting three values into the rows so this will leave a blank column. Adjust that stagger is you wish.

answered Aug 15, 2015 at 11:22

user4039065

Sign up to request clarification or add additional context in comments.

2 Comments

user4039065 Over a year ago

Glad to hear you got sorted out quickly.

paul bica Over a year ago

correct answer to an unclear question: +1 @FifoHsn - please accept the answer to close the question

Collectives™ on Stack Overflow

Vba code if statement

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related