Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматический перенос ячейки в определенную графу. Макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматический перенос ячейки в определенную графу. Макрос (Макросы/Sub)
Автоматический перенос ячейки в определенную графу. Макрос
gipsy14 Дата: Четверг, 31.08.2017, 13:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем доброго дня!
Пожалуйста, помогите решить задачу.
Есть макрос, который добавляет пустую строку, переносит ячейку и протягивает формулу.
Сам макрос:

[vba]
Код


Sub Добавлление_строк_протяжка()
'
' Добавлление_строк_протяжка Макрос
' Добавляет строку, протягивает ячейку в графе 9
'
' Сочетание клавиш: Ctrl+ь
'
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 9).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A3"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A3").Select
End Sub

[/vba]
Данный макрос переносит ячейку на 1 строку вверх и на 9 вправо.
Необходимо, чтобы ячейка переносилась на 1 строку вверх и строго в графу J.
Изначально выделенная ячейка может быть любой.

Пожалуйста, подскажите, что нужно изменить?
Благодарю!
К сообщению приложен файл: __-.xlsm (40.1 Kb)


Сообщение отредактировал gipsy14 - Четверг, 31.08.2017, 14:32
 
Ответить
СообщениеВсем доброго дня!
Пожалуйста, помогите решить задачу.
Есть макрос, который добавляет пустую строку, переносит ячейку и протягивает формулу.
Сам макрос:

[vba]
Код


Sub Добавлление_строк_протяжка()
'
' Добавлление_строк_протяжка Макрос
' Добавляет строку, протягивает ячейку в графе 9
'
' Сочетание клавиш: Ctrl+ь
'
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 9).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A3"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A3").Select
End Sub

[/vba]
Данный макрос переносит ячейку на 1 строку вверх и на 9 вправо.
Необходимо, чтобы ячейка переносилась на 1 строку вверх и строго в графу J.
Изначально выделенная ячейка может быть любой.

Пожалуйста, подскажите, что нужно изменить?
Благодарю!
Автор - gipsy14
Дата добавления - 31.08.2017 в 13:43
китин Дата: Четверг, 31.08.2017, 13:49 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата gipsy14, 31.08.2017 в 13:43, в сообщении № 1 ()
что нужно изменить?

для начала прочитать правила и оформить правильно свой пост

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата gipsy14, 31.08.2017 в 13:43, в сообщении № 1 ()
что нужно изменить?

для начала прочитать правила и оформить правильно свой пост
Автор - китин
Дата добавления - 31.08.2017 в 13:49
gipsy14 Дата: Четверг, 31.08.2017, 14:09 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата китин, 31.08.2017 в 13:49, в сообщении № 2 ()

для начала прочитать правила и оформить правильно свой пост

Исправил
 
Ответить
Сообщение
Цитата китин, 31.08.2017 в 13:49, в сообщении № 2 ()

для начала прочитать правила и оформить правильно свой пост

Исправил
Автор - gipsy14
Дата добавления - 31.08.2017 в 14:09
gipsy14 Дата: Четверг, 31.08.2017, 14:31 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата _Boroda_, 31.08.2017 в 14:26, в сообщении № 4 ()
код макроса нужно обрамлять тегами для кода макроса - кнопка #

Благодарю!
буду знать
 
Ответить
Сообщение
Цитата _Boroda_, 31.08.2017 в 14:26, в сообщении № 4 ()
код макроса нужно обрамлять тегами для кода макроса - кнопка #

Благодарю!
буду знать
Автор - gipsy14
Дата добавления - 31.08.2017 в 14:31
InExSu Дата: Воскресенье, 03.09.2017, 21:53 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 650
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Цитата gipsy14, 31.08.2017 в 13:43, в сообщении № 1 ()
ActiveCell.Offset(-1, 9).Range("A1").Select

Замените на:
[vba]
Код
  newCol = 10 - Selection.Column
  ActiveCell.Offset(-1, newCol).Range("A1").Select
[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
Цитата gipsy14, 31.08.2017 в 13:43, в сообщении № 1 ()
ActiveCell.Offset(-1, 9).Range("A1").Select

Замените на:
[vba]
Код
  newCol = 10 - Selection.Column
  ActiveCell.Offset(-1, newCol).Range("A1").Select
[/vba]
Автор - InExSu
Дата добавления - 03.09.2017 в 21:53
KuklP Дата: Воскресенье, 03.09.2017, 22:37 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Зачем там вообще селекты?
[vba]
Код
    With Cells(ActiveCell.Row - 1, 10)
        .AutoFill .Resize(3), 0
'        .Resize(3).Select
    End With
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЗачем там вообще селекты?
[vba]
Код
    With Cells(ActiveCell.Row - 1, 10)
        .AutoFill .Resize(3), 0
'        .Resize(3).Select
    End With
[/vba]
Автор - KuklP
Дата добавления - 03.09.2017 в 22:37
gipsy14 Дата: Среда, 06.09.2017, 12:16 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем спасибо!
Задача решена! respect
 
Ответить
СообщениеВсем спасибо!
Задача решена! respect
Автор - gipsy14
Дата добавления - 06.09.2017 в 12:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматический перенос ячейки в определенную графу. Макрос (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!