Вставить несколько скопированных ячеек со сдвигом вниз
Sidvit
Дата: Четверг, 18.01.2018, 11:11 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
День добрый! Прошу помочь в написании макроса к кнопке "Скопировать в журнал". При нажатии кнопки "Скопировать в журнал", необходимо скопировать данные из ячеек A1, B1, C8, B9, B11 на лист "Журнал учета", если стока 2 пустая, если нет то опускался ниже стока 3 итд.
День добрый! Прошу помочь в написании макроса к кнопке "Скопировать в журнал". При нажатии кнопки "Скопировать в журнал", необходимо скопировать данные из ячеек A1, B1, C8, B9, B11 на лист "Журнал учета", если стока 2 пустая, если нет то опускался ниже стока 3 итд. Sidvit
Заранее благодарю! С уважением, Sidivit.
Ответить
Сообщение День добрый! Прошу помочь в написании макроса к кнопке "Скопировать в журнал". При нажатии кнопки "Скопировать в журнал", необходимо скопировать данные из ячеек A1, B1, C8, B9, B11 на лист "Журнал учета", если стока 2 пустая, если нет то опускался ниже стока 3 итд. Автор - Sidvit Дата добавления - 18.01.2018 в 11:11
Karataev
Дата: Четверг, 18.01.2018, 12:54 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация:
533
±
Замечаний:
0% ±
Excel
[vba]
Код
Sub Скопировать() Dim shSrc As Worksheet, tblRes As ListObject Set shSrc = ActiveSheet Set tblRes = Worksheets("Журнал учета").ListObjects(1) If tblRes.ListRows.Count = 0 Then tblRes.ListRows.Add End If If tblRes.Range.Range("A2").Value <> "" Then tblRes.ListRows.Add End If With tblRes.ListRows(tblRes.ListRows.Count).Range .Range("A1").Value = shSrc.Range("A2").Value .Range("B1").Value = shSrc.Range("B2").Value .Range("C1").Value = shSrc.Range("C8").Value .Range("D1").Value = shSrc.Range("B9").Value .Range("E1").Value = shSrc.Range("B11").Value End With MsgBox "Готово!", vbInformation End Sub
[/vba]
[vba]
Код
Sub Скопировать() Dim shSrc As Worksheet, tblRes As ListObject Set shSrc = ActiveSheet Set tblRes = Worksheets("Журнал учета").ListObjects(1) If tblRes.ListRows.Count = 0 Then tblRes.ListRows.Add End If If tblRes.Range.Range("A2").Value <> "" Then tblRes.ListRows.Add End If With tblRes.ListRows(tblRes.ListRows.Count).Range .Range("A1").Value = shSrc.Range("A2").Value .Range("B1").Value = shSrc.Range("B2").Value .Range("C1").Value = shSrc.Range("C8").Value .Range("D1").Value = shSrc.Range("B9").Value .Range("E1").Value = shSrc.Range("B11").Value End With MsgBox "Готово!", vbInformation End Sub
[/vba]
Karataev
Сообщение отредактировал Karataev - Четверг, 18.01.2018, 13:36
Ответить
Сообщение
[vba]
Код
Sub Скопировать() Dim shSrc As Worksheet, tblRes As ListObject Set shSrc = ActiveSheet Set tblRes = Worksheets("Журнал учета").ListObjects(1) If tblRes.ListRows.Count = 0 Then tblRes.ListRows.Add End If If tblRes.Range.Range("A2").Value <> "" Then tblRes.ListRows.Add End If With tblRes.ListRows(tblRes.ListRows.Count).Range .Range("A1").Value = shSrc.Range("A2").Value .Range("B1").Value = shSrc.Range("B2").Value .Range("C1").Value = shSrc.Range("C8").Value .Range("D1").Value = shSrc.Range("B9").Value .Range("E1").Value = shSrc.Range("B11").Value End With MsgBox "Готово!", vbInformation End Sub
[/vba]
Автор - Karataev Дата добавления - 18.01.2018 в 12:54
Sidvit
Дата: Четверг, 18.01.2018, 13:13 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Огромное спасибо за помощь!!! Можно еще вас попросить немного помочь? Как будет выглядеть макрос если в таблице на листе "Журнал учета" будет только заголовок, и заполнение начнется сразу со второй строки итд?
Огромное спасибо за помощь!!! Можно еще вас попросить немного помочь? Как будет выглядеть макрос если в таблице на листе "Журнал учета" будет только заголовок, и заполнение начнется сразу со второй строки итд? Sidvit
Заранее благодарю! С уважением, Sidivit.
Сообщение отредактировал Sidvit - Четверг, 18.01.2018, 13:22
Ответить
Сообщение Огромное спасибо за помощь!!! Можно еще вас попросить немного помочь? Как будет выглядеть макрос если в таблице на листе "Журнал учета" будет только заголовок, и заполнение начнется сразу со второй строки итд? Автор - Sidvit Дата добавления - 18.01.2018 в 13:13
Karataev
Дата: Четверг, 18.01.2018, 13:17 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация:
533
±
Замечаний:
0% ±
Excel
Макрос сейчас работает с Вашим файлом примером, если на листе "Журнал учета" в таблице будет только заголовок.
Макрос сейчас работает с Вашим файлом примером, если на листе "Журнал учета" в таблице будет только заголовок. Karataev
Сообщение отредактировал Karataev - Четверг, 18.01.2018, 13:27
Ответить
Сообщение Макрос сейчас работает с Вашим файлом примером, если на листе "Журнал учета" в таблице будет только заголовок. Автор - Karataev Дата добавления - 18.01.2018 в 13:17
Sidvit
Дата: Четверг, 18.01.2018, 13:24 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Karataev, если только заголовок, появляется ошибка. Вот пример. Посмотрите пожалуйста.
Karataev, если только заголовок, появляется ошибка. Вот пример. Посмотрите пожалуйста. Sidvit
К сообщению приложен файл:
__2.xlsm
(22.4 Kb)
Заранее благодарю! С уважением, Sidivit.
Ответить
Сообщение Karataev, если только заголовок, появляется ошибка. Вот пример. Посмотрите пожалуйста. Автор - Sidvit Дата добавления - 18.01.2018 в 13:24
Karataev
Дата: Четверг, 18.01.2018, 13:36 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация:
533
±
Замечаний:
0% ±
Excel
исправил макрос в посте 2
Ответить
Сообщение исправил макрос в посте 2 Автор - Karataev Дата добавления - 18.01.2018 в 13:36
Sidvit
Дата: Четверг, 18.01.2018, 13:44 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Karataev, огромное Вам спасибо! Очень помогли!!!
Karataev, огромное Вам спасибо! Очень помогли!!! Sidvit
Заранее благодарю! С уважением, Sidivit.
Ответить
Сообщение Karataev, огромное Вам спасибо! Очень помогли!!! Автор - Sidvit Дата добавления - 18.01.2018 в 13:44