Alun

Boa noite a todos. Para facilitar fiz dois arquivos: 1- Duplo clique que funciona perfeitamente e é como uso hoje 2- Com a tecla BREAK ou F12 que é como eu quero que funcione mas esta dando erro Na verdade eles são arquivos do excel .xlsm, mas como aqui não aceita gravei como xlsx. Talvez tenha que salvar com a terminação certa para funcionar. Se puderem dar uma olhada nos dois exemplos. Agradeço muito. Obrigada. BREAK_v1 - Cópia - Cópia.xlsx Duplo clique_v1 - Cópia - Cópia (2).xlsx

Boa tarde. Com duplo clique ela funciona normalmente conforme abaixo, mas quero trocar por uma tecla como F12 ou BREAK por exemplo. Ai que não está funcionando. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' ActiveSheet.Unprotect "xxxx" Sheets("Produtos").Unprotect Password:="xxxx" If Target.Column = 3 Then UserForm1.Show If Target.Column = 5 Then UserForm2.Show If Target.Column = 1 Then UserForm3.Show ' ActiveSheet.Protect "xxxxx" Sheets("Produtos").Protect Password:="xxxx" End Sub Boa tarde. ESte é o codigo do userform1 ou 2, etc...... Private Sub ListBox1_Click() ActiveCell.Value = ListBox1.Value Unload Me End Sub Private Sub TextBox1_Change() TextoDigitado = TextBox1.Text Call PreencheLista End Sub Private Sub UserForm_Initialize() Call PreencheLista End Sub Private Sub PreencheLista() Dim ws As Worksheet Dim i As Integer Dim TextoCelula As String Set ws = ThisWorkbook.Sheets("Cadastros") i = 9 ListBox1.Clear With ws While .Cells(i, 9).Value <> Empty TextoCelula = .Cells(i, 9).Value If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem .Cells(i, 9) End If i = i + 1 Wend End With End Sub

@Visitante Boa tarde. O arquivo não está mais disponível? Tentei fazer o download, mas ele não responde. Obrigada. Boa tarde. Já consegui. Obrigada.

@Patropi Muito obrigada.

@Patropi, boa noite! Posso perguntar sobre uma outra dúvida minha, ou é contra as regras do forum? Postei no meu perfil. Obrigada.

Boa noite a todos, Estou com a função vba abaixo onde quando a pessoa tecla enter carrrego um menu para ela escolher um nome. Só que não está funcionando quando teclo o enter ele nao faz nada, ou seja, nao reconhece a tecla. Segue o codigo caso possam me ajudar: Private Sub worksheet_KeyPress(Keycode As Integer) Sheets("Produtos").Unprotect Password:="xxxx" ' return, enter If Keycode = 13 Then ' If KeyAscii = 13 Then If Target.Column = 1 Then UserForm1.Show If Target.Column = 3 Then UserForm2.Show If Target.Column = 5 Then UserForm4.Show ' ActiveSheet.Protect "xxxx" End If Sheets("Produtos").Protect Password:="xxxx" End Sub Agradeco independente se puderem me ajudar ou não. Muito Obrigada e bom fim de semana. Liege Fernandes

Boa noite e muito obrigada Edson. você alterou a extensão para .pdf com o renomear no windows explorer mesmo? Porque no propriedades ele nao deixa. Muito obrigada mais uma vez pela sua ajuda. Abs. Liege

Boa noite e muito obrigada pelo retorno. Os arquivos da receita tem outras terminacoes como .DEC . BKD, etc, esta terminação foi feita pelo escritorio e nao pela receita. Mesmo assim, obrigada. Liege Fernandes

Bom dia a todos! Por favor alguem sabe qual software abre o arquivo anexo? Ele é um arquivo .10_2020301930 (não exatamente os mesmos numeros, foi um exemplo). E um arquivo de um amigo meu que vou fazer o imposto de renda, e ele recebeu este arquivo do antigo escritorio dele que ja nao existe mais e nao temos mais o contato. Tentei abrir com o adobe reader e nao funcionou. Tentei anexar aqui, mas pela extensão o Clube do Hardware não deixa, por isso coloquei o link dele do onedrive. https://1drv.ms/u/s!AiEz39gHmDDVjDysqD-2DO8f3wtp?e=FBRvSS Se puderem me ajudar, agradeco. Obrigada. Liege Fernandes

Boa noite. Por favor como faço para calcular datas na seguinte situação: nr cliente. Data 34. 28/06/2018 76. 01/07/2018 34. 03/07/2018 44. 29/06/2018 34. 15/07/2018 preciso calcular os dias corridos em relação a primeira data de um mesmo registro se é menor que 10. Isso para a tabela inteira. Obrigada. Liege Fernandes

Boa noite Wagner e super obrigada pela resposta com as dicas. Me ajudou muito. Liege adicionado 1 minuto depois @Alun @Wagner Ruaro muito obrigada pelas dicas. Liege

Boa noite. Por favor alguem sabe me dizer porque o site www.capzles.com não entra mesmo depois de ter instalado o adobe flash player? Caso seja impossivel resolver, alguem sabe outro site/software parecido que faz linha do tempo, mas com textos, videos, fotos, etc? Obrigada. Liege