Experimente alterar esta linha para :
Código: Selecionar todos
For Each lblCtl In .Controls
If TypeName(lblCtl) = "Label" And Left(lblCtl.Name,7)="lblTemp"Then .Controls.Remove (lblCtl.Name)
Next
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.
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 801 ocorrências
- Qui Jul 23, 2020 5:00 pm
- Fórum: VBA Básico
- Tópico: Cria labels a partir de array dinâmico
- Respostas: 3
- Exibições: 1483
Re: Cria labels a partir de array dinâmico
Adonias,
Experimente alterar esta linha para :
Experimente alterar esta linha para :
- Qua Jul 22, 2020 10:14 pm
- Fórum: VBA Básico
- Tópico: Cria labels a partir de array dinâmico
- Respostas: 3
- Exibições: 1483
Re: Cria labels a partir de array dinâmico
Adonias,
Veja se a opção adotada, atende sua necessidade.
Veja se a opção adotada, atende sua necessidade.
- Qui Jun 04, 2020 3:43 am
- Fórum: VBA Básico
- Tópico: soma e subtração em textbox [RESOLVIDO]
- Respostas: 4
- Exibições: 3756
Re: soma e subtração em textbox
Wagner,
Estude o modelo em anexo e veja se o mesmo atende sua necessidade.
Como não disponibilizou um modelo contendo dados ficticios, elaborei um que, acredito eu, possa ajudar.
Adapte o mesmo conforme seu cenário.
Estude o modelo em anexo e veja se o mesmo atende sua necessidade.
Como não disponibilizou um modelo contendo dados ficticios, elaborei um que, acredito eu, possa ajudar.
Adapte o mesmo conforme seu cenário.
- Sex Mai 01, 2020 10:24 pm
- Fórum: Excel + Access
- Tópico: Ultimo Registro [Resolvido]
- Respostas: 2
- Exibições: 1230
Re: Ultimo Registro
AVGSantos, Já experimentou utilizar o que se segue abaixo: Sub UltimoCadastro() Dim proximoID As String ConectDB rs.Open "select *from Tab_Vendas ", db, 3, 3 While not rs.EOF proximoID = rs.Field(0).Value rs.MoveNext Wend Me.CodigoVendas.Caption = proximoID + 1 FechaDB End Sub Acredito que exista um...
- Ter Abr 21, 2020 6:31 pm
- Fórum: VBA Básico
- Tópico: Integração Listbox e Userform (RESOLVIDO)
- Respostas: 6
- Exibições: 9237
Re: Integração Listbox e Userform
july_onda,
Veja se as alterações feitas, se aproximam da sua necessidade.
Veja se as alterações feitas, se aproximam da sua necessidade.
- Dom Mar 29, 2020 6:19 pm
- Fórum: VBA Básico
- Tópico: inserir dados em células em sequencia, e limitar a quantidade de linhas[RESOLVIDO]
- Respostas: 2
- Exibições: 5510
Re: inserir dados em células em sequencia, e limitar a quantidade de linhas
kikoehu,
Veja se o modelo em anexo atende sua necessidade.
Aguardo retorno.
Veja se o modelo em anexo atende sua necessidade.
Aguardo retorno.
- Ter Mar 17, 2020 6:16 pm
- Fórum: VBA Básico
- Tópico: Informações Selecionadas do Combobox para listbox
- Respostas: 1
- Exibições: 2207
Re: Informações Selecionadas do Combobox para listbox
Davi,
Veja se o modelo (bem simplificado) te auxilia á entender como funciona (apenas uma das diversas maneiras existentes) este processo.
Veja se o modelo (bem simplificado) te auxilia á entender como funciona (apenas uma das diversas maneiras existentes) este processo.
- Ter Mar 17, 2020 4:50 pm
- Fórum: VBA Básico
- Tópico: Carregar dados em formulário [RESOLVIDO]
- Respostas: 3
- Exibições: 2735
Re: Carregar dados em formulário
july_onda,
Veja se as alterações feitas no seu modelo, atendem sua necessidade.
Estude as rotinas existentes nos módulos e adapte-as conforme sua necessidade.
Veja se as alterações feitas no seu modelo, atendem sua necessidade.
Estude as rotinas existentes nos módulos e adapte-as conforme sua necessidade.
- Sáb Mar 14, 2020 3:00 am
- Fórum: VBA Básico
- Tópico: pesquisar,copiar e colar partes de texto com vba
- Respostas: 5
- Exibições: 4855
Re: pesquisar,copiar e colar partes de texto com vba
zen, Experimentou usar a função Split? Veja abaixo, se a rotina atende sua necessidade. Sub extrairPedido() Dim planDados As Worksheet Set planDados = ThisWorkbook.Sheets(1) Dim linhaAtual As Long, linhaFinal As Long With planDados linhaAtual = 1 linhaFinal = .Cells(Rows.Count, 1).End(xlUp).Row Whil...
- Sex Fev 28, 2020 4:56 pm
- Fórum: VBA Básico
- Tópico: Impedir dados duplicados com critério
- Respostas: 4
- Exibições: 1715
Re: Impedir dados duplicados com critério
Delzor, Analisando seu modelo, acredito que a informação vital para que a validação dos dados funcione a contento, é o local da obra. Experimente esta informação em ambas Functions que validam os dados, exemplo : A function que valida a PEP : Private Function VerificarPEP(nomePEP As String, localOBR...
