Страницы: 1
RSS
Перенос данных по наименованию в другую книгу макросом
 
Доброе время суток. Уважаемы знатоки, помогите допилить макрос. Есть файл "Заявка участника", в табличной части указываются собаки и их данные (кличка, дата рождения, поли тд). Собак может быть как одна, так и 2, 3, 4, до 6. При нажатии кнопки Для переноса в сводный, данные по собакам переноситься в файл "Свод собаки". Существующий код переносит только первую строку, а вот как организовать цикл с условием, который бы проверял заполнена ли следующая строка, т.е. если ещё собака в списке и переносил бы в свод. Если следующая строка пустая цикл останавливается. Я вот так предполагаю, конечно могу и ошибаться, поэтому прошу помощи. Заранее спасибо
Сейчас вот код такой у меня
Код
Dim b()
Application.ScreenUpdating = False

b = Sheets("сводсобаки").[a2:i2].Value


With GetObject("C:\ЗаполнениеСписков\Сводный собаки.xlsm")

With .Sheets(1).Cells(.Sheets(1).Rows.Count, "A").End(xlUp)(2).Resize(, 9)
.Value = b
.Borders.Weight = xlThin
End With
.Windows(1).Visible = True
.Close 1
End With
 
Поправьте эти две строки так:
Код
b = Sheets("сводсобаки").[a2].CurrentRegion.Rows(2).Resize(Sheets("сводсобаки").[a2].CurrentRegion.Rows.Count - 1).Value
With .Sheets(1).Cells(.Sheets(1).Rows.Count, "A").End(xlUp)(2).Resize(UBound(b), 9)
Изменено: Hugo - 16.01.2022 17:51:03
Страницы: 1
Наверх