Компиляция кода VBA с ошибкой неверного квалификатора - PullRequest
0 голосов
/ 04 июня 2019

Это базовый VBA, с которым мне нужна помощь. Я создаю userForm, который принимает записи о людях и помещает их в следующую свободную ячейку в столбце на sheet (sheet3).ввод, который я прошу добавить здесь, у меня есть метка, которая выдает целое число, однако я всегда получаю ошибку компиляции."Invalid qualifier" и я не уверен почему.Я делал это раньше и добился успеха, но на этот раз меня смущает то, что я скучаю.надеюсь, кто-то может помочь.

Private Sub CommandButton1_Click()


    Dim vendorNumLabel As String
    Dim eRow As Integer

    'adding the value of the textboxes to the assigned variables

    vendorNumLabel = Me.VendorNumberLBL.Caption


    ' working out next empty row

    eRow = Sheet3.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row



    'applying values to cells in regards to the empty row worked out above.

    Sheet3.Cells(eRow, 3) = vendorNumLabel.Text


    Unload Me


End Sub

1 Ответ

1 голос
/ 04 июня 2019

Это должно работать:

Private Sub CommandButton1_Click()


Dim vendorNumLabel As String
Dim eRow As Integer

vendorNumLabel = Me.VendorNumberLBL.Text    
eRow = Sheet3.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row    
Sheet3.Cells(eRow, 3).Value = vendorNumLabel


Unload Me


End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...