WILKER.ADM

@Basole Resolvido. Muito obrigado. Não encontrei o botão de encerrar o tópico...

Agora apresentou outro erro, mas na linha da macro:

Boa noite. Estou com um problema ao executar uma macro de limpar que apresenta o erro "Erro em tempo de Execução 13 - Tipos Incompatíveis" ao ser executada. Mas encontrei o problema, que é um código executável em VBAProject que altera o tamanho de algumas células obedecendo certo critério. Daí ao apagar tais células emite o erro já mencionado. Portanto, preciso de um código complementar à macro limpar, para ser executada com sucesso. Segue a macro de limpar: Sub Limpar() ' ' Limpar Macro ' Sheets("Objetivos").Range("B5:M6, B9:M44, B46:M46, Q6:AO17").ClearContents Sheets("Jan").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Fev").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Mar").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Abr").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Mai").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Jun").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Jul").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Ago").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Set").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Out").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Nov").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("Dez").Range("D6:J29, N6:P29, V6:AQ39, AI1, AO1:AO2").ClearContents Range("D6").Select Sheets("PDD").Range("A3:E69, G3:I69, A80:E113, G80:I113").ClearContents Rows("3:69").Select Range("A69").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With Rows("80:113").Select Range("A113").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A3").Select Sheets("Ajuizamentos").Range("A6:I300").ClearContents With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ActiveWindow.ScrollRow = 6 Range("A6").Select Sheets("Objetivos").Select ActiveWindow.SmallScroll Down:=-42 Range("B5").Select End Sub Segue o código VBAProject: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Me.[V27:AQ29,V31:AQ31]) Is Nothing Then Select Case Target.Value Case Is < -99999, 99 Target.Font.Size = 5 Case Is > -99999, 99 Target.Font.Size = 7 Case Is = 0 Target.Font.Size = 7 Case " " Target.Font.Size = 7 End Select End If Application.EnableEvents = True End Sub

Resolvido... Parabens pelo expressivo conhecimento em excel. Obrigado.

Boa noite. Informo que me deparei com uma situção que fiquei travado. Não consigo continuar e preciso de suporte. Tenho a seguinte situação: Tenho uma projeto com 13 planilhas e preciso de uma macro que seja acionada por meio de "Controle Active X" "Caixa de Combinação". Ao selecionar um valor da caixa de combinação a macro de zoom seja executada nas 13 planilhas, e pare na celula "D5" da planilha atual, ou seja, que nao mude de planilha. Obs.: A Referencia da Caixa de Combinação será as celulas (A1:A8) da planilha Referencia. Não consegui criar uma macro que altere o zoom de todas as planilhas ao mesmo tempo. Teste.xlsx

Resolvido... Muito Obrigado Wendell.

Exemplo: Ao selecionar jan, a celular B6 será selecionada. E assim com todas as planilhas... Sempre parar na celula B6 de todas.

Tem como adicionar um comando para para em uma celula especifica ao selecionar qualquer planilha? Outra coisa, como faço para alterar o tamanho e tipo da fonte na caixa de seleção?

Não sei trabalhar com o controle ActiveX. Uso com frequencia a opção "botão" do controle de formulario. Tentei anexar a planilha em arquivo rar e apresentou o erro "o envio falhou". Consegui anexar... Pasta1.zip

Boa tarde. Não estou conseguindo avançar em uma macro: Tenho uma projeto com 12 plans (Jan, Fev, Mar, Abr, Mai, Jun, Jul, Ago, Set, Out, Nov e Dez) Gostaria de ir a qualquer planilha deste projeto ao selecionar uma das opções da caixa de combinação. Ja gravei as macros, mas não consigo inseri-las no botão. Obs: Seria apenas um botão que tenha como escolher qualquer mês: Sub IrParaJan()'' IrParaJan Macro' Sheets("Jan").Select Range("B6").SelectEnd SubSub IrParaFev()'' IrParaFev Macro' Sheets("Fev").Select Range("B6").SelectEnd SubSub IrParaMar()'' IrParaMar Macro' Sheets("Mar").Select Range("B6").SelectEnd SubSub IrParaAbr()'' IrParaAbr Macro'' Sheets("Abr").Select Range("B6").SelectEnd SubSub IrParaMai()'' IrParaMai Macro' Sheets("Mai").Select Range("B6").SelectEnd SubSub IrParaJun()'' IrParaJun Macro' Sheets("Jun").Select Range("B6").SelectEnd SubSub IrParaJul()'' IrParaJul Macro' Sheets("Jul").Select Range("B6").SelectEnd SubSub IrParaAgo()'' IrParaAgo Macro'' Sheets("Ago").Select Range("B6").SelectEnd SubSub IrParaSet()'' IrParaSet Macro' Sheets("Set").Select Range("B6").SelectEnd SubSub IrParaOut()'' IrParaOut Macro' Sheets("Out").Select Range("B6").SelectEnd SubSub IrParaNov()'' IrParaNov Macro'' Sheets("Nov").Select Range("B6").SelectEnd SubSub IrParaDez()'' IrParaDez Macro' Sheets("Dez").Select Range("B6").SelectEnd Sub Desde ja, deixo meus agradecimentos.