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.