Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2018, 06:46   #1
amadeus017
Форумчанин
 
Регистрация: 28.05.2014
Сообщений: 158
По умолчанию Копировать формулу до последней строки

Доброго времени суток, уважаемые форумчане!

Есть файл, в котором есть макрос написанный мною макрорекордером, так как по другому не умею (я бухгалтер) и задача этого макроса заключается в том, чтобы прописывал имя склада (в моем случаи, это город где находится товар). Сколько будет строк в отчете, я не знаю, так как всегда по разному, по этому формула которую я хочу проставить, копирую до 150 000 строки. Макрос надывается "Склад" и привязан к кнопке "ЖМИ".
Можно как-то это упростить макрос, чтобы формулу копировал не 150 т. строк, а лишь на непустые строки в по графе "C"?
(Читал на форумах макросы по поиску последней строки, ни внедрить в свой макрос, не получилось)
Вложения
Тип файла: rar Остаток товара сегодня.rar (138.4 Кб, 13 просмотров)
amadeus017 вне форума Ответить с цитированием
Старый 09.07.2018, 09:11   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Если убрать из макроса лишнее, получится следующее
Код:
Sub Склад()

Application.ScreenUpdating = False

    Range("M3", Range("M3").End(xlDown)).ClearContents
    
    With Range("M5:M" & Cells(Rows.Count, "C").End(xlUp).Row) 'посл. строка определяется по ст. С
      .FormulaR1C1 = "=IF(RC[-10]="""","""",IF(RC[-9]="""",RC[-10],IF(RC[-9]=""шт"",R[-1]C,"""")))"
      .Value = .Value
    End With
    Range("A1").ClearContents

Application.ScreenUpdating = True

End Sub
Почитайте http://www.sql.ru/faq/faq_topic.aspx?fid=4344
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 09.07.2018, 10:06   #3
amadeus017
Форумчанин
 
Регистрация: 28.05.2014
Сообщений: 158
По умолчанию

Спасибо! Все работает как и хотелось!

Статью прочту, пригодится.
amadeus017 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование последней строки из richTextBox updaite C# (си шарп) 2 22.10.2013 20:56
Макрос не позволяет копировать слишком длинную формулу ILF_ollie Microsoft Office Excel 6 17.04.2013 15:17
Как доработать формулу до последней непустой яч-и? maseur Microsoft Office Excel 5 21.11.2012 22:28
нахождение последней строки liker125 Microsoft Office Excel 14 14.07.2011 11:04
как можно копировать значение последней ячейки zander Microsoft Office Excel 1 18.08.2009 18:04