Luiz de Lima

VIP, obrigado pela resposta. Eu queria que funcionasse em um só potão. Como não consegui, coloquei assim e esta funcionando. Bloqueei o ESC. Sub lsLigarTelaCheia() Application.DisplayFormulaBar = True = Not Application.DisplayFormulaBar = True Application.DisplayStatusBar = True = Not Application.DisplayStatusBar = True With ActiveWindow Application.DisplayFullScreen = True = Not Application.DisplayFullScreen = True ActiveWindow.DisplayHorizontalScrollBar = True = Not DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True = Not DisplayVerticalScrollBar = True ' ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayHeadings = True = Not ActiveWindow.DisplayHeadings = True ActiveWindow.DisplayZeros = True = Not ActiveWindow.DisplayZeros = True ActiveWindow.DisplayGridlines = True = Not ActiveWindow.DisplayGridlines = True End With End Sub Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Application.OnKey "{escape}", "" End Sub Private Sub Workbook_End() Application.OnKey "{escape}" End Sub

Visualizei vários tópicos sobre o assunto. Mas todos os macros ativam e desativam com SUB separados, achei um referencia de abas que são habilitadas e desabilitadas na mesma sub. Tentei adaptar a parte do menu, mas não tive sucesso. Gostaria, se possível uma ajuda. SDS Luiz O codigo: Sub lsLigarTelaCheia() 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Este no caso não consegui fazer ativar e desativar na mesma sub. Application.DisplayFormulaBar = True = Not Application.DisplayFormulaBar = True Application.DisplayStatusBar = True = Not Application.DisplayStatusBar = True With ActiveWindow ActiveWindow.DisplayHorizontalScrollBar = True = Not DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True = Not DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayHeadings = True = Not ActiveWindow.DisplayHeadings = False = True ActiveWindow.DisplayZeros = True = Not ActiveWindow.DisplayZeros = True ActiveWindow.DisplayGridlines = True = Not ActiveWindow.DisplayGridlines = True End With End Sub

Boa tarde. Consegui resolver no momento, mudando o critério para: CriteriaRange:=ActiveSheet.Range("B1:C2") Desde já agradeço; SDS Luiz

Desculpe. Primeiro era exatamente esta validação de dados que eu não estava conseguindo fazer, mas consegui. Obrigado. No caso da macro. Por erro não coloquei. Segue: Sub Macro1() Range("b2").Select Sheets("Plan2").Range("A1:O1000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Plan1!Criteria"), CopyToRange:=Range("A9:O9"), _ Unique:=False End Sub Obrigado.

Estou tentando colocar uma barra de rolagem em uma planilha. Já utilizei esta barra em outras planilhas, mas no 2003. Agora não consigo localizar. A barra que tem no icone desenvolvimento não se molda na célula. Vou anexar um exemplo. Se puderem me mostrar o caminho. Obrigado. E Também se puderem, estou usando esta barra em uma macro que achei, mas ela usa somente um critério eu precisava que ela buscasse os dados usando 2 critérios. Desde ja agradeço. SDS Luiz exemplo.xlsx

Perfeito. Os 2 modelos. Muito Obrigado.

Boa tarde. Gostaria de ajuda para a seguinte situação. Tenho 3 colunas D, E e H, na coluna D tem os códigos, na coluna E tem as datas e na H tem os valores. Eu gostaria de ter a somatória dos valores da coluna H, somente se na coluna D tiver dados iguais ao preenchido na célula A2 e se também se na coluna E tiver dados iguais ao preenchido na célula A3. Eu usei as formulas Se e E, Somase, Procv, Procv com Soma, Procv com Se. Esta =SOMASE(D2:D10;A2;H2:H5), mas não sei com ficaria a formula para buscar os 2 critérios. Ex. =Somase(D2:D10;A2;E2:E10;A3;H2:H5), mas assim não funciona também tentei =SOMARPRODUTO((D2:D10;A2)*(E2:E10;A3)*(H2:H10)), também não funcionou. Desde já agradeço.