Edson Luiz Branco

Boa tarde, Glaiciane. Tente: =Cont.se(Ferramentas!J4:J24;"<" & Hoje())

Valeu, Laerte. Que bom que o código lhe foi útil. Quanto ao erro, ele acontecia quando você pulava para outra planilha e já ia digitando numa célula sem selecioná-la, posto que já estava originalmente selecionada. Então o evento SheetSelectionChange não ocorria resultando que o range Interv ainda estaria se referindo à planilha anterior. Por isso "cerquei" ele capturando-o também através do evento SheetActivate. Se tiver tempo, edite seu post anterior e recorte a parte do código e use a ferramenta code (< >) para facilitar a leitura do post e deixar o tópico organizado, ok? Saudações, Edson.

Entendi. Vê agora. Planilha media respostas ano 2016- teste 02.rar

você baixou o último anexo ou já alterou sua pasta e copiou e colou o código? Acabei de testar aqui a que te enviei, da 01 até a 12 e está funcionando... Quanto ao uso da palavra-chave "Me" eu não testei todas, até mesmo porque já tinha deletado a pasta e achei desnecessário depurar pois a outra metodologia é mais eficiente.

Na orientação dada no post original, no passo 3 era prá entrar no modo de Exibição da Visualização de Quebra de Página somente para acertar o zoom corretamente e acertar os locais das quebras de página, etc. Tendo feito isso, você deve sair do modo de Visualizar Quebra de Página e voltar ao "Modo Normal" para deixar de exibir isso.

Bom dia, Laerte. Isso ocorreu porque você usou o mesmo código em cada uma de suas planilhas, não é? Eu não tinha me dado conta que todas as suas plans são idênticas, uma prá cada mês e que você queria replicar o código em cada uma delas... Na verdade nem circulei entre elas, fiquei só na primeira e deci a lenha, hehehe. Desculpa aí, foi mal. De fato, se simplesmente copiar/colar o mesmo código em todas, ocorrerá um conflito na hora de definir o Range Interv. Para corrigir isso, você deveria qualificar à qual planilha o intervalo estaria se referindo. Para isso, daria prá usar: Set Interv = Me.Range("A4:F4,B13:B14,F13:F39") Maaaassss permita-me sugerir outra abordagem nesse caso. Para simplificar ainda mais, ao invés de repetir o mesmo código para cada planilha, você poderia inserir os códigos apenas no módulo do workbook ("EstaPasta_de_trabalho"), com pequenas modificações para prevenir que o código seja executado em outras planilhas que não aquelas nomeadas "mes 00-0000". Sugeriria assim (também anexei para sua apreciação): Option Explicit Option Compare Text Private Valor As Variant, Interv As Range Private Sub Workbook_Open() Valor = ActiveCell.Value Set Interv = ActiveSheet.Range("A4:F4,B13:B14,F13:F39") End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Valor = ActiveCell.Value End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not (Sh.Name Like "m[eê]s ##-####") Then Exit Sub Set Interv = Sh.Range("A4:F4,B13:B14,F13:F39") If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 1 Then Target(1, 1).Select Valor = Target(1, 1).Value End If End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not (Sh.Name Like "m[eê]s ##-####") Then Exit Sub If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub Planilha media respostas ano 2016- teste 02.rar

@LaerteB , dá uma experimentada assim. Ficou um pouco mais enxuto, pois o código força você a trabalhar apenas com uma célula de cada vez naqueles intervalos. Testa e dá retorno, ok? Option Explicit Public Valor As Variant, Interv As Range Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Set Interv = Range("A4:F4,B13:B14,F13:F39") If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 1 Then Target(1, 1).Select Valor = Target(1, 1).Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valor Application.EnableEvents = True End If End If End Sub

Ok, Laerte, vou verificar hoje à noite, mas à princípio já imagino o que seja: no arquivo original usei uma array (Variant) de duas dimensões (variável Valores) e estava adequado àquela situação, já que o requisito da época não incluía intervalos não-contíguos/não adjacentes o que já não acontece em seu caso, visto que o range A4:F4,B13:B14,F13:F39 é composto por três áreas distintas não contíguas. Então as variáveis Lin, Col acabam extrapolando os subscritos da matriz "Valores" e a rotina fica comprometida, funcionando apenas no primeiro Range (A4:F4). Fique tranquilo, pois tem solução. Só não poderei fazer isso agora, ok?

Laerte, aqui funcionou normal, mesmo com as modificações. Para diagnosticar o que possa estar acontecendo acredito que somente analisando seu arquivo.

No intervalo que o Domingos montou, apenas troque o ponto-e-vírgula por vírgula: Set Interv = Range("A4:F4,B13:B14,F13:F39")

Boa tarde, Laerte Sua questão é semelhante à uma dúvida que respondi há muito tempo atrás (dezembro de 2001) no extinto GDI da Fórum Access (cuja base hoje está no site de uma empresa - Itlab). Acho até que ainda tenho a planilha que usei naquela época para criar a macro. Como sua macro é bastante extensa não posso analisá-la agora, à noite tentarei dar uma olhada e procuro em meus arquivos. Enquanto isso, se quiser ir estudando como foi solucionado, dá uma olhada em como foi construída a macro aqui: Fórum Acces/Itlab - "Referência p/ a mesma célula" _________ Em tempo: encontrei a pasta de trabalho Excel que fiz naquela época. Tá meio embolorada e cheia de poeira , mas dá uma olhada: GDFórumAccess - Referência mesma Célula.xls

