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
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------