Macro VB

Pedro Cruz · 13 de dezembro de 2015

Fala galera, sou iniciante na área de programação, na verdade não é minha área mas preciso muito desenvolver esse "programinha".

Situação: Preciso criar um cadastro de empresas que realizei orçamento. Então usei os códigos abaixo. porém Não está preenchendo na planilha "Banco de Dados" e da um erro de compilação: Chamada a função no lado esquerdo de uma atribuição precisa retornar Variant ou Object.

Informações talvez uteis: Na inspeção de variáveis o valor de (TotalRegistro = Worksheets("CADASTROS").UsedRange.Rows.Count + 1) ta com a mensagem <é impossivel compilar o modulo>.

Não tenho a minima ideia do que fazer, para mim o valor deveria ta o valor da celular que seria preenchida. Fico muito grato se alguém ajudar a resolver esse pequeno problema.

TotalRegistro = Worksheets("CADASTROS").UsedRange.Rows.Count + 1

Worksheets("Banco de Dados").Select

'comando para registros
Cells(TotalRegistro, 1) = caixa_empresa
Cells(TotalRegistro, 2) = caixa_serviço
Cells(TotalRegistro, 3) = caixa_responsavel
Cells(TotalRegistro, 4) = caixa_contato
Cells(TotalRegistro, 5) = caixa_cargo
Cells(TotalRegistro, 6) = caixa_tel
Cells(TotalRegistro, 7) = caixa_email
Cells(TotalRegistro, 8) = caixa_endereço
Cells(TotalRegistro, 9) = caixa_total
Cells(TotalRegistro, 10) = caixa_custo

'comando para mensagem
MsgBox = "Orçamento registrado com sucesso."

'limpar caixas
caixa_empresa = ""
caixa_serviço = ""
caixa_responsavel = ""
caixa_contato = ""
caixa_cargo = ""
caixa_tel = ""
caixa_email = ""
caixa_endereço = ""
caixa_total = ""
caixa_custo = ""

'voltar a selecionar a primeira caixa para novo cadastro
caixa_empresa.SetFocus
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------