Sub Статья()
SName = InputBox("Укажите имя статьи", "Имя столбца", "")
If ActiveCell.Row < 9 Then
MsgBox "Укажите крайнюю статью необходимого подраздела"
Else
With ActiveCell.EntireRow
.Insert
.Copy .Rows(0)
.ClearContents
.FormulaR1C1 = SName
End With
End If
End Sub
Как доработать скрипт так, что бы имя присваивалось только ячейке "А". Можно ли сделать чтобы после очистки из активной строки копировались ячейки "В" и "С"?
Sub Статья()
SName = InputBox("Укажите имя статьи", "Имя столбца", "")
If ActiveCell.Row < 9 Then
MsgBox "Укажите крайнюю статью необходимого подраздела"
Else
With ActiveCell.EntireRow
.Insert
.Copy .Rows(0)
.ClearContents
End With
Cells(ActiveCell.Row + 1, 1).Value = sname
Cells(ActiveCell.Row + 1, 2).Value = Cells(ActiveCell.Row, 2)
Cells(ActiveCell.Row + 1, 3).Value = Cells(ActiveCell.Row, 3)
End If
End Sub
А есть вариант раздел добавить? А еще было бы круто все ячейки после 3й одного цвета, так как копируется цвет исполненного платежа. В головном файле(не образце), суммы факта и плана складываются по критерию цвета ячейки. Новая статья расхода копирует цвет предыдущей статьи как пустые так и исполненные ячейки.
Вы не могли бы показать вариант до добавления и после добавления, а то мне сложно понять что именно требуется. А есть вариант раздел добавить? - куда его добавить? все ячейки после 3й одного цвета - какого именно?
Вот выделил раздел. Вставляется он между сдвоенными(черными) разделительными строками. Мол выбираем разделительную строку(черную 3 пикс.) делая ее активной, и под нее скрипт выливает раздел. Раздел состоит из заголовка, трех статей расхода и одной разделительной строки
Идею понял, оч круто! Но что-то скрипт не работает, что-то со ссылками. Разбираюсь... Заработало! Все супер! Спасибо огромное. Сейчас попробую добавить копирование В и С столбов.