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