запуск макроса с нужного места - Microsoft Office Excel

drollig · 23.02.2012, 19:51

Доброго времени!
Надеюсь, вы поможете решить мне еще одну хитрую задачку)
Есть макрос - он делает расчет по ВПР и сохраняет значения. Задача научить его делать эту процедуру каждый раз с последней незаполненной строки. Помогите советом - как начать запись макроса?

motorway · 23.02.2012, 20:47

Данный код ищет последнюю заполненную строку.

Код:

LastUsedRow = ActiveSheet.UsedRange.Rows.Count - ActiveSheet.UsedRange.Row + 1

Соответственно, последняя незаполненная - это на конце + 2

drollig · 23.02.2012, 21:03

я правильно понимаю, что этот код надо вписать в макрос после sub, перед всеми остальными строками?
волшебство просто)

motorway · 23.02.2012, 21:18

Да, а потом использовать в нужном месте, где нужно передавать параметр

drollig · 23.02.2012, 21:20

motorway, огромное спасибо!)

drollig · 23.02.2012, 22:16

показалось, что будет просто.... не справилась((
помоги, пожалуйста!
макрос выглядит вот так:
получается, что стартует и заканчивает на тех строках, где я его писала. А мне надо, чтобы он работал на тех, которые будут пустыми и пересчитывал внесенные слева данные. Т.е.каждый раз считал с того места, где закончились расчеты в предыдущий раз.
как можно вставить сюда код?

Sub счет()
'
' счет Макрос
'

'
Selection.End(xlDown).Select
Range("L5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],UPC!R3C3:R172C4,2,0)"
Range("M5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],прайс!R3C3:R172C4,2,0)"
Range("N5").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/30"
Range("O5").Select
ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-2]"
Range("P5").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*RC[-2]"
Range("Q5").Select
ActiveCell.FormulaR1C1 = "=RC[2]*RC[-4]"
Range("R5").Select
ActiveCell.FormulaR1C1 = "=RC[1]*RC[-4]"
Range("L5:R5").Select
Selection.AutoFill Destination:=Range("L5:R7522")
Range("L5:R7522").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

23.02.2012, 19:51	#1
drollig Пользователь Регистрация: 17.02.2012 Сообщений: 10	запуск макроса с нужного места Доброго времени! Надеюсь, вы поможете решить мне еще одну хитрую задачку) Есть макрос - он делает расчет по ВПР и сохраняет значения. Задача научить его делать эту процедуру каждый раз с последней незаполненной строки. Помогите советом - как начать запись макроса?

23.02.2012, 20:47	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Данный код ищет последнюю заполненную строку. Код: `LastUsedRow = ActiveSheet.UsedRange.Rows.Count - ActiveSheet.UsedRange.Row + 1` Соответственно, последняя незаполненная - это на конце + 2 Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

23.02.2012, 21:18	#4
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Да, а потом использовать в нужном месте, где нужно передавать параметр Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Запуск макроса	kaa1977	Microsoft Office Excel	5	12.04.2011 10:44
Запуск макроса	Gvaridos	Microsoft Office Excel	4	22.11.2010 11:35
Автоматический запуск макроса	АлёнаP	Microsoft Office Excel	4	28.03.2010 12:55
Запуск макроса	serafim09	Microsoft Office Excel	9	03.09.2009 16:55
Запуск макроса с параметрами из другого макроса	Saladin	Microsoft Office Excel	2	19.01.2009 09:43

23.02.2012, 21:03	#3
drollig Пользователь Регистрация: 17.02.2012 Сообщений: 10	я правильно понимаю, что этот код надо вписать в макрос после sub, перед всеми остальными строками? волшебство просто)

23.02.2012, 21:20	#5
drollig Пользователь Регистрация: 17.02.2012 Сообщений: 10	motorway, огромное спасибо!)

23.02.2012, 22:16	#6
drollig Пользователь Регистрация: 17.02.2012 Сообщений: 10	показалось, что будет просто.... не справилась(( помоги, пожалуйста! макрос выглядит вот так: получается, что стартует и заканчивает на тех строках, где я его писала. А мне надо, чтобы он работал на тех, которые будут пустыми и пересчитывал внесенные слева данные. Т.е.каждый раз считал с того места, где закончились расчеты в предыдущий раз. как можно вставить сюда код? Sub счет() ' ' счет Макрос ' ' Selection.End(xlDown).Select Range("L5").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],UPC!R3C3:R172C4,2,0)" Range("M5").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],прайс!R3C3:R172C4,2,0)" Range("N5").Select ActiveCell.FormulaR1C1 = "=RC[-1]/30" Range("O5").Select ActiveCell.FormulaR1C1 = "=RC[-4]RC[-2]" Range("P5").Select ActiveCell.FormulaR1C1 = "=RC[-5]RC[-2]" Range("Q5").Select ActiveCell.FormulaR1C1 = "=RC[2]RC[-4]" Range("R5").Select ActiveCell.FormulaR1C1 = "=RC[1]RC[-4]" Range("L5:R5").Select Selection.AutoFill Destination:=Range("L5:R7522") Range("L5:R7522").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub