ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 5 ocorrências

por Alyson
Dom Mar 08, 2020 5:51 pm
Fórum: VBA Básico
Tópico: [Resolvido] posicionar cursor no próximo txtBox com Tab
Respostas: 3
Exibições: 1426

Re: posicionar cursor no próximo txtBox com Tab

Segue no anexo a planilha com os comandos
por Alyson
Dom Mar 08, 2020 5:25 pm
Fórum: VBA Básico
Tópico: [Resolvido] posicionar cursor no próximo txtBox com Tab
Respostas: 3
Exibições: 1426

Re: posicionar cursor no próximo txtBox com Tab

Boa tarde.
Tenta desse jeito:

Código: Selecionar todos

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
     TextBox2.Activate
End If
End Sub
Assim você direciona o campo com o KeyDown do objeto ativo.
por Alyson
Dom Mar 08, 2020 7:01 am
Fórum: Banco de Dados e SQL
Tópico: Pesquisa em SQL usando dados da planilha
Respostas: 1
Exibições: 25624

Re: Pesquisa em SQL usando dados da planilha

@cparreiras Bom dia. Sei que faz muito tempo que você mandou essa pergunta mais tentando encontrar uma solução para ela vi uma planilha que me supreendeu muito: Link da planilha: Link Planilha (Google Drive) Fonte : ExcelFlex http://www.excelflex.com.br/wp-content/uploads/2018/10/Sem-t%C3%ADtulo-2-3...
por Alyson
Dom Mar 08, 2020 6:15 am
Fórum: VBA Básico
Tópico: pesquisar,copiar e colar partes de texto com vba
Respostas: 5
Exibições: 4573

Re: pesquisar,copiar e colar partes de texto com vba

Bom dia. Poderia dar exemplos dessas variações?
por Alyson
Sáb Mar 07, 2020 4:45 pm
Fórum: VBA Básico
Tópico: COPIAR E COLAR ULTIMA LINHA [RESOLVIDO]
Respostas: 2
Exibições: 1554

Re: COPIAR E COLAR ULTIMA LINHA

Tenta da seguinte maneira: Dim uLinhaA as long Dim uLinhaC as long uLinhaA = cells(rows.count, "A").end(xlup).row uLinhaD = cells(rows.count, "D").end(xlup).row + 1 Range("A" & uLinhaA & ":C" & uLinhaA ).copy Range("D" & uLinhaD).select Activecell.paste Qualquer erro aqui foi por esta escrevendo do ...