Вывод строки на другую страницу

[Алексей191919]

Доброе время суток! Не могу сообразить, может подскажите.
Хочу сделать так- список услуг и при выборе услуги (её как нибудь отметить) в ячейке Е2 так что бы строка отметилась и по нажатию сохранить( кнопкой CommandButton1) появилась на другом листе.
Заранее спасибо!

[Алексей191919]

тут походу то что лёгко решают

[Alex11223]

Тут форум, а не решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если ищете кого-то, кто выполнит ваши задачи за вознаграждение.

И да, всем обычно влом качать и открывать архивы (особенно если они еще и не zip), разбираться что там в документе.

[Алексей191919]

Спасибо что откликнулись, но я у же почти сам сделал, вот только одна проблема в коде не могу разобраться,если есть время и желание подскажите
у меня при выборе нескольких строк в лист боксе, на рабочий лист выходят все в одну ячейку
что то не хватает в коде

Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " "
End If
Next i
End Sub

[Alex11223]

Так вы newRow не изменяете.

[Алексей191919]

в смысле?
менял наnewRow = i на 0
выдаёт ошибку

[Alex11223]

Ну в ws.Cells(newRow, 1) оба значения одинаковые же на всех итерациях цикла.

[Алексей191919]

даже ws.Cells(newRow, 2) тоже как и 1 только ячейка подвинулась в столбец В

[Алексей191919]

Может в другом месте мешает нормально работать

Private Sub CommandButton1_Click()
Evaluate("'См'!k15") = TextBox1
Evaluate("'См'!L15") = TextBox2
Evaluate("'См'!M15") = TextBox3
End Sub
Private Sub CommandButton2_Click()
Me.Hide
  UserForm1.Show 1
End Sub

Private Sub UserForm_Initialize()

With ListBox6
.ColumnHeads = False
.ColumnCount = 1
.RowSource = "=K10"
End With
With ListBox7
.ColumnHeads = False
.ColumnCount = 1
.RowSource = "=L10"
End With
With ListBox8
.ColumnHeads = False
.ColumnCount = 1
.RowSource = "=N10"
End With



With ListBox9
.ColumnHeads = True
.ColumnCount = 7
.ColumnWidths = "400;0;0;0;0;60;0"
For i = 1 To Sheets(3).Cells(Rows.Count, 2).End(xlUp).Row
If Sheets(3).Cells(i, 2).Value = "Демо1" Then .AddItem (Sheets(3).Cells(i, 1).Value)
Next
End With

With lbDays
.ColumnHeads = True
.ColumnCount = 7
.ColumnWidths = "200;0;0;0;0;60;60"
.TextColumn = 0
.BoundColumn = 0
For i = 1 To Sheets(3).Cells(Rows.Count, 2).End(xlUp).Row
If Sheets(3).Cells(i, 2).Value = "Демо" Then .AddItem (Sheets(3).Cells(i, 1).Value)
Next
 End With
  
End Sub



Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " "
End If
Next i

End Sub

[Aleksandr H.]

Сказано же:

Так вы newRow не изменяете.

If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " ": newRow=newRow+1
End If