Я должен создать форму для введения номера билета и других деталей в базу данных Excel на листе. У меня есть код, но я не знаю, почему цель пуста. место, билет, источник - текстовое поле, родзай - селектор, окресод и окрес - дата, годзинаод, годзинадо - время. Я отправляю из формы в столбец, место = столбец А и первая свободная строка и другие, как показано ниже
Я пытался отредактировать некоторый код, но он не работает.
Private Sub Wprowadz_Click(ByVal Target As Range)
Dim xObszar As Range
Set xObszar = Intersect(Target, Range("A6:U1350"))
If xObszar Is Nothing Then Exit Sub
Range("A" & Target.Row).Value = place.Value
If xObszar Is Nothing Then Exit Sub
Range("T" & Target.Row).Value = ticket.Value
If xObszar Is Nothing Then Exit Sub
Range("O" & Target.Row).Value = source.Value
If xObszar Is Nothing Then Exit Sub
Range("K" & Target.Row).Value = rodzaj.Value
If xObszar Is Nothing Then Exit Sub
Range("L" & Target.Row).Value = okresod.Value
If xObszar Is Nothing Then Exit Sub
Range("M" & Target.Row).Value = okresdo.Value
If xObszar Is Nothing Then Exit Sub
Range("Q" & Target.Row).Value = godzinaod.Value
If xObszar Is Nothing Then Exit Sub
Range("R" & Target.Row).Value = godzinado.Value
End Sub