Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Visual Basic Новый топик    Ответить
 Вывод строки на другую страницу  [new]
Алексей191919
Member

Откуда:
Сообщений: 8
Доброе время суток!
Помощь в VBA EXCEL
Подскажите у меня при выборе нескольких строк в лист боксе, на рабочий лист выходят все в одну ячейку
что то не хватает в коде
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
Модератор: Учимся использовать тэги оформления кода - FAQ
11 фев 19, 01:22    [21805963]     Ответить | Цитировать Сообщить модератору
 Re: Вывод строки на другую страницу  [new]
Shocker.Pro
Member

Откуда: ->|<- :адуктО
Сообщений: 20439
Алексей191919
все в одну ячейку
ну так ты и указал, чтобы все в одну выводилось:
ws.Cells(newRow, 1)
может быть вместо 1 нужно i?
11 фев 19, 01:41    [21805969]     Ответить | Цитировать Сообщить модератору
 Re: Вывод строки на другую страницу  [new]
Алексей191919
Member

Откуда:
Сообщений: 8
поменял, сперва получилось и то по горизонтали
а теперь ошибка 1004 в этой строке
11 фев 19, 01:51    [21805974]     Ответить | Цитировать Сообщить модератору
 Re: Вывод строки на другую страницу  [new]
iMrTidy
Member

Откуда:
Сообщений: 772
Алексей191919,

Возможно, если покажете, что и как поменяли, то мы подскажем, где-что не так :)
11 фев 19, 10:00    [21806100]     Ответить | Цитировать Сообщить модератору
 Re: Вывод строки на другую страницу  [new]
Алексей191919
Member

Откуда:
Сообщений: 8
Спасибо
но уже сам разобрался
просто дописал в строку
автор
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " ": newRow=newRow+1
11 фев 19, 20:49    [21806849]     Ответить | Цитировать Сообщить модератору
Все форумы / Visual Basic Ответить