Всем доброго времени суток! Вопрос такого плана: есть несколько ячеек в которых пользователь меняет данные. нужен макрос, который будет записывать данные из этих ячеек в таблицу на другом листе в столбцы с соответствующими именами в первую пустую строку. Мой код добавляет только значение из первой ячейки. Если указать диапазон, все равно ставит значение из первой ячейки. с циклами я не силен, но думаю мой вопрос можно решить с помощью его. Файл прилагаю. буду благодарен любой помощи.
Код
Sub Журнал()
Dim RK As Range, rCell As Range
Set RK = Sheets("Список").Range("B7:F400")
For Each rCell In RK
If IsEmpty(rCell) Or rCell = 0 Then
rCell = Sheets("Расшифровка").Range("C5").Value
Exit For
End If
Next
End Sub
мы тоже будем благодарны любому рассказу о задаче (не показу макроса, который не делает то, что нужно) а рассказу о задаче: 1. исходные данные тут 2. пользователь вносит что-то вот тут 3. макрос должен сделать вот такие действия когда из вашего рассказа будут понятны все 3 пункта - можно будет написать макрос, который выполнит то, что вы напишете в п.3
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Sub Журнал()
Dim LastRow As Long, Cell As Range, i As Byte
Application.ScreenUpdating = False
LastRow = Sheets("Список").Cells(Rows.Count, 2).End(xlUp).Row
i = 2
For Each Cell In Sheets("Расшифровка").Range("C5:C11")
If Not IsEmpty(Cell.Value) Then
Sheets("Список").Cells(LastRow + 1, i).Value = Cell.Value
End If
'Добавить строку ниже!
If Not IsEmpty(Cell.Offset(0, -1)) Then i = i + 1
Next Cell
Sheets("Список").Activate
End Sub
У меня корректно работает (заполняет при заполненном заключении о годности последний столбец) Немного подправил код, чтобы считал пустые строки только внутри диапазона в предыдущем сообщении
Всем доброго времени суток! Появилась необходимость в модернизации данного макроса... макрос записывает в список все значения подряд и при выполнении макроса несколько раз в списке могут появиться копии.. Нужно чтобы перед записью происходила проверка на совпадение. Если хотя-бы одна ячейка отличается от всех записей в списке, то записать, если не отличается - не записывать.