Para rodar uma macro a planilha não pode estar oculta. Se tentar rodar a macro com a planilha oculta vai dar erro.
Informação errada. Equivocada.
A solução sem precisar exibir que inclusive roda se a planilha estiver oculta, é essa:
Dim shtDeptos As Excel.Worksheet
Dim shtValidacao As Excel.Worksheet
With ThisWorkbook
Set shtDeptos = .Worksheets("Departamentos")
Set shtValidacao = .Worksheets("Validações")
End With
With shtDeptos
ultLin = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1" & ":D" & ultLin).Copy shtValidacao.Range("D1")
End With
Set shtDeptos = Nothing
Set shtValidacao = Nothing
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/03/2017 7:02 am