How to Offset Column in this Multi Select Listbox?

[VBE313]

I got this code from OnlinePCLearning. How do I offset every other column?

Private Sub cmdAdd_Click()
Dim addme As Range, cNum As Integer
Dim x As Integer, y As Integer, Ck As Integer
'set variables
Set addme = Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
cNum = 7
Ck = 0
'run the for loop
For x = 0 To Me.lstMulti.ListCount - 1
'add condition statement
If Me.lstMulti.Selected(x) Then
Ck = 1
'second loop
For y = 0 To cNum
addme.Offset(0, y) = Me.lstMulti.List(x, y)
Next y
Set addme = addme.Offset(2, 0)
End If
'clear the selected values
lstMulti.Selected(x) = False
Next x
'send a message if nothing is selected
If Ck = 0 Then
MsgBox "There is nothing selected"
End If
End Sub

 

[mikerickson]

Try this

'run the for loop
For x = 0 To Me.lstMulti.ListCount - 1
    'add condition statement
    If Me.lstMulti.Selected(x) Then
        Ck = 1
        'second loop
        For y = 0 To cNum
            addme.Offset(0, [COLOR="#FF0000"]2 * y[/COLOR]) = Me.lstMulti.List(x, y)
        Next y
        Set addme = addme.Offset(2, 0)
    End If
    'clear the selected values
    lstMulti.Selected(x) = False
Next x

 

[DanteAmor]

Another option:

Private Sub cmdAdd_Click()
  [COLOR=#0000ff]Dim lr As Long[/COLOR], cNum As Integer, x As Integer, y As Integer, Ck As Integer
  'set variables
[COLOR=#0000ff]  lr = Sheet1.Cells(Rows.Count, 4).End(xlUp)(2).Row[/COLOR]
  cNum = 7
  Ck = 0
  'run the for loop
  For x = 0 To Me.lstMulti.ListCount - 1
    'add condition statement
    If Me.lstMulti.Selected(x) Then
      Ck = 1
      'second loop
      For y = 0 To cNum
        Cells(lr, 4 + y) = Me.lstMulti.List(x, y)
      Next y
[COLOR=#0000ff]      lr = lr + 1[/COLOR]
    End If
    'clear the selected values
    lstMulti.Selected(x) = False
  Next x
  'send a message if nothing is selected
  If Ck = 0 Then
    MsgBox "There is nothing selected"
  End If
End Sub

 

[mikerickson]

The OP offsets 2 rows for each found item, should that be lr = lr +2 ?

 

[DanteAmor]

The OP offsets 2 rows for each found item, should that be lr = lr +2 ?

If so, then it is correct, it must be lr = lr + 2, but I have the doubt because at the beginning it only offset a row:

Set addme = Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)

 

[VBE313]

Try this

'run the for loop
For x = 0 To Me.lstMulti.ListCount - 1
    'add condition statement
    If Me.lstMulti.Selected(x) Then
        Ck = 1
        'second loop
        For y = 0 To cNum
            addme.Offset(0, [COLOR=#FF0000]2 * y[/COLOR]) = Me.lstMulti.List(x, y)
        Next y
        Set addme = addme.Offset(2, 0)
    End If
    'clear the selected values
    lstMulti.Selected(x) = False
Next x

Thank you Very Much!!