Макрос вырезать - вставить

@LenaKar89 · Регистрация: 23.02.2013

Author24 — интернет-сервис помощи студентам

Добрый день, необходим макрос для кнопки, при нажатии на которую определенный диапазон ячеек будет смещаться на один столбец левее или на одну строку выше. Пример во вложении.Пример смещение.xlsx

@LenaKar89 · 13.12.2017, 11:30 **[ТС]**

Причем нужно чтобы это происходило на нескольких листах сразу.

@Казанский · 13.12.2017, 12:01

Сообщение от LenaKar89

Смещение влево на один столбец C2:F10... Причем нужно чтобы это происходило на нескольких листах сразу

Выделить нужные листы, выделить В2:В10, правый клик - удалить - ОК, не вариант?

@LenaKar89 · 13.12.2017, 12:35 **[ТС]**

Мне нужно не удалить, а сместить на столбец левее, или на строку выше, в зависимости от листа. Конечно можно каждый раз вручную делать на каждой странице, но хочется автоматезировать. диапазон смещения всегда один и тот же на каждой странице.

@Linoge · 13.12.2017, 13:03

Сообщение от LenaKar89

Мне нужно не удалить, а сместить на столбец левее, или на строку выше, в зависимости от листа.

А что по вашему произойдет с теми данными куда сместиться?

Код

Worksheets("Лист1").Range("B2:B10").Delete (xlShiftToLeft)
Worksheets("Лист1").Range("B14:D14").Delete (xlShiftUp)

Добавлено через 1 минуту
Хотя не прокатит если есть еще данные дальше за этим диапазоном. Но об этом в условии не было)
Если все-таки есть - добавить ячейки в конец диапазона

Код

Worksheets("Лист1").Range("F2:F10").Insert (xlShiftToRight)

@Казанский · 13.12.2017, 13:04

Сообщение от LenaKar89

Мне нужно не удалить, а сместить на столбец левее

Поясните на примере, чем отличается "сместить на столбец левее" от "удалить столбец левее". Там что ли правее данные есть, которые не должны смещаться?

Сообщение от LenaKar89

сместить на столбец левее, или на строку выше, в зависимости от листа

Макрос сам должен находить эту зависимость, или это будут два разных макроса, которые Вы будете запускать по своему усмотрению?

PS не видел поста выше

@Narimanych · 13.12.2017, 13:16

LenaKar89,

Сообщение от LenaKar89

диапазон смещения всегда один и тот же на каждой странице.

Укажите хотя бы диапазоны

1) для сдвига влево
2) для сдвига вверх

@LenaKar89 · 13.12.2017, 17:12 **[ТС]**

Сообщение от Narimanych

LenaKar89,

Укажите хотя бы диапазоны

1) для сдвига влево
2) для сдвига вверх

Из примера:
Значения ячеек C2:F10 должны переместиться в B2:E10

Значения B15: D19 переместиться в B14: D18

Если можно привязать к одной кнопке значит макрос, если нет, значит 2 разные кнопки.

@Казанский · 13.12.2017, 17:57

LenaKar89, включите запись макроса, проделайте перемещение (одно или оба), остановите запись макроса.
Макрос готов!

@Narimanych · 13.12.2017, 19:42

LenaKar89,
попробуйте совет Казанского.
Если не получится, то напишите.

@LenaKar89 · 13.12.2017, 19:42 **[ТС]**

Сообщение от Казанский

LenaKar89, включите запись макроса, проделайте перемещение (одно или оба), остановите запись макроса.
Макрос готов!

Сработало, но только для одного листа, при записи перемещения на другой лист, созданный макрос выдает ошибку

@Narimanych · 13.12.2017, 19:48

LenaKar89,
Прикрепите рабочий файл, в котором надо работать( не пример)- Обозначте диапазоны и листы , в которых необходимо действовать - поможем.

@Linoge · 13.12.2017, 20:14

LenaKar89, а чем вам действия из 5 поста не подходят?

@LenaKar89 · 14.12.2017, 15:19 **[ТС]**

Сообщение от Linoge

LenaKar89, а чем вам действия из 5 поста не подходят?

