DAILEOM
Mensagens : 7
Data de inscrição : 23/02/2014
 | | Assunto: Macro para ocultação de coluna Ter Fev 24, 2015 11:00 pm | |
|  É 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 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 editadoAtt | |
|
DAILEOM
Mensagens : 7
Data de inscrição : 23/02/2014
| | Assunto: 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") | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
Conteúdo patrocinado
| | Assunto: Re: Macro para ocultação de coluna | |
| |
|
