Переведите Excel в следующую строку, если первая строка заполнена

Я изучаю Excel VBA, и я просто ударил стену.

У меня есть таблица, в которой я создал UserForm. Эта пользовательская форма заполняет строку 14 от A до AK.

Теперь я смог скопировать данные из формы с помощью этого кода (часть его – это способ долго копировать здесь):

'Date Sheet1.Range("A14") = DTPicker1 'AC Type Sheet1.Range("b14") = ComboBox1 'AC Reg Sheet1.Range("C14") = TextBox3 'Pic Sheet1.Range("d14") = TextBox5 'co-pilot Sheet1.Range("e14") = TextBox4 'from Sheet1.Range("f14") = TextBox7 'to Sheet1.Range("g14") = TextBox6 'remarks Sheet1.Range("h14") = TextBox8 

Теперь то, что я хотел бы сделать, это то, что IF A14 заселен, ну и все, что пишет в 14 переключателях до 15, и так далее.

Есть ли способ сделать это?

Что-то в этом направлении должно работать (непроверено):

 Static rng As Range If rng Is Nothing Then Set rng = Sheet1.Range("A14") Do While rng.Value <> "" Set rng = rng.Offset(1) Loop End If 'Date rng.Range("A1").Value = DTPicker1 'AC Type rng.Range("B1").Value = ComboBox1 'AC Reg rng.Range("C1").Value = TextBox3 'Pic rng.Range("D1").Value = TextBox5 'co-pilot rng.Range("E1").Value = TextBox4 'from rng.Range("F1").Value = TextBox7 'to rng.Range("G1").Value = TextBox6 'remarks rng.Range("H1").Value = TextBox8 'Point to the next line Set rng = rng.Offset(1) 
Interesting Posts

Объедините два значения, если оба значения одинаковы, кроме пустого в EXCEL

Область поиска в поисках нескольких терминов затем продолжит

Как я могу разделить значения листа Excel и сохранить его на новом листе excel?

Функция Excel «IF».

Проводка большого количества данных в веб-форму из сценария Excel VBA

Как удалить повторяющиеся значения из нескольких столбцов в электронной таблице

VBA Excel – как узнать расположение данных в диапазоне

Нажмите «ВВОД», когда появится предупреждение о наличии

Размеры Видимый в браузере SSAS Cube, но не в Excel

динамически находить совпадение между двумя таблицами; у одного есть текст, а другой – шаблон поиска

Вставить массив в качестве шаблона на основе значения ячейки

Функциональность ADO .. копировать, фильтровать, вставлять из закрытой книги в активную wrokbook

Индекс соответствует формуле Ошибка

вставлять много данных по строкам с проверкой взаимосвязей и возможными плохими данными

Формула Excel для копирования / вставки с помощью INDEX или OFFSET (относительная ссылка)

Давайте будем гением компьютера.