Erro Execução VBA - Transferir preenchimento de formulário para tabela
Enviado: 28 Out 2020 às 14:03
Ao preencher um formulário criado no VBA, os dados inseridos não estão sendo transferidos para a tabela destino.
Colei, abaixo, o trecho dessa parte da programação, para que possam ver. O erro está na linha grifada em vermelho.
Não sei o que há de errado ali, até porque, acho válido ressaltar que sempre funcionou normalmente.
Após algumas novas implementações que fiz no restante da planilha (que nada têm a ver com esta execução), é que parou de funcionar.
Segue:
'Transferir dados do formulário para base de cadastro de produtos
Private Sub CommandButton1_Click()
'Condicional para primeiro registro (primeira linha da tabela, vazia) ou registros posteriores
If Cells(11, 2) = "" Then
Cells(11, 2) = Box_Prod.Value
Cells(11, 3) = ComboBox_Categ.Value
Cells(11, 4) = Box_Tempo.Value
Cells(11, 5) = Box_EM.Value
Cells(11, 6) = ComboBox_UM.Value
Cells(11, 7) = Box_PU.Value
Cells(11, 8) = Box_Forn.Value
Else
linha = Range("B10").End(xlDown).Row + 1
Cells(linha, 2) = Box_Prod.Value
Cells(linha, 3) = ComboBox_Categ.Value
Cells(linha, 4) = Box_Tempo.Value
Cells(linha, 5) = Box_EM.Value
Cells(linha, 6) = ComboBox_UM.Value
Cells(linha, 7) = Box_PU.Value
Cells(linha, 8) = Box_Forn.Value
Colei, abaixo, o trecho dessa parte da programação, para que possam ver. O erro está na linha grifada em vermelho.
Não sei o que há de errado ali, até porque, acho válido ressaltar que sempre funcionou normalmente.
Após algumas novas implementações que fiz no restante da planilha (que nada têm a ver com esta execução), é que parou de funcionar.
Segue:
'Transferir dados do formulário para base de cadastro de produtos
Private Sub CommandButton1_Click()
'Condicional para primeiro registro (primeira linha da tabela, vazia) ou registros posteriores
If Cells(11, 2) = "" Then
Cells(11, 2) = Box_Prod.Value
Cells(11, 3) = ComboBox_Categ.Value
Cells(11, 4) = Box_Tempo.Value
Cells(11, 5) = Box_EM.Value
Cells(11, 6) = ComboBox_UM.Value
Cells(11, 7) = Box_PU.Value
Cells(11, 8) = Box_Forn.Value
Else
linha = Range("B10").End(xlDown).Row + 1
Cells(linha, 2) = Box_Prod.Value
Cells(linha, 3) = ComboBox_Categ.Value
Cells(linha, 4) = Box_Tempo.Value
Cells(linha, 5) = Box_EM.Value
Cells(linha, 6) = ComboBox_UM.Value
Cells(linha, 7) = Box_PU.Value
Cells(linha, 8) = Box_Forn.Value