Joseph2018

Na planilha anexa, qual alteração ou implementação deve ser feita na macro Deleta_Linhas_Alternadas, para que funcione. Gostaria de que ao executar a macro, fossem deletadas as linha 2, 4, , 8 ... etc. até a linha 100. Gostaria, também de macro semelhante, para deletar as linhas 1, 3, 5, 7 ...até a linha 99. Exclui_Linhas_Alternadas.zip

Prezados: Embora não seja normal, mas estamos precisando fazer várias digitações dentro de uma mesma célula excel e precisamos que fiquem alinhadas uma abaixo da outra, como no exemplo do arquivo anexo, supondo ser as células A1 e B1. Existe algum tipo de formatação a ser aplicada para que ao digitar dentro de uma mesma célula e dar <enter> a informação vá para baixo da primeira ou existe outra solução? Antecipadamente agradeço. Varias_Digitacoes_na_mesma_Celula.zip

Caro osvaldomp. A solução do inputbox que você me forneceu atende perfeitamente o que precisava. O caso da substituição dos caracteres da senha por caracteres especiais era apenas um refinamento, mas que é plenamente dispensável, no meu caso. Assim, não é necessário um esforço maior para contemplar esta situação. Gostaria de agradecer imensamente a pronta e competente ajuda que você me deu. Espero contar com você em outras ocasiões. Grande abraço.

Caro osvaldop, bom dia. seguindo sua orientação colei o código abaixo em substituição ao anterior e o segundo código no módulo da planilha "Menu", porém deu "erro em tempo de execução 1004 - Não é possível inserir objeto", na linha em destaque abaixo: Private Sub Workbook_Open() Sheets("Menu").Select Dim oTB As Object Set oTB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1") With oTB .Left = 300: .Top = 90: .Width = 140: .Height = 25 .Object.BackColor = vbYellow .Object.Font.Size = 12 .Object.TextAlign = 2 .Object.PasswordChar = "@" End With End Sub Diante disso pergunto: 1) como corrigir? 2) Teria como manter o imput box anterior, porém somente substituir os caracteres da senha pelo @? No aguardo, desde já agradeço.

Caro osvaldomp, mais uma vez obrigado. Se não for pedir muito, como colocar uma máscara para que ao invés dos caracteres da senha apareça, por exemplo, ******* ? Como ficaria para a senha Jmps2019? No aguardo, antecipadamente agradeço.

Olá osvaldomp. Novamente obrigado pela resposta. Gostaria de usar a sua sugestão "Uma alternativa seria substituir a MsgBox por InputBox no código que sugeri antes, e na InputBox o usuário deveria inserir uma senha para poder abrir o arquivo no modo edição." apenas para 1 (um) usuário (eu mesmo), porém não sei como fazer. Vou colar abaixo o código que está no evento open da pasta de trabalho (não é macro auto open). Se você puder ajustá-lo para atender a sua sugestão ficaria agradecido: Private Sub Workbook_Open() Sheets("Menu").Select If MsgBox("Deseja abrir para editar?", vbQuestion + vbYesNo + vbDefaultButton2, "Banco da Amazônia - SISMEC") = vbNo Then lsLigarTelaCheia End If End Sub Sub lsLigarTelaCheia() 'Desliga atualização de tela Application.ScreenUpdating = False 'Maximiza o tamanho da tela Application.WindowState = xlMaximized 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ocultar barra de fórmulas Application.DisplayFormulaBar = False 'Ocultar barra de status, disposta ao final da planilha Application.DisplayStatusBar = False 'Alterar o nome do Excel que queira que apareça na barra de título Application.Caption = "Gerenciamento e Controle de Estoque - Material de Expediente Codificado" With ActiveWindow 'Ocultar barra horizontal .DisplayHorizontalScrollBar = False 'Ocultar barra vertical .DisplayVerticalScrollBar = False ''Ocultar guias das planilhas .DisplayWorkbookTabs = False 'Oculta os títulos de linha e coluna .DisplayHeadings = False 'Oculta valores zero na planilha '.DisplayZeros = False 'Oculta as linhas de grade da planilha '.DisplayGridlines = False End With End Sub

Caro osvaldomp, bom dia. Muito obrigado, funcionou perfeitamente, porém, como não desejaria deixar a opção de editar para qualquer usuário que for abrir o arquivo, gostaria de saber se há alguma combinação de teclas que, pressionadas antes de clicar no atalho do arquivo, consiga diretamente abrir o arquivo para edição, como por exemplo a tecla SHIFT que em versões anteriores do Excel funcionava? No aguardo, antecipadamente agradeço.

Prezados, gostaria de saber se tem como, ao abrir um arquivo Excel que contenha o código a seguir, evitar que o código seja executado e o arquivo abra normalmente, possibilitando que sejam feitas alterações. Por exemplo, antes ao prender a tecla SHIFT e dar dois cliques no arquivo, na área de trabalho, o arquivo abria normalmente, ignorando a macro auto-open. Caso contrário, como poderia ser feito para acessar o arquivo e poder alterá-lo, pois em código semelhante, ao sair o ambiente é restaurado, mas não permitiria o acesso para alterações. No aguardo, agradeço. Exemplo do código de entrada que, em alguma ocasiões, gostaria de evitar para acessar o arquivo normalmente: ub lsLigarTelaCheia() 'Desliga atualização de tela Application.ScreenUpdating = False 'Maximiza o tamanho da tela Application.WindowState = xlMaximized 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ocultar barra de fórmulas Application.DisplayFormulaBar = False 'Ocultar barra de status, disposta ao final da planilha Application.DisplayStatusBar = False 'Alterar o nome do Excel que queira que apareça na barra de título Application.Caption = "Gerenciamento e Controle de Estoque - Material de Expediente Codificado" With ActiveWindow 'Ocultar barra horizontal .DisplayHorizontalScrollBar = False 'Ocultar barra vertical .DisplayVerticalScrollBar = False ''Ocultar guias das planilhas .DisplayWorkbookTabs = False 'Oculta os títulos de linha e coluna .DisplayHeadings = False 'Oculta valores zero na planilha '.DisplayZeros = False 'Oculta as linhas de grade da planilha '.DisplayGridlines = False End With End Sub

Prezados: favor ajustar a função PROCV do arquivo anexo, para atender ao que está descrito nela. No momento está funcionando para alguns casos, mas não para outros. Não estou conseguindo ajustar. Se possível, devolver a planilha com os ajustes necessários. Desde já agradeço. Erro_PROCV.xlsx

Caro Osvaldomp: "na mosca" meu amigo. Muito obrigado.

Prezados: gostaria de incrementar o código do arquivo anexo, de modo que, ao abrir o arquivo Excel (exemplo também anexo), ficassem visíveis e passíveis de exclusão, somente as planilhas a partir da décima. As demais devem ficar ocultas. Desde já agradeço. Codigo_Exibir_Somente_Planilhas_a_Partir_da_Décima.zip

Prezado Edson: Fantástico. Você é o cara. Tentei entender o código, mas só consegui fazê-lo superficialmente. Funcionou perfeitamente. Certamente conseguirei adaptá-lo a situações futuras. MUITO OBRIGADO!!! adicionado 9 minutos depois Prezado Osvaldo, muito obrigado pela ajuda e encaminhamento da solução. O código fornecido pelo Edson Branco funcionou perfeitamente. Muto obrigado.

Amigo, obrigado pela resposta, porém, gostaria de uma solução em que as datas informadas aparecessem nos locais apropriados (T2 e U2), e no formato de data. Se for apenas 1 campo de data funciona, porém com os 2 campos, somente se feito através dos comandos manuais. No aguardo, agradeço.

Na planilha anexa, quando executo o Filtro Avançado do exemplo, manualmente, funciona perfeitamente. Porém, quando gravo uma macro com os mesmos passos e atrelo ao botão "Consultar" deixa de funcionar. Poderia me ajudar. Filtro_Avancado_Macro.zip

Obrigado amigo. Fiz as adaptações e funcionou legal. Muito obrigado.

Amigo, tem uma solução para minha solicitação acima, ou seja, o que devo inserir em uma cédula qualquer, para que retorne o número da linha correspondente à última célula preenchida da coluna A da planilha MOV_ME? Desde já agradeço.

Não amigo, eu gostaria que fosse identificado o número da linha correspondente à ultima célula preenchida da coluna A. Esta planilha é dinâmica e o número de registros vai aumentando a todo instante. Por isso gostaria de visualizar o número da linha em correspondente à última célula da coluna A, que esteja preenchida. Obrigado pela sugestão do youtube.

Amigo, bom dia. Adaptei o código que você me mandou no dia 06/03 e funcionou perfeitamente, Muito obrigado. Neste momento solicito o seguinte: Preciso inserir em uma célula, o número da última linha preenchida da coluna "A" da planilha MOV_ME, pois preciso fazer o acompanhamento da quantidade de linhas. Tentei usar a função LIN, mas não consegui. Como devo fazer? (não achei necessário encaminhar a planilha); Você tem alguma indicação de curso de Excel Avançado, incluindo programação VBA para Excel? Pode ser presencial ou on-line. Caso negativo, sugere algum livro tipo passo-a-passo para programação VBA? No aguardo, antecipadamente agradeço.

Amigo, boa tarde. Estive afastado por motivo de férias e só hoje pude voltar a acessar o fórum. Peço desculpas por não ter inserido dados nas planilhas que são utilizadas para inserir dados na planilha MOV_ME. Vou tentar usar o código que você enviou que, com certeza deve ser a melhor solução. Contudo, como o processo de cópia já está funcionando e que quando, após a cópia eu acesso "manualmente" a planilha MOV_ME, vou para a última célula preenchida e depois a partir da próxima eu seleciono um intervalo da coluna A até a J de umas 200 linhas e apago (deleto), tudo funciona perfeitamente. Assim sendo, como uma solução adicional poderia ter um código que fizesse isso, ou seja: ir para a última célula preenchida da coluna A da planilha MOV_ME e, a partir da próxima selecionasse um intervalo de 200 linhas de A até J e deletasse? Isso seria mais um aprendizado para mim. Por fim, amigo, gostaria de aproveitar para pedir, caso você possa, uma indicação de um Curso de VBA para Excel, preferencialmente presencial (senão, on line) que abordasse de forma prática, passo a passo todos os procedimentos necessários a um aprendizado consistente da linguagem. No Aguardo, antecipadamente agradeço.

Amigo, devo refazer o post conforme suas orientações acima ou pode ficar para os próximos, pois não vi a resposta a minha consulta? No aguardo. Agradeço. PS.: só para esclarecer, às vezes preciso incluir tabelas com valores e não vi este recurso dentro do post.

Amigo, segue o arquivo Parte_Codigo_Copia_Informacoes.docx, com a parte referente ao processo de cópia das informações para a planilha MOV_ME. Par facilitar o entendimento, anexo também o arquivo Calcula_Consumo_Resposta_Final.xlsx com algumas planilhas envolvidas. No aguardo, antecipadamente agradeço. Calcula_Consumo_Final.xlsx Parte_Codigo_Copia_Informacoes.docx

Amigo, desculpe mais uma vez. Descobri a razão porque estava dando erro. Havia uma sujeira em uma célula distante. Por isso funcionou quando ajustei para 100 e para valores maiores dava erro. Já consegui ajustar todas as referências para 30000 e tudo funcionou perfeitamente. Obrigado por tudo e até a próxima. Amigo, ocorreu um imprevisto. Pensei que estava tudo ok, mas há um problema: a planilha _MOV_ME é alimentada, via código VBA copiando determinados intervalos de outras planilhas e colando somente valores nela. Por segurança copio, por exemplo um intervalo que compreende 100 linhas, porém as 40 últimas não tem informação, mas quando são coladas na MOV_ME parece que fica algum registro, pois imediatamente a planilha Cons_Mensal apresenta erro nas fórmulas (#VALOR). Aí eu vou na planilha MOV_ME seleciono todas as células vazias a partir da última linha preenchida, DELETO e automaticamente tudo fica OK na planilha Cons_Mensal. Se eu excluir todas as linhas vazias a partir da última preenchida aí o problema é maior, pois as fórmulas da Cons_Mensal são ajustadas para o total de linhas da MOV_ME, o que NÃO pode acontecer. Pergunto: o que posso fazer para resolver este problema?

Amigo, tentei substituir nas fórmulas da planilha Cons_mensal as referências de linhas =95 por outros valores maiores, inclusive 30000 e deu erro, apareceu #VALOR. Exemplo onde estava $A$2:$A$95 mudei para $A$2:$A$1000. O curioso é que quando substituí por 100 funcionou, mas nenhum outro valor maior. Preciso que seja 30000 em todas as referências. Como disse a planilha Mov_ME vai crescendo a cada dia. Você pode ajustar na planilha de exemplo e me enviar? Antecipadamente agradeço. adicionado 24 minutos depois Amigo, desculpe mais uma vez. Descobri a razão porque estava dando erro. Havia uma sujeira em uma célula distante. Por isso funcionou quando ajustei para 100 e para valores maiores dava erro. Já consegui ajustar todas as referências para 30000 e tudo funcionou perfeitamente. Obrigado por tudo e até a próxima.

Amigo(a), desculpe. Esqueci um fator importante: A planilha Mov_ME começa em $A$2 e vai crescendo diariamente e como não tenho como determinar até que tamanho irá, nas fórmulas da planilha Cons_mensal como poderia ajustar de modo que fosse de $A$2 até a última célula preenchida da coluna A, de $B2$ até a última célula da coluna B e assim por diante paras as demais colunas envolvidas. Desde já agradeço. Amigo, posso ajustar, porém como faz parte de um "sistema" queria evitar manutenções em períodos curtos. A movimentação anual da planilha Mov_ME deve ser da ordem de 10.000 linhas. Pergunto: se colocar 30.000 isto pode afetar o desempenho?

Amigo(a). Agora ficou show. Não vou precisar da Tabela Dinâmica neste momento. Vou deixar a planilha que calcula o consumo fixa, variando apenas as datas que serão informadas e, a partir daí, vou executar outros procedimentos, via macro que são bem mais tranquilos. Muitíssimo obrigado, mais uma vez. Essa equipe do Clube do Hardware é 10. Parabéns. adicionado 58 minutos depois Amigo(a), desculpe. Esqueci um fator importante: A planilha Mov_ME começa em $A$2 e vai crescendo diariamente e como não tenho como determinar até que tamanho irá, nas fórmulas da planilha Cons_mensal como poderia ajustar de modo que fosse de $A$2 até a última célula preenchida da coluna A, de $B2$ até a última célula da coluna B e assim por diante paras as demais colunas envolvidas. Desde já agradeço.