Anderson Aragão

E aí, galera! To com problema para gravar os dados no useform. O que tá acontecendo é que os dados digitados no formulário na encontra a linha de baixo, vai sempre para mesma linha, ou seja, vai substituindo o dado existente. Segue o código do comando gravar: Private Sub cmdgravar_Click() If llinha = 0 Then llinha = validadores.Cells(validadores.Rows.Count, 1).End(xlUp).Row If llinha <> 4 Then llinha = llinha + 1 End If End If lscadastrar llinha lslimpar End Sub

No cbb que cadastrei para salvar os dados novos ele só ta direcionando para mesma linha. Ou seja, o dado que tá é apagado para substituir um novo. estou usando este código. Private Sub cmdgravar_Click() If llinha = 0 Then llinha = validadores.Cells(validadores.Rows.Count, 1).End(xlUp).Row If llinha <> 4 Then llinha = llinha + 1 End If End If lscadastrar llinha lslimpar End Sub

Alyson, valeu mesmo! Se puder, me ajuda neste outro ítem. No cbb que cadastrei para salvar os dados novos ele só ta direcionando para mesma linha. Ou seja, o dado que tá é apagado para substituir o novo. estou usando este código. Private Sub cmdgravar_Click() If llinha = 0 Then llinha = validadores.Cells(validadores.Rows.Count, 1).End(xlUp).Row If llinha <> 4 Then llinha = llinha + 1 End If End If lscadastrar llinha lslimpar End Sub

Sub calcular() Dim vazia As Double Dim cheia As Double Dim pesomedio As Double Dim maximocaixa As Double Dim preforma As Double If txtpreforma.Text <> "" Then preforma = txtpreforma.Text If txtvazia.Text <> "" Then vazia = txtvazia.Text If txtcheia.Text <> "" Then cheia = txtcheia.Text If txtpesomedio.Text <> "" Then pesomedio = txtpesomedio.Text If txtmaximocaixa.Text <> "" Then maximocaixa = txtmaximocaixa.Text txtesperado.Text = (preforma * maximocaixa) txtcalculada.Text = ((cheia - vazia) / pesomedio) txtdiferença.Text = (maximocaixa - calculada) End Sub

Estou com problemas na execução de um código no VBA, pois quando o divisor de uma fórmula não é preenchido primeiro é mostrado "erro em tempo de execução 11 - divisão por zero". Daí gostaria de colocar uma condicional para que a execução do cálculo só seja realizada quando a caixa estiver preenchida.