Ocultar

2024 - VBA & Macros

Post Recente por Tomoiti 12 anos atrás

4 Posts

2 Usuários

0 Reactions

1,227 Visualizações

RSS

Tomoiti

(@tomoiti)

Posts: 41

Eminent Member

Topic starter

Boa Noite Pessoal,

Fiz um botão limpar aonde eu abro as colunas e linhas ocultas para voltar as formulas, logo apos deveria ocultar e finalizar o processo.
Mas estou tendo um problema... no final ele minimiza todas as minha colunas.

alguem poderia me ajudar

Sub limpar()
'
' limpar Macro
'

'
    Columns("C:F").Select
    Range("F1").Activate
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("34:36").Select
    Range("A36").Activate
    Selection.EntireRow.Hidden = False
    Range("A35:I35").Select
    Selection.AutoFill Destination:=Range("A15:I35"), Type:=xlFillDefault
    Range("A15:I35").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("F6:G6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(IF(R6C2=0,"""",VLOOKUP(R6C2,Distribuidores!R[-5]:R[1048570],2,0)))=TRUE,0,IF(R6C2=0,"""",VLOOKUP(R6C2,Distribuidores!R[-5]:R[1048570],2,0)))"
    Range("B6").Select
    Selection.ClearContents
    Range("A35:I35").Select
    Selection.AutoFill Destination:=Range("A15:I35"), Type:=xlFillDefault
    Range("A15:I35").Select
    ActiveWindow.SmallScroll Down:=18
    Range("D39:D46").Select
    Selection.Copy
    Range("B39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C39:C60").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B49").Select
    Selection.ClearContents
    Range("B57:B61").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=15
    Range("B63:B68").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-9
    Range("D50:D54").Select
    Selection.Copy
    Range("B50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-57
    Columns("D:E").Select
    Range("E1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    Rows("35:35").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-30
    Range("A1").Select

End Sub

TOMOITI
Estudante de VBA

Postado : 02/06/2013 6:46 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Tente usar um código limpo, onde você determina em uma única linha as colunas que quer ocultar

Sub Ocultar()
'Nesta linha você pode escolher as colunas saltando colunas não adjacente
Range("C:F, D:E, AJ:AO").EntireColumn.Hidden = True

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/06/2013 7:22 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite Tomoiti,

Não entendi muito bem o que precisa, mas dei uma enxutada no seu código:

Option Explicit

Sub limpar()
Dim Form
    
Form = "VLOOKUP(R6C2,Distribuidores!R[-5]:R[1048570],2,0)"

    Columns("D:E").EntireColumn.Hidden = False
    Rows("35:35").EntireRow.Hidden = False
    Range("F6:G6").FormulaR1C1 = "=IF(ISERROR(IF(R6C2=0,""""," & Form & "))=TRUE,0,IF(R6C2=0,""""," & Form & "))"
    Range("C39:C60, B6, B49, B57:B61, B63:B68, D50:D54").ClearContents
    Range("A35:I35").AutoFill Destination:=Range("A15:I35"), Type:=xlFillDefault
    Range("B39:B46") = Range("D39:D46").Value
    Range("B50:B54") = Range("D50:D54").Value
    Columns("D:E").EntireColumn.Hidden = True
    Rows("35:35").EntireRow.Hidden = True
    Range("A1").Select

End Sub

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/06/2013 7:26 pm