Да, действительно все получилось! Спасибо!

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
		1
	Макрос вырезать - вставить 13.12.2017, 11:19. Показов 2749. Ответов 13 Метки нет (Все метки) Добрый день, необходим макрос для кнопки, при нажатии на которую определенный диапазон ячеек будет смещаться на один столбец левее или на одну строку выше. Пример во вложении.Пример смещение.xlsx 0

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
	13.12.2017, 11:30 [ТС]	2
	Причем нужно чтобы это происходило на нескольких листах сразу. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.12.2017, 12:01	3
	Сообщение от LenaKar89 Смещение влево на один столбец C2:F10... Причем нужно чтобы это происходило на нескольких листах сразу Выделить нужные листы, выделить В2:В10, правый клик - удалить - ОК, не вариант? 0

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
	13.12.2017, 12:35 [ТС]	4
	Мне нужно не удалить, а сместить на столбец левее, или на строку выше, в зависимости от листа. Конечно можно каждый раз вручную делать на каждой странице, но хочется автоматезировать. диапазон смещения всегда один и тот же на каждой странице. 0

@Linoge 3199 / 1910 / 323 Регистрация: 25.10.2011 Сообщений: 5,557
	13.12.2017, 13:03	5
	Сообщение от LenaKar89 Мне нужно не удалить, а сместить на столбец левее, или на строку выше, в зависимости от листа. А что по вашему произойдет с теми данными куда сместиться? Код Worksheets("Лист1").Range("B2:B10").Delete (xlShiftToLeft) Worksheets("Лист1").Range("B14:D14").Delete (xlShiftUp) Добавлено через 1 минуту Хотя не прокатит если есть еще данные дальше за этим диапазоном. Но об этом в условии не было) Если все-таки есть - добавить ячейки в конец диапазона Код Worksheets("Лист1").Range("F2:F10").Insert (xlShiftToRight) 1

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.12.2017, 13:04	6
	Сообщение от LenaKar89 Мне нужно не удалить, а сместить на столбец левее Поясните на примере, чем отличается "сместить на столбец левее" от "удалить столбец левее". Там что ли правее данные есть, которые не должны смещаться? Сообщение от LenaKar89 сместить на столбец левее, или на строку выше, в зависимости от листа Макрос сам должен находить эту зависимость, или это будут два разных макроса, которые Вы будете запускать по своему усмотрению? PS не видел поста выше 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	13.12.2017, 13:16	7
	LenaKar89, Сообщение от LenaKar89 диапазон смещения всегда один и тот же на каждой странице. Укажите хотя бы диапазоны 1) для сдвига влево 2) для сдвига вверх 0

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
	13.12.2017, 17:12 [ТС]	8
	Сообщение от Narimanych LenaKar89, Укажите хотя бы диапазоны 1) для сдвига влево 2) для сдвига вверх Из примера: Значения ячеек C2:F10 должны переместиться в B2:E10 Значения B15: D19 переместиться в B14: D18 Если можно привязать к одной кнопке значит макрос, если нет, значит 2 разные кнопки. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.12.2017, 17:57	9
	LenaKar89, включите запись макроса, проделайте перемещение (одно или оба), остановите запись макроса. Макрос готов! 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	13.12.2017, 19:42	10
	LenaKar89, попробуйте совет Казанского. Если не получится, то напишите. 0

	14.12.2017, 15:19

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
	13.12.2017, 19:42 [ТС]	11
	Сообщение от Казанский LenaKar89, включите запись макроса, проделайте перемещение (одно или оба), остановите запись макроса. Макрос готов! Сработало, но только для одного листа, при записи перемещения на другой лист, созданный макрос выдает ошибку 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	13.12.2017, 19:48	12
	LenaKar89, Прикрепите рабочий файл, в котором надо работать( не пример)- Обозначте диапазоны и листы , в которых необходимо действовать - поможем. 0

@Linoge 3199 / 1910 / 323 Регистрация: 25.10.2011 Сообщений: 5,557
	13.12.2017, 20:14	13
	LenaKar89, а чем вам действия из 5 поста не подходят? 0

@LenaKar89 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 54
	14.12.2017, 15:19 [ТС]	14
	Сообщение от Linoge LenaKar89, а чем вам действия из 5 поста не подходят? Да, действительно все получилось! Спасибо! 0