Jessy_1985

Pessoal, Tenho um formulário em que o usuário cadastra o CPF e o CNPJ, ocorre que o código abaixo funciona se você digitar o CPF ou o CNPJ, porém, o usuário na verdade vai é colar a informação, vai colar o CPF e o CNPJ sem formatação nenhuma e quando ele faz isso, a máscara não realiza a formtação. Queria saber se tem alguma opção de quando o usuário colar o CPF ou CNPJ ocorra a formatação no TextBox, pode ser ao sair do TextBoX ou de qualquer outra forma, mas que fique visível para o usuário a formatação ao colar os dados. Máscara CPF: Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Limita a Qde de caracteres 'TextBox8 = Me.TextBox7.Value TextBox7.MaxLength = 14 Select Case KeyAscii Case 8, 48 To 57 ' BackSpace e numericos If Len(TextBox7) = 3 Or Len(TextBox7) = 12 Then TextBox7.Text = TextBox7.Text & "." SendKeys "{End}", False ElseIf Len(TextBox7) = 7 Then TextBox7.Text = TextBox7.Text & "." ElseIf Len(TextBox7) = 11 Then TextBox7.Text = TextBox7.Text & "-" SendKeys "{End}", False End If Case Else ' o resto é travado KeyAscii = 0 End Select End Sub Máscara CNPJ: Private Sub TextBox31_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox31.MaxLength = 18 Select Case KeyAscii Case 8, 48 To 57 ' BackSpace e numericos If Len(TextBox31) = 2 Or Len(TextBox31) = 6 Then TextBox31.Text = TextBox31.Text & "." SendKeys "{End}", True End If If Len(TextBox31) = 10 Then TextBox31.Text = TextBox31.Text & "/" SendKeys "{End}", True End If If Len(TextBox31) = 15 Then TextBox31.Text = TextBox31.Text & "-" SendKeys "{End}", True End If Case Else ' o resto é travado KeyAscii = 0 End Select End Sub

Pessoal, Preciso de uma ajudinha....Tenho um textbox onde o usuário tem que digitar um valor em R$, para evitar os erros de digitação em relação ao ponto, simbolo e virgula, eu queria: 1) Bloquear o campo para receber apenas números (Usuário não deve conseguir inserir letra, ponto, virgula, caracteres especiais etc); 2) Conforme o usuário for inserindo os números, o textbox vai colocando o simbolo R$, o ponto e a virgula (Ex. R$ 34.789,98), mesmo que o usuário resolva inserir alguma letra, o número digitado não deve ser alterado, vi um código que inicialmente não aceita letra, mas depois que o usuário digita o número e clica em alguma letra, o textbox fica com os valores todo bagunçado. Achei alguns códigos na net, só que sempre dá erro seja em não aceitar todas as casas decimais, ou permitem outros caracteres além dos números. Obrigada.

Pessoal, Tenho um formulário que possui uma combo box, gostaria de saber se é possível associar esse combo box a um intervalo da planilha, de modo que o usuário posso incluir mais itens neste intervalo e este item suba automaticamente para o combo box do formulário. Isso é possível? Como? Em resumo, não gostaria de ter os itens do combo box chumbados no código dentro do VBA, assim evito que o usuário dependa de mim toda vez que quiser acrescentar um novo ítem dentro do combo/formulário.

@André_Arruda Rapazzz, funcionou....muito obrigada!!!

@André_Arruda Oi André, muito obrigada. Seria possível eu fazer referência ao conteúdo exato da célula A1? Pergunto, pois caso eu tenha campos com formulas na coluna R que não quero que pegue, ele acaba selecionando, pois a célula tem algum conteúdo. adicionado 2 minutos depois

Pessoal, tudo bem? Preciso de uma ajudinha..... essa linha de código faz parte de um código que estou usando para copiar e colar um intervalo de células num determinado local. Acontece que na minha Plan1 na célula A1 eu estou usando a formula Indice + Corresp para me trazer o endereço da celula que possui o maior número da coluna R (O intervalo entre as colunas A e R que devem ser selecionados possuem células e linhas vazias). E através deste endereço minha seleção fica expansível (pode ser R29, R50 etc)....gostaria de saber como coloco nesta linha de código que o intervalo em negrito deve ser o valor que consta na célula A1? Nesta célula já deixei a célula com o formato do intervalo certinho. ActiveSheet.Range ("$A$4:$R$15").Select Intervalo expansivel.zip

@Edson Luiz Branco super funcionou, nossa muito obrigada pela ajuda, Deus te abençoe! Se pudesse te mandava uma caixa de chocolate e um abraço!!!! Muito obrigada mesmo!

@Edson Luiz Branco nossa super funcionou, mas eu fui tentar adaptar para mais condições e deu erro (comentado em vermelho), poderia me ajudar? Será que fiz as condições erradas?: Option Explicit Option Compare Text Sub AbrirWord() Const caminho = "C:\Users\xxxxxxx\Documents\ xxxxxxx \ xxxxxxx \Modelos_Não alterar\\" Const arqA = "Homônimo.docx" Const arqB = "Positivo.docx" Const arqC = "Negativo.docx" Const arqD = "Parte.docx" Dim wordDoc As Object Application.ScreenUpdating = False Sheets("Relatório").Activate If Range("F5") = 1 Then If EstáAberto(caminho & arqA) Then MsgBox ("Feche o arquivo " & arqA & " antes de continuar") Exit Sub Else Set wordDoc = GetObject(caminho & arqA) End If If Range("F5") = 2 Then If EstáAberto(caminho & arqB) Then MsgBox ("Feche o arquivo " & arqB & " antes de continuar") Exit Sub Else Set wordDoc = GetObject(caminho & arqB) End If If Range("F5") = 3 Then If EstáAberto(caminho & arqC) Then MsgBox ("Feche o arquivo " & arqC & " antes de continuar") Exit Sub Else Set wordDoc = GetObject(caminho & arqC) End If Else If EstáAberto(caminho & arqD) Then MsgBox ("Feche o arquivo " & arqD & " antes de continuar") Exit Sub Else Set wordDoc = GetObject(caminho & arqD) End If End If End If End If wordDoc.Parent.Visible = True 'Erro em tempo de execução 91: A variável do objeto ou a variável do bloco 'with' não foi definida. wordDoc.Parent.Activate Application.ScreenUpdating = True Set wordDoc = Nothing End Sub Function EstáAberto(FullNameArq As String) As Boolean Dim wordApp As Object, i As Long On Error Resume Next Set wordApp = GetObject(, "Word.Application") If Err.Number = 0 Then If wordApp.Documents.Count > 0 Then For i = 1 To wordApp.Documents.Count If wordApp.Documents(i).FullName = (FullNameArq) Then EstáAberto = True Exit For End If Next i End If End If On Error GoTo 0 Set wordApp = Nothing End Function

@osvaldomp não querendo abusar dos seus conhecimentos, você teria alguma ideia para me ajudar?

Pessoal, Tenho um formulário no excel que o usuário preenche e ao clicar num botão específico é gerado um word (mala direta) com os dados daquele formulário. Dentro deste formulário tenho uma combo que o usuário informa se é o arquivo A, B, C ou D que deve ser gerado. O que ocorre é que se um dos documentos estiver aberto e o usuário clicar no botão novamente, o excel trava e fica a mensagem: “O excel está aguardando que outro aplicativo conclua a ação OLE”, nisso abre uma caixa de mensagem avisando que o arquivo está em uso, pedindo se desejamos que o arquivo seja aberto em somente leitura e isso atrapalha muito o usuário Gostaria de uma ajuda para solucionar este problema: Gostaria que enquanto um dos documentos A, B, C ou D estiverem abertos, o usuário ao clicar no botão receba uma mensagem avisando feche o arquivo (A, B, C ou D) para gerar um novo arquivo. Em resumo, se já existe o documento aberto, o código não deve ser executado, apenas alertar o usuário, se não houver documento aberto, deve executar normalmente a abertura do documento. Lembrando que outros arquivos do Word que estiverem abertos e que não tenham nada a ver com este fluxo não poderão ser afetados. Meu código: Sub abrirword() Set wordapp = CreateObject("word.Application") Sheets("Relatório").Activate If Range("F5") = 1 Then wordapp.Visible = True wordapp.Documents.Open "C:\Users\xxxxxxx\Documents\ xxxxxxx \ xxxxxxx \Modelos_Não alterar\Com Complemento.docx" wordapp.Activate Application.ScreenUpdating = True Else wordapp.Visible = True wordapp.Documents.Open " C:\Users\xxxxxxx\Documents\ xxxxxxx \ xxxxxxx \Modelos_Não alterar\Sem Complemento.docx " wordapp.Activate Application.ScreenUpdating = True End If End Sub Muito obrigada.

@osvaldomp Muito obrigada, eu vou tentar adaptar ao meu cenário. Sabe me informar como faço para navegar entre os cadastros específicos? Ex. Quero navegar apenas pelos cadastros que contenham o protocolo ou texto que pesquisei.

@osvaldompsei que sempre ajuda por aqui, será que conseguiria me ajudar?

Pessoal, Estou montando um formulário para cadastro, edição, pesquisa e navegação, a parte do cadastro e edição eu consegui tocar de boa, mas a parte da navegação entre os cadastros não estou conseguindo, e tive um imprevisto com a parte da pesquisa. Em relação a navegação entre os cadastros: Eu achei um código que realiza a navegação entre todos os cadastros da planilha, mas preciso que a navegação seja por cadastros específicos. Ex. Se pesquiso o Protocolo XXXX, quero navegar por todos os cadastros que possuam apenas o protocolo XXXX. Se pesquiso pelo nome Adriano, quero navegar apenas pelos cadastros de usuários que contenham o nome de Adriano. Em relação a pesquisa de cadastros: Achei um código que realiza a pesquisa, porém, quando pesquiso um nome, ele está fazendo diferenciação de Maiúscula e Minúscula, acento etc, e no caso, não deveria fazer essa diferenciação. Ex. Se eu pesquisar o nome Jéssica, deve ser permitido navegar pelo cadastro que contenham: Jéssica, jéssica, Jessica, jessica. Se o acento não for possível, ao menos a diferenciação de maiúscula e minúscula não deve ocorrer. Um dos campos de pesquisa é por nome e no caso, posso ter mais de um nome na mesma célula (Quando o usuário dar o ALT+Enter), então, o código não consegue realizar a pesquisa em células que possuem a string com ALT+Enter. Desde já muito obrigada a todos que sempre ajudam aqui. Ajuda form.zip

@osvaldomp Oi Osvaldo, eu que comi bola, o código funcionou certinho, muito obrigada pela ajuda.

@osvaldomp obrigada pela ajuda...eu tentei e dá erro de compilação, a variável kick não foi definida. Eu tentei definir como boolean, inteiro, mas também não deu certo, poderia me ajudar?