Форма для выбора столбца и свободной строки - PullRequest
0 голосов
/ 07 мая 2019

Я должен создать форму для введения номера билета и других деталей в базу данных 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...