Ola amigos!
Estou tentando usar a macro abaixo, mas ele apresenta erro e não consigo resolver. Basicamente ele vai em uma aba, copia os dados de uma coluna, cola essas informaçoes em outra aba, remove os dados repetidos, e copia esses dados para outra coluna da mesma aba. O erro acontece quando eu protejo a aba com senha, mas mesmo que eu coloque o argumento pra desabilitar a senha e habilitar depois do processo, ele não funciona. poderiam me ajudar? OBS: O erro ocorre onde está grifado.
' COPIAR_CONTAS_APLICADORES Macro
'
'
Sheets("REM31").Select
ActiveSheet.Unprotect "*******"
Range("A11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Protect "****"
Sheets("COMPILADOR").Select
ActiveSheet.Unprotect "****"
Range("AJ6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AJ$6:$AJ$19995").RemoveDuplicates Columns:=1, Header:= _
xlNo
Range("AJ6:AJ10000").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
ActiveSheet.Protect "*******"
End Sub
Este tópico foi modificado 3 anos atrás 2 vezes by
marcosuke
Postado : 19/05/2021 5:08 pm