Переведите 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)