Max, Diego... Embora o tópico original seja antigo e vocês já tenham resolvido, para ajudar outros usuários com problema semelhante, no Excel há uma recurso disponível bastante simples para fazer essa operação de uma forma bastante direta: 1) Numa célula vazia qualquer, coloque o multiplicador. No seu exemplo, 1,2 2) Copie a célula para a área de transferência (Ctrl+C) 3) Selecione o intervalo todo que vai sofrer multiplicação, clique com o botão direito, selecione "Colar Especial..." e na caixa de diálogo que aparece, selecione "Multiplicação" e "OK". Pronto. Todos os valores do intervalo são multiplicados pelo fator. 4) Agora pode apagar a célula onde tem o 1,2 que os valores permanecerão multiplicados. Esse recurso existe desde as primeiras versões do Excel, mas é pouco lembrado.

Olá, Astarteia, teria como fazer sim, mas precisa dar mais detalhes, mostrar exatamente o que e como você quer fazer e de preferência anexar um modelo do documento com pelo menos alguns itens do que você quer.

@Mariana Rocha boa tarde. Anexei seu arquivo com macros que criei. Como o fórum aqui não permite anexar planilhas com extensão .xlsm (habilitadas para macro), então está no arquivo zipado anexo. Veja se é isso q você queria. Atte., Edson. Formulario.zip

Olá, Liliane. Estou entendendo que você quer agrupar por meses na área de filtragem (em cima), e não na área de origem da linha. É isso ? Se for isso, não é possível fazer diretamente na área de filtro. Tem que 1) arrastar o campo "Data do Documento" para a área de "Linhas"; 2) Agrupar como o Patropi descreveu e como está no vídeo do Domingos; 3) Arrastar o campo agora agrupado de volta para a área de filtro.

Tacio, boa noite. Felizmente o Excel trabalha com facilidade manipulação de data/hora. Nesse seu caso é uma simples soma. Supondo: A1: = HOJE() (retorna o dia de hoje, no caso "25/08/2016" ou outra data, conforme queira inserir) A2: 120 (número de dias a projetar) A3: = A1 + A2 (retorna "23/12/2016") O segredo está em formatar as células A1 e A3, no caso, com o formato de Data (botão direito na célula, "Formatar células", guia "Número", categoria "Data", em "Tipo" escolha como você quer apresentar a data).

Olá, Juuh Uma forma de fazer seria: 1) Insira uma coluna auxiliar (vazia) e coloque a seguinte fórmula: =MOD(LIN();2) 2) Arraste ou copie a fórmula até o final da coluna 3) Com o Auto-filtro, exiba apenas os números "1". 4) Selecione, copie e cole os dados filtrados onde deseja.

Olá, Gleidson Louis Basta você proteger o documento. Não tenho a versão 2007 aqui, mas na 2016 o caminho é pela guia "Revisão", "Restringir Edição", no item 2 escolher "Permitir apenas este tipo de edição no documento" e finalmente escolher "Preenchendo formulários" e em 3 clicar em "Sim, Aplicar Proteção". No Word 2000 lembro que era em "Ferramentas" > "Proteger documento", selecionando "Formulários". Acredito que no 2007 deva ser uma dessas duas formas.

Um palpite: A indexação do disco externo está habilitada? Verifique no Windows Explorer, clicando com o botão direito sobre a letra da unidade externa e escolhendo "Propriedades". Lá em baixo veja se a opção está marcada. Caso não esteja, habilite-a. Talvez você tenha que, além disso, ir no Painel de controle, em "Opções de indexação" e acrescentar o local correspondente, em "Modificar".

Se vai usar o Solidworks, melhor seria uma placa certificada pelo software, senão fica sem poder habilitar o RealView. Nem GeForce nem Radeon são homologadas. Da NVIDIA eu escolheria as da linha Quadro ou Grid. Da AMD teria que ser FirePro ou FireGL (alguns modelos só). Veja no site do Solidworks.com - Support - System Requirements - Graphics Card Driver quais placas (e quais drivers) que passam no teste de compatibilidade. Se você já comprou, até existem alguns aplicativos independentes que prometem forçar compatibilidade emulando placas certificadas, como o RealHack ou o RivaTuner, mas nada garantido.

Olá, Luiza. Para usar o que o Solidworks oferece de melhor, você deve adquirir uma GPU homologada, ou seja, que passou no teste do programa. Claro que dá para usar outra qualquer, mas aí o RealView fica sempre desabilitado e perde essa grande funcionalidade. Para saber quais placas são homologadas, vá no site do Solidworks.com, vá em Support, Hardware & Sistem Requirements, Graphic Card Drivers. Lá você entra com dados como fabricante do computador (se for montado usa-se "Any System Vendor"), a versão do seu sistema operacional, e a versão do Solidworks e já diz quais placas são compatíveis inclusive podendo baixar o driver ali mesmo. Até isso é importante fazer, pois nem sempre deixar o Windows atualizar automaticamente com o driver mais recente é a melhor saída, pois pode não ser 100% compatível. A verdade é que há só 3 fabricantes de GPU homologados para o SW que são a AMD, Intel e NVIDIA e dentro dos da AMD, só alguns modelos da linha FirePro e FireGL são compatíveis. Infelizmente parece que sua escolha pela radeon hd 6200 não é certificada. Na linha PNY/NVIDIA a linha Quadro é a que mais tem placas certificadas (inclusive a que eu uso é uma Quadro 4000). Confere no link: Graphics Card Drive Solidworks