Este fórum está sendo desativado

[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

[eduardogrigull]

Infelizmente voce mandou uma versão sem VBA

[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

[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