Boa tarde a todos. Tenho essa função em meu userform. Ela identifica a linha e a coluna, mas não insere os dados no cruzamento entre elas. O trecho em destaque informa um erro de que "o método range do objeto worksheet falhou". Estou iniciando no VBA e gostaria de receber ajuda que explique e se possível solucione o erro. Grato
nomelin = UserForm1.Vendedor.Value
linha = Application.WorksheetFunction.VLookup(nomelin, Sheets("Resumo_Vendedores").Range("B11:C112"), 1, False)
coluna = Plan2.Range("x1")
valor = UserForm1.valor.Value
Plan2.Range(coluna & linha)= Plan2.Range(coluna & linha) + CDbl(valor)
Plan2.Range(coluna & linha).Select
Postado : 13/05/2015 8:38 am