Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar
 
Notifications
Clear all

Ocultar

 
2024 - VBA & Macros
Post Recente por Tomoiti 11 anos atrás
4 Posts
2 Usuários
0 Reactions
1,217 Visualizações
RSS
 Tomoiti
(@tomoiti)
Posts: 41
Trusted 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
 
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

 
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

 
Postado : 02/06/2013 7:26 pm
 Tomoiti
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Obrigado pelo ajuda... FUNCIONOU@@@

 
Postado : 04/06/2013 6:36 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico