Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

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, 11:06   #3
amadeus017
Форумчанин
 
Регистрация: 28.05.2014
Сообщений: 151
Репутация: 10
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование последней строки из 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


19:44.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru