значение Вставить из ListBox по умолчанию столбцы (строки под выбранным полем)

Question

Я попытался вставить значение из ListBox: alwyas один ряд ниже выбора, в колонке C, D, E, F.

мой код:

Dim addme as Range 
Set addme = Application.Selection 

    For x = 0 To Me.lbsourceList.ListCount - 1 
     If Me.lbsourceList.Selected(x) Then   

      'addme.Offset(1,) = Me.lbsourceList.List(x, 1)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 2)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 3)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 4)' 

      Set addme = addme.Offset(1, 0)  
     End If 
    Next x 

Смещение (1,0) будет проходить под одной строкой ниже, но я не знаю, как настроить столбец C, D, E, F как defualt.

Answer 1

Попробуйте следующий код, чтобы получить Offset работу в Selection, но в колонке C.

Dim addme As Range 
Set addme = Selection 

' set the range to selection's row, but in Column C 
Set addme = Cells(Selection.Row, "C") 

' now offset 1 row below 
addme.Offset(1) = "test offset" 

Edit 1: обновленный код, чтобы соответствовать новым данным ЗП:

Range(Cells(addme.Row, "C"), Cells(addme.Row, "C")).Offset(1).Value = Me.lbsourceList.List(x, 1) 
Range(Cells(addme.Row, "D"), Cells(addme.Row, "D")).Offset(1).Value = Me.lbsourceList.List(x, 2) 
Range(Cells(addme.Row, "E"), Cells(addme.Row, "E")).Offset(1).Value = Me.lbsourceList.List(x, 3) 
Range(Cells(addme.Row, "F"), Cells(addme.Row, "F")).Offset(1).Value = Me.lbsourceList.List(x, 4)