Макрос копирования и вставки ячейки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос копирования и вставки ячейки (Макросы/Sub)

Timsan

Дата: Воскресенье, 08.06.2014, 03:01 | Сообщение № 1

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

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

Сообщений: 20

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

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

Excel 2003

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

[vba]

Код

Private Sub Cmd_AddRow_Click()
Dim iRow As Integer
Dim sRow As String
       iRow = ActiveCell.Row
       sRow = Trim(Str(iRow))
       Rows(sRow & ":" & sRow).Select
       Selection.Copy
       Rows(iRow + 1).Select
       Selection.Insert Shift:=xlDown
       Application.CutCopyMode = False
       Range("C" & sRow).Select
End Sub

[/vba]

К сообщению приложен файл: addrow.xls (66.0 Kb)

Сообщение отредактировал Timsan - Воскресенье, 08.06.2014, 13:55

Ответить

wild_pig

Дата: Воскресенье, 08.06.2014, 11:11 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 517

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

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

2003, 2013

Пример лучше в .xls

Ответить

Timsan

Дата: Воскресенье, 08.06.2014, 13:58 | Сообщение № 3

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

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

Сообщений: 20

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

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

Excel 2003

Добавил пример в .xls это реально вобще так сделать?

Ответить

AlexM

Дата: Воскресенье, 08.06.2014, 14:01 | Сообщение № 4

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

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

Сообщений: 4512

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

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

Excel 2003

В столбцах D и E ошибка #ССЫЛКА! так должно быть?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Timsan

Дата: Воскресенье, 08.06.2014, 14:03 | Сообщение № 5

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

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

Сообщений: 20

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

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

Excel 2003

да так и должно быть

Ответить

AlexM

Дата: Воскресенье, 08.06.2014, 14:20 | Сообщение № 6

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

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

Сообщений: 4512

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

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

Excel 2003

так подойдет?
В ячейках столбца С формула

Код

=СТРОКА()-9

код макроса[vba]

Код

Private Sub Cmd_AddRow_Click()
       Rows(ActiveCell.Row).Copy
       Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
       Application.CutCopyMode = False
End Sub

[/vba]

К сообщению приложен файл: addrow_new.xls (63.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 08.06.2014, 14:46

Ответить

Timsan

Дата: Воскресенье, 08.06.2014, 16:27 | Сообщение № 7

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

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

Сообщений: 20

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

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

Excel 2003

Спасибо помогло работает спасибо большое.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос копирования и вставки ячейки (Макросы/Sub)

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