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.

Em 08/01/2021 às 21:08, Alun disse:

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

 

_________________________________________________

Em 08/01/2021 às 21:08, Alun disse:

Boa noite a todos.

Em 08/01/2021 às 21:08, Alun disse:

Boa noite a todos,

 

Tentei mais esta forma, mas também não deu certo:

 

Private Sub Menu_KeyDown(ByVal keycode As MSForms.ReturnInteger, ByVal Shift As Integer)

' ActiveSheet.Unprotect "xx"
Sheets("Captação").Unprotect Password:="xx"

' nr 19 vbkeybreak
If keycode = 19 Then
If Target.Column = 1 Then UserForm1.Show
If Target.Column = 4 Then UserForm2.Show
If Target.Column = 5 Then UserForm4.Show
End If
' ActiveSheet.Protect "xx"
Sheets("Captação de Produtos").Protect Password:="xx"
End Sub

 

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

@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