Ir ao conteúdo
  • Cadastre-se
BernardorValle

Macro para formatar planilhas visiveis apenas

Recommended Posts

Bom dia,

estou trabalhando com uma planilha e preciso formatar todas as planilhas presentes.

No caso existem planilhas ocultas e o comando que uso não está funcionando.

 

por favor me informar qual comando uso para determinada ocasião

 

Aparece erro 1004

 

 

Sub Rotulo()
 
Dim I As Long
For I = 1 To Worksheets.Count
 
    ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
        "C:\Users\BernardoValle\Pictures\Sem título.png"
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
      
        .RightHeader = "&G"
        .LeftFooter = "Tabela Março 2017"
        .CenterFooter = "&A"
        .RightFooter = " Valores à vista e em Reais (R$).Pagamento sinal/28 dias:  acrescentar 2,1% no preço final do produto."
 
       
    End With
    ActiveSheet.Next.Select
Next I
    
End Sub
 
 

Creio que o ActiveSheet.Next.Select só funcione se não houver células ocultas.
 
O que posso fazer para ignorar isso e fazer a alteração nas planilhas visíveis.
 
Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você consegue resolver esse problema se todas as abas que estão ocultas estiverem a esquerda da primeira aba visível.

 

Seu código funcionará se houver essa estrutura ;)

 

E sim, o ActiveWorkbook não trabalha apenas com as abas vísiveis e sim com todas as que estão na estrutura do arquivo, visíveis ou não. Então, quando a "Next" está oculta, acusa-se o erro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×