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 1429 ocorrências

por Reinaldo
Ter Jan 26, 2021 9:53 am
Fórum: VBA Básico
Tópico: Pesquisar/Imprimir via Multipage VBA (Resolvido)
Respostas: 6
Exibições: 142

Re: Pesquisar/Imprimir via Multipage VBA

A função aplicarfiltro "espera" como parâmetro um numero inteiro("Function aplicaFiltro(ByVal SecRef As Long )"), já a variável utilizada vSec é uma string/Texto, o que causa esse erro apontado ("tipos incompativeis"); A estrutura da função, pelo apresentado, não utiliza o valor dessa "chamada" assi...
por Reinaldo
Qui Jan 14, 2021 3:46 pm
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 12
Exibições: 485

Re: Não Permitir Gravar Cpf duplicado

Creio eu que a tabela em questão seja a de nome ==> "tbOrç_Detalhe1" Como disse o Webmaster, sua tabela já está "configurada" para não aceitar cpf/cnpj duplicado; e o access controla essa situação de maneira eficiente; assim ao tentar incluir um registro de cliente com esse campo duplicado, irá gera...
por Reinaldo
Qua Jan 13, 2021 10:54 am
Fórum: Excel + Access
Tópico: Não Permitir Gravar Cpf duplicado
Respostas: 12
Exibições: 485

Re: Não Permitir Gravar Cpf duplicado

Em adicional, verifique se a sugestão do Paulinho (PMPOKER) no tópico https://www.tomasvasquez.com.br/forum/v ... =22&t=6427, não lhe auxilia
por Reinaldo
Sex Dez 11, 2020 9:25 am
Fórum: VBA Básico
Tópico: [Resolvido] - Manter CheckBox Flegado Ao Abrir Formulário
Respostas: 5
Exibições: 448

Re: Manter CheckBox Flegado Ao Abrir Formulário

Creio que por default, um checkbox e "carregado" como False; exceto nos casos em que sua propriedade tiver "forçado" como true. No evento de abertura do Form (Initialize ou Activate) pode-se verificar o valor existente na celula e "Flegar" o checkbox de acordo Algo +/- If Range("U4").Value = 1 Then ...
por Reinaldo
Sex Dez 04, 2020 10:52 am
Fórum: VBA Básico
Tópico: Filtro no Listbox com "*"
Respostas: 7
Exibições: 569

Re: Filtro no Listbox com "*"

... não estava digitando com a primeira letra em maiúsculo...
Pode experimentar:
substitua/altere a linha da rotina:

Código: Selecionar todos

Nome = Me.txtnome.Text
If ListBox1.List(Item, 6) Like "*" & Nome & "*" Then
Para:

Código: Selecionar todos

Nome = UCase(Me.txtnome.Text)
If UCase(ListBox1.List(Item, 6)) Like "*" & Nome & "*" Then
por Reinaldo
Qui Dez 03, 2020 7:48 am
Fórum: VBA Básico
Tópico: Filtro no Listbox com "*"
Respostas: 7
Exibições: 569

Re: Filtro no Listbox com "*"

Pelo que pude "ver" o filtro conforme abaixo funciona (retira do listbox itens diferente do pesquisado) Private Sub btnbuscanome_Click() Dim Nome As String Nome = Me.txtnome.Text 'APLICAÇÃO DO FILTRO 'ActiveSheet.Range("$A$1:$CD$1069").AutoFilter Field:=8, Criteria1:="*" & Nome & "*" 'CONDICAO PARA ...
por Reinaldo
Seg Nov 30, 2020 11:14 am
Fórum: VBA Básico
Tópico: Filtro no Listbox com "*"
Respostas: 7
Exibições: 569

Re: Filtro no Listbox com "*"

Assim no escuro, vamos no "achômetro":
altere a linha
If ListBox1.List(item, 6) = nome Then
para
If ListBox1.List(item, 6) like "*" & nome & "*" Then
Se não atender poste um modelo representativo de sua estrutura/dados
por Reinaldo
Seg Nov 16, 2020 4:07 pm
Fórum: VBA Básico
Tópico: [Resolvido] Erro em tempo de execução 381
Respostas: 4
Exibições: 379

Re: Erro em tempo de execução

Talvez assim: Private Sub BtnInserir_Click() Dim iCodigo As String Dim Lin As Integer Dim Qtde As Double For x = 0 To ListBox1.ListCount - 1 'Pego o Código da LisBox iCodigo = ListBox1.List(x, 0) 'Pego a Qtde Qtde = ListBox1.List(x, 1) Lin = 2 'Faz um Loop na Plan Estoque Do While Sheets("ESTOQUE")....
por Reinaldo
Seg Nov 16, 2020 7:54 am
Fórum: Excel + Access
Tópico: ListView 21 colunas Sub ou Function não definida
Respostas: 6
Exibições: 958

Re: ListView 21 colunas Sub ou Function não definida

Jamilson,o ideal e abrir seu próprio tópico, pois apesar de similar (listview com 21 colunas), pelo seu relato trata-se de outro problema; e sem poder analisar seu projeto/planilha fica muito difícil e improvável uma solução
por Reinaldo
Sáb Nov 14, 2020 2:00 pm
Fórum: VBA Básico
Tópico: Pesquisa com datas
Respostas: 5
Exibições: 6002

Re: Pesquisa com datas

...as datas ele elimina... Pelo que vi (ja bom tempo atraz, por sinal uma excelente solução mas que pessoalmente não utilizo, prefiro como propos o colega Mikel recarregar o controle com os dados filtrados ) essa e a "essência" da rotina proposta; ou seja: excluir do listbox ou listiview não record...