Botão de Comando do VBA - Método ou membro de dados não encontrado

0

tendo algum problema ao adicionar o botão de comando s a um formulário de usuário. Basicamente, quero que o botão insira dados em uma nova linha na planilha1 com os campos definidos abaixo. No entanto, ao testar o botão, recebo uma mensagem de erro 'Método ou membro de dados não encontrado'.

Nada ótimo com o VBA, tentei ler on-line, mas ainda estou confuso sobre o que fazer. Por favor ajude.

Private Sub CommandButton1_Click()

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Sheet1")

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

ws.Range("A" & LastRow).Value = ComboBox1.Text
ws.Range("C" & LastRow).Value = TextBox1.Text
ws.Range("D" & LastRow).Value = ComboBox2.Text
ws.Range("F" & LastRow).Value = CheckBox2.Text
ws.Range("E" & LastRow).Value = CheckBox1.Text
ws.Range("H" & LastRow).Value = ListBox1.Text
ws.Range("G" & LastRow).Value = ListBox2.Text
ws.Range("I" & LastRow).Value = TextBox2.Text

End Sub
    
por user767772 12.09.2017 / 04:31

1 resposta

0

As caixas de seleção não têm uma propriedade Text . Use a propriedade Value , por exemplo:

ws.Range("F" & LastRow).Value = CheckBox2.Value

Observe que isso retorna "Verdadeiro" ou "Falso". Se você precisar de mais alguma coisa, você precisa verificar, por exemplo:

ws.Range("F" & LastRow).Value = IIf(CheckBox2.Value,"Yes","No")
    
por 12.09.2017 / 05:07