Pedro Cruz

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