Página 1 de 1
Erro na sequencia de comando da Macro na VBa
Enviado: 26 Jan 2020 às 08:44
por jmarcelosp
Olá Pessoal
Estou fazendo uma planilha de calculo de impostos para comparação de preços, e está dando erro na execução da macro ( ao clicar em lançar, Aba Painel), dizendo que a linha que é para determinar se é um serviço ou mercadoria e jogar na aba dados , esta ficando amarela a linha do código e a macro para de funcionar ( aparece um seta amarela)
If shtpainel.Range("Mercadoria") = "" Then
-> shtdados.Cells(linha, "b") = shtpainel.Range("Serviço").Value
shtdados.Cells(linha, "C") = "Serviço"
Grato
Erro na sequencia de comando da Macro na VBa
Enviado: 26 Jan 2020 às 13:19
por eduardogrigull
Infelizmente voce mandou uma versão sem VBA

Re: Erro na sequencia de comando da Macro na VBa
Enviado: 26 Jan 2020 às 14:16
por jmarcelosp
Descobri que erro era o falto de não ter dado nome aos campos na aba Painel, agora que coloque os nome re escrevi e está dando erro na sequência dos "IFs"
E como coloco uma mensagem após clicar "Lançar", de a mensagem "OK" ?
E colocar um comando para linda a aba " Dados " quando houver a necessidade de por um novo valor ?
Grato
If shtpainel.Range("Merdadoria") = "" Then
shtdados.Cells(linha, "b") = shtpainel.Range("Serviço").Value
shtdados.Cells(linha, "b") = "Despesa"
Else
shtdados.Cells(linha, "b") = shtpainel.Range("Mercadoria").Value
shtdados.Cells(linha, "b") = "Mercadoria"
End If
shtdados.Cells(linha, "d") = shtpainel.Range("estado").Value
Else if
shtdados.Cells(linha, "e") = shtpainel.Range("localmatl").Value
Else
shtdados.Cells(linha, "f") = shtpainel.Range("tipomatl").Value
Else
shtdados.Cells(linha, "g") = shtpainel.Range("unidade").Value
Else
shtdados.Cells(linha, "h") = shtpainel.Range("cidadeIss").Value
Else
shtdados.Cells(linha, "i") = shtpainel.Range("tiposerviss").Value
Else
shtdados.Cells(linha, "j") = shtpainel.Range("meitiposerv").Value
Else
shtdados.Cells(linha, "k") = shtpainel.Range("tiposervirrf").Value
Else
shtdados.Cells(linha, "l") = shtpainel.Range("matlicms").Value
shtpainel.Shapes("Barra de Rolagem").Visible = True
Re: Erro na sequencia de comando da Macro na VBa
Enviado: 27 Jan 2020 às 10:26
por Diego100ges
Só elseif não funciona, nem apena else.
if "condição" then
"condições"
Elseif "condição" then
"condições"
Elseif "condição" then
"condições"
end if