Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 26 ocorrências

por McJota
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...
por McJota
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.....
por McJota
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 ...
por McJota
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...
por McJota
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...
por McJota
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....
por McJota
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:

Código: Selecionar todos

ActiveWorkbook.Close savechanges:=True
    Application.DisplayAlerts = True
Abraço....
por McJota
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...
por McJota
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...
por McJota
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:

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
Abraço....