Необходимо вставить значения ниже, если ячейка занята

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Необходимо вставить значения ниже, если ячейка занята (Макросы/Sub)

Zlodey

Дата: Четверг, 31.01.2019, 11:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Требуется помощь в написании доп. команды для макроса.
Задача макроса копировать необходимые данные из одной книги и вставить значения в другую книгу (в таблицу)
Необходимо, что бы перед тем как вставить значения, он проверял ячейку, если там есть данные, то вставить ниже в первую свободную ячейку.
Параллельное размещение темы.
[vba]

Код

Sub Отчетность_в_РОО()
'Выделить диапазон который необходимо скопировать
Range("A3:E3").Select
'Скопировать то, что выделено
Selection.Copy
ChDir "C:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"
'Выделить начальную ячейку в которую необходимо вставить скопированные данные
Range("B3").Select
'Вставить данные (как значения)
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'сохранить текущую книгу
ActiveWorkbook.Save
'Закрыть книгу
ActiveWorkbook.Close
End Sub

[/vba]
Так же имеются следующие проблемы
Если в макросе путь указан:
[vba]

Код

ChDir "C:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
То все отлично работает

Если указан, например:
[vba]

Код

ChDir "D:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
о не находит файл, и так с любым путем на диске D, а мне нужно в дропбоксе сохранять, который именно там и находится.

Код

[/vba]
Так же имеются следующие проблемы
Если в макросе путь указан:
[vba]

Код

ChDir "C:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
То все отлично работает

Если указан, например:
[vba]

Код

ChDir "D:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
о не находит файл, и так с любым путем на диске D, а мне нужно в дропбоксе сохранять, который именно там и находится.Zlodey

Сообщение отредактировал Zlodey - Четверг, 31.01.2019, 13:33

Ответить

СообщениеТребуется помощь в написании доп. команды для макроса.
Задача макроса копировать необходимые данные из одной книги и вставить значения в другую книгу (в таблицу)
Необходимо, что бы перед тем как вставить значения, он проверял ячейку, если там есть данные, то вставить ниже в первую свободную ячейку.
Параллельное размещение темы.
[vba]

Код

[/vba]
Так же имеются следующие проблемы
Если в макросе путь указан:
[vba]

Код

ChDir "C:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
То все отлично работает

Если указан, например:
[vba]

Код

ChDir "D:\1"
Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

Автор - Zlodey
Дата добавления - 31.01.2019 в 11:21

китин

Дата: Четверг, 31.01.2019, 11:33 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

и вам здравствуйте
[vba]

Код

pos=Cells(Rows.Count, 2).End(xlUp).Row+1
Range("B" & pos).Select

[/vba]
вставьте это после
[vba]

Код

Workbooks.Open Filename:="1. ЕЖЕКВАРТАЛЬНАЯ ОТЧЕТНОСТЬ В РОО.xlsx"

[/vba]
Без файла ответ м.б. только такой.
[p.s.]здороваться конечно необязательно

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Zlodey

Дата: Четверг, 31.01.2019, 11:38 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Цитата китин, 31.01.2019 в 11:33, в сообщении № 2 ()

P.S.
здороваться конечно необязательно

Здравствуйте!
Копипаст

, пропустил, извиняюсь

Ответить

vikttur

Дата: Четверг, 31.01.2019, 11:45 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

И еще одно пропустили
Кросс

Сообщение отредактировал vikttur - Четверг, 31.01.2019, 11:45

Ответить

Zlodey

Дата: Четверг, 31.01.2019, 12:52 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Сообщение отредактировал Zlodey - Четверг, 31.01.2019, 13:08

Ответить

китин

Дата: Четверг, 31.01.2019, 12:54 | Сообщение № 6

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Zlodey, вы еще замечание хотите? их есть у меня. оформите свой пост как положено

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Zlodey

Дата: Четверг, 31.01.2019, 13:24 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Цитата китин, 31.01.2019 в 12:54, в сообщении № 6 ()

оформите свой пост как положено

Что имеется ввиду?
(Предыдущее сообщение можно удалить?)

Ответить

китин

Дата: Четверг, 31.01.2019, 13:29 | Сообщение № 8

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

вот это

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Zlodey

Дата: Четверг, 31.01.2019, 14:13 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Сам решил проблему с тем, что макрос не находил файл
Команда:
[vba]

Код

ChDir "D\

[/vba]
Может менять только директорию, но не может менять рабочий диск

Для смены рабочего диска, команда:
[vba]

Код

ChDrive "D\

[/vba]

Сообщение отредактировал Zlodey - Четверг, 31.01.2019, 14:13

Ответить

Страница 1 из 1
1