Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro para ocultação de coluna

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
DAILEOM



Mensagens : 7
Data de inscrição : 23/02/2014

MensagemAssunto: Macro para ocultação de coluna   Ter Fev 24, 2015 11:00 pm

elephant
É o seguinte:
Tenho uma célula que gostaria que fosse monitorada desde a abertura do arquivo, é a B6

Se B6 igual a 3 ou gostaria de ocultasse as colunas Q:T

Se B6 igual a 4 ou gostaria de ocultasse as colunas U:X

E assim por diante, sempre que aumenta o valor de B6 ele oculta de 4 em 4 colunas especificas

Assim também quando B6 diminui, faz reaparecer as colunas que ocultou
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para ocultação de coluna   Qua Fev 25, 2015 4:06 am

Boa noite!!

Veja se ajuda..
Código:
Option Explicit
Sub AleVBA_990()
    Dim c As Integer
    Dim cel As Range
    Dim rng As Range

    Set rng = Range("D1:AWZ1")
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
      [Q1].Formula = "=INT((COLUMNS($A1:A1)-1)/4)+1"
    Range("Q1").AutoFill Destination:=Range(Cells(1, 17), Cells(1, 1300))
    Range("Q1").Resize(, 1300).Value = Range("Q1").Resize(, 1300).Value
    If [B6].Value <> "" Then
        c = [B6].Value - 2
        For Each cel In rng
            If cel.Value = c Then
                cel.EntireColumn.Hidden = True
            End If
        Next cel
    End If
    rng.ClearContents
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub
Obs: O código foi editado

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
DAILEOM



Mensagens : 7
Data de inscrição : 23/02/2014

MensagemAssunto: Re: Macro para ocultação de coluna   Qua Fev 25, 2015 5:45 pm

Obrigado pela ajuda
Porem, quando tento executar aparece este erro:

Erro em tempo de execução '1004'
O metodo 'Range' do objeto'_Global' falhou


Quando boto pra depurar, a marcação amarela cai aqui:
Set rng = Range("D1:AWZ1")
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para ocultação de coluna   Qua Fev 25, 2015 5:58 pm

Boa tarde!!

Eu não tive erro, pois devido ao fato de vc não ter depositado o arquivo modelo, na linha 1 não pode ter nada!!

Copia meu código novamente (ele foi editado), quanto ao erro, tente deixar a lina um em branco!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para ocultação de coluna   Dom Mar 01, 2015 4:04 pm

Bom dia!!

Veja essa versão
Código:
Sub AleVBA_990()
    ActiveSheet.Columns(([B6] - 1) * 4 + 9).Resize(, 4).EntireColumn.Hidden = True
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para ocultação de coluna   Hoje à(s) 10:16 pm

Voltar ao Topo Ir em baixo
 
Macro para ocultação de coluna
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como valido cpf e cnpj em vba no access?
» Macro para exportar para o word
» [Resolvido] Erro em conversão de macro para código
» Macro para Excel armazenar dados no Access.
» Macro para salvar conteudo de caixa de texto em uma planilha excel

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: