Добавление записи в колонку одну за другой

Вход

Регистрация

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

= Мир MS Excel/Добавление записи в колонку одну за другой - Мир MS Excel

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

Добавление записи в колонку одну за другой (Макросы/Sub)

Добавление записи в колонку одну за другой

homemaster.moy.su

Дата: Среда, 09.04.2014, 22:48 | Сообщение № 1

Группа: Гости

Хочу переделать макрос, который при нажатии на дату на заполненной ячейке листа "График", перемещает на лист "Архив", но только, чтобы записи добавлялись не в строку, а в столбик. Можно ли как нибудь это соорудить???

[vba][code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 Then
If ActiveSheet.Cells(Target.Row, 5) <> "" Then
If MsgBox("Перенести запись в архив?", vbYesNo, "Редактирование") = vbYes Then

Dim aC, aR, aN As Integer
Dim aStr As String
aN = Sheets("Архив").Cells(Target.Row, 1)
aR = Target.Row
aStr = Format(ActiveSheet.Cells(aR, 4)) + " | " + Format(ActiveSheet.Cells(aR, 5))

i = 2
Do Until (Sheets("Архив").Cells(Target.Row, i) = "")
i = i + 1
Loop
aC = i

Sheets("Архив").Cells(aR, aC) = aStr

End If
End If
End If
End Sub[/code][/vba]