Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 26 ocorrências
- Sex Mai 31, 2013 3:18 pm
- Fórum: VBA Básico
- Tópico: Preencher Textbox com conteudo de TXT definido por um Combob
- Respostas: 1
- Exibições: 2019
Preencher Textbox com conteudo de TXT definido por um Combob
Olá, boa tarde! Preciso de uma ajuda para resolver meu problema! É o seguinte, tenho um Form com 1 Combobox e 1 Textbox. Preciso que quando escolher um valor no Combobox, o conteúdo de um TXT seja carregado no Textbox. Exemplo: Se eu escolher "Texto1" no Combobox, o conteúdo do TXT "T...
- Ter Out 30, 2012 3:29 pm
- Fórum: VBA Básico
- Tópico: Quem me pode ajudar data inverte o que estou a fazer mal
- Respostas: 7
- Exibições: 4984
Re: Quem me pode ajudar data inverte o que estou a fazer mal
Olá, boa tarde!
Formata a coluna "D" da planilha "DADOS" como texto.
Abraço.....
Formata a coluna "D" da planilha "DADOS" como texto.
Abraço.....
- Sex Out 26, 2012 9:31 pm
- Fórum: VBA Básico
- Tópico: Alterar valor já existente
- Respostas: 8
- Exibições: 4925
Re: Alterar valor já existente
Olá, boa noite Troque o código do CmdAlterar por este: Private Sub CmdAlterar_Click() Dim c As Variant If TxtNome = "" Then MsgBox "TxtNome está vazio", vbCritical, "Vazio" Else With Worksheets("DADOS").Range("F:F") Set c = .Find(TxtNome.Value) If c ...
- Sex Out 26, 2012 7:39 pm
- Fórum: VBA Básico
- Tópico: Alterar valor já existente
- Respostas: 8
- Exibições: 4925
Re: Alterar valor já existente
Olá, boa noite! Troque seu código por este: Private Sub CmdAlterar_Click() If TxtDataEntrada <> "" Then With WorkSheets("DADOS").Range("E:E") Set y =.Find(TxtDataEntrada, LOOKAT:=xlWhole) If y Is Nothing Then MsgBox "Não Encontrado!", vbInformation, "ERRO...
- Sex Out 26, 2012 7:28 pm
- Fórum: VBA Básico
- Tópico: Somar Colunas ao Iniciar [RESOLVIDO]
- Respostas: 18
- Exibições: 10869
Re: Somar Colunas ao Iniciar
Olá Ricardo, boa noite! Analisei melhor o código e constatei que o que está dando errado é que a cada rotina, o código seleciona uma célula abaixo da ativa! Portanto, remova todas as linhas do código, onde tem : ActiveCell.Offset(1, 0).Select Adicionando apenas no final, entre estas duas linhas de c...
- Sex Out 26, 2012 9:02 am
- Fórum: VBA Básico
- Tópico: Alterar valor já existente
- Respostas: 8
- Exibições: 4925
Re: Alterar valor já existente
Olá, bom dia!
Creio que o que está alterando todos os dados é o uso do "For", pois com ele está fazendo um Loop em toda a coluna "A" e alterando todas as linhas!
Experimente usar o código sem o "For Next".
Abraço....
Creio que o que está alterando todos os dados é o uso do "For", pois com ele está fazendo um Loop em toda a coluna "A" e alterando todas as linhas!
Experimente usar o código sem o "For Next".
Abraço....
- Sex Out 26, 2012 6:47 am
- Fórum: VBA Básico
- Tópico: fechar uma planilha aberta [Resolvido]
- Respostas: 2
- Exibições: 4668
Re: fechar uma planilha aberta
Olá, bom dia!
Insira no final do seu código:
Abraço....
Insira no final do seu código:
Código: Selecionar todos
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
- Ter Out 23, 2012 7:13 pm
- Fórum: VBA Básico
- Tópico: Somar Colunas ao Iniciar [RESOLVIDO]
- Respostas: 18
- Exibições: 10869
Re: Somar Colunas ao Iniciar
Olá Ricardo. Troque seu código por este: Private Sub UserForm_Initialize() Dim lFrmHdl As Long, iCount As Integer lFrmHdl = FindWindowA(vbNullString, Me.Caption) If lFrmHdl <> 0 Then For iCount = 0 To 1 RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION Next iCount End If frmHdl = FindWindow...
- Ter Out 23, 2012 6:52 pm
- Fórum: VBA Básico
- Tópico: Formulário de Senha com Problemas [RESOLVIDO]
- Respostas: 3
- Exibições: 2912
Re: Formulário de Senha com Problemas
Olá Ricardo. No UserForm2, no evento click do CommandButton1, troque o código por este: Private Sub CommandButton1_Click() If TextBox1.Value = TextBox2.Value Then ThisWorkbook.Worksheets("Blank").Activate Range("A1").Select TextBox2.Value = ActiveCell.Value ThisWorkbook.Worksheet...
- Seg Out 22, 2012 2:44 pm
- Fórum: VBA Básico
- Tópico: Simplificar macro? < Resolvido >
- Respostas: 4
- Exibições: 3511
Re: Simplificar macro?
olá Vinicius E Vega.
Obrigado pela atenção!
Consegui simplificar com o seguinte código:
Abraço....
Obrigado pela atenção!
Consegui simplificar com o seguinte código:
Código: Selecionar todos
Dim I As Integer
For I = 0 To 13
Me.Controls("TextBox" & (I + 17)).Value = ActiveCell.Offset(I, 1).Value
Next I