Bom dia!
Estou montando uma planilha de controle de estoque simples, mas uma macro não está funcionando...
Eu preciso colar somente os valores copiados, sem a formatação original, e quando executo a macro, aparece uma mensagem, Erro em tempo de execução 438...
O erro apontado na depuração é:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Não consigui colocar toda a Macro aqui, se puder entrar em contato via whatsapp:
https://api.whatsapp.com/send/?phone=5515996098760&text&app_absent=0
Olá, Eliezer!!
Parece, que vc está tentando colar sem antes copiar, ou seja, imagine o seguinte exemplo:
Range("A1:A6").copy
Range("B1:B6").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Ao invés disso vc deve está fazendo isso, ou seja, diretamente vc deve estar aplicanto o colar especial valores sem antes de indicado para ele o que copiar:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Obs.: Eu não trabalharia pessoalmente. Basicamente, faria como está abaiso que é semelhante ao que vc esta tentando realizar, porém, mais performático
Range("B1:B6").Value = Range("A1:A6").Value.
Até mais!!
Aulas particulares
