Здравствуйте, уважаемые знатоки Excel. Имеется определенный файл с таблицей, которую составил в связи с производственной необходимостью, макросы были найдены в интернете и адаптированы "под себя", но есть один вопрос, ответ на который я не нашел. Знатоки, подскажите, пожалуйста. Подробнее описал ниже. На вкладке "Реализация и себестоимость" после нажатия кнопки "Добавить позицию в отчет" происходит добавление строки, где в ячейке А1 необходимо выбрать из справочника необходимое наименование товара. Но добавление происходит снизу вверх, а нужно сверху вниз. Использовался следующий код макроса: [vba]
Код
Sub ДобСтрРеализ_Щелчок() Application.ScreenUpdating = False ' отключает обновление экрана Rows("10:10").Insert shift:=xlDown Sheets("Шаблоны").Range("A6:M6").Copy Range("A10:M10").Select ActiveSheet.Paste ActiveSheet.Range("B10").Select Application.ScreenUpdating = True ' включает обратно обновление экрана End Sub
[/vba]
Заранее спасибо тем, кто поможет. * В файле с примером макросов нет. В оригинальном файле, который имеет расширение *.xlsm (с поддержкой макросов), они есть, но он "весит" 112 Кб
Здравствуйте, уважаемые знатоки Excel. Имеется определенный файл с таблицей, которую составил в связи с производственной необходимостью, макросы были найдены в интернете и адаптированы "под себя", но есть один вопрос, ответ на который я не нашел. Знатоки, подскажите, пожалуйста. Подробнее описал ниже. На вкладке "Реализация и себестоимость" после нажатия кнопки "Добавить позицию в отчет" происходит добавление строки, где в ячейке А1 необходимо выбрать из справочника необходимое наименование товара. Но добавление происходит снизу вверх, а нужно сверху вниз. Использовался следующий код макроса: [vba]
Код
Sub ДобСтрРеализ_Щелчок() Application.ScreenUpdating = False ' отключает обновление экрана Rows("10:10").Insert shift:=xlDown Sheets("Шаблоны").Range("A6:M6").Copy Range("A10:M10").Select ActiveSheet.Paste ActiveSheet.Range("B10").Select Application.ScreenUpdating = True ' включает обратно обновление экрана End Sub
[/vba]
Заранее спасибо тем, кто поможет. * В файле с примером макросов нет. В оригинальном файле, который имеет расширение *.xlsm (с поддержкой макросов), они есть, но он "весит" 112 КбAccount196
Account196, Ваш макрос не соответствует приложенному файлу. Если правильно поняла, Вам надо найти последнюю заполненную строку и добавлять новые данные после неё. Так? Тогда вместо [vba]
[/vba] Если не угадала, приложите более понятный пример [p.s.]Чтобы файл с макросами уместился в 100 кБ пересохраните его в .xlsb или используйте архиватор[/p.s.]
Account196, Ваш макрос не соответствует приложенному файлу. Если правильно поняла, Вам надо найти последнюю заполненную строку и добавлять новые данные после неё. Так? Тогда вместо [vba]
[/vba] Если не угадала, приложите более понятный пример [p.s.]Чтобы файл с макросами уместился в 100 кБ пересохраните его в .xlsb или используйте архиватор[/p.s.]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Спасибо, что отозвались. Предложенный Вами вариант попробовал. Строки добавляет, но значения не сохраняет. Подскажите, пожалуйста, а на этом форуме можно заархивировать файл, чтобы он весил менее 100 Кб и прикрепить к сообщению?
Спасибо, что отозвались. Предложенный Вами вариант попробовал. Строки добавляет, но значения не сохраняет. Подскажите, пожалуйста, а на этом форуме можно заархивировать файл, чтобы он весил менее 100 Кб и прикрепить к сообщению?Account196
Если вопрос не про "Добавление строк в таблицу снизу вверх", то, конечно, новую тему [p.s.]Приятно, что хоть кто-то прочитал правила форума[/p.s.]
Если вопрос не про "Добавление строк в таблицу снизу вверх", то, конечно, новую тему [p.s.]Приятно, что хоть кто-то прочитал правила форума[/p.s.]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Опппа! После внесения изменения в макрос, исправленный Вами, теперь строки в таблицу стали добавляться не со строки А10:М10, а со строки А2 и ниже. Я что-то сделал не так?
[vba]
Код
Sub ДобСтрРеализ_Щелчок() Application.ScreenUpdating = False ' отключает обновление экрана lrow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Rows(lrow).Insert shift:=xlDown Sheets("Шаблоны").Range("A6:M6").Copy Range("A" & lrow).Select ActiveSheet.Paste ActiveSheet.Range("B10").Select Application.ScreenUpdating = True ' включает обратно обновление экрана End Sub
Опппа! После внесения изменения в макрос, исправленный Вами, теперь строки в таблицу стали добавляться не со строки А10:М10, а со строки А2 и ниже. Я что-то сделал не так?
[vba]
Код
Sub ДобСтрРеализ_Щелчок() Application.ScreenUpdating = False ' отключает обновление экрана lrow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Rows(lrow).Insert shift:=xlDown Sheets("Шаблоны").Range("A6:M6").Copy Range("A" & lrow).Select ActiveSheet.Paste ActiveSheet.Range("B10").Select Application.ScreenUpdating = True ' включает обратно обновление экрана End Sub