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

Pesquisa resultou em 1537 ocorrências

por Reinaldo
Seg Fev 14, 2022 9:08 am
Fórum: VBA Básico
Tópico: TEXTBOX NÃO BUSCA NÚMEROS APENAS TEXTO
Respostas: 1
Exibições: 1331

Re: TEXTBOX NÃO BUSCA NÚMEROS APENAS TEXTO

Por padrão, textbox "considera" seus "valores" como texto. Experimente utilizar as funções de conversão nativas do vba (CDec,Cdbl...) na consulta Seria algo +/- assim: DATAS = Application.WorksheetFunction.VLookup(Cdec(CX_FOGO.Text), Sheets("NOVA RELAÇÃO").Range("A...
por Reinaldo
Sex Jan 21, 2022 11:51 am
Fórum: VBA Básico
Tópico: PROTEGER VARIAS PASTAS - VBA
Respostas: 3
Exibições: 1831

Re: PROTEGER VARIAS PASTAS - VBA

O InputBox, não fornece uma maneira de "capturar" o botão acionado. Uma "alternativa" paliativa [/code]Sub mbc() Dim Nome As String Dim Cpt As Integer Cpt = 1 De: Nome = InputBox("Digite seu NOME:", , "Sua Senha") If Len(Nome) = 0 Then GoTo Cancelado ElseIf No...
por Reinaldo
Qui Jan 13, 2022 12:52 pm
Fórum: Excel + Access
Tópico: Não Permitir Cadastro Duplicado.
Respostas: 4
Exibições: 3148

Re: Não Permitir Cadastro Duplicado.

CROVADOR, o editor vbe está com senha.
Qual o critério para definir duplicidade e em qual tabela
por Reinaldo
Ter Jan 11, 2022 11:53 am
Fórum: Excel + Access
Tópico: Não Permitir Cadastro Duplicado.
Respostas: 4
Exibições: 3148

Re: Não Permitir Cadastro Duplicado.

O Access; por padrão, se as tabelas forem configuradas corretamente; impede a inclusão de duplicidade. Outra maneira e verificar/consultar, antes da inclusão, se o registro existe. Pelo código postado fica difícil, pelo menos para mim; definir a maneira. Se não houver resultado; poste seu modelo, ou...
por Reinaldo
Qua Jan 05, 2022 10:27 am
Fórum: VBA Básico
Tópico: Macro ou Codigo VBA em todas as abas ao mesmo tempo
Respostas: 7
Exibições: 2965

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

algo +/- assim: Sub DeletaDados() Dim varSheet As Worksheet Dim strSheetName As String Dim strSheet As String strSheet = ActiveSheet.Name 'obtem o nome da planilha incial For Each varSheet In Sheets 'inicia loop pelas planilhas da pasta strSheetName = varSheet.Name Sheets(strSheetName).Activate Acti...
por Reinaldo
Ter Jan 04, 2022 11:49 am
Fórum: VBA Básico
Tópico: Macro ou Codigo VBA em todas as abas ao mesmo tempo
Respostas: 7
Exibições: 2965

Re: Macro ou Codigo VBA em todas as abas ao mesmo tempo

Talvez assim Sub DeletaDados() Dim varSheet As Worksheet Dim strSheetName As String Dim strSheet As String strSheet = ActiveSheet.Name 'obtem o nome da planilha incial For Each varSheet In Sheets 'inicia loop pelas planilhas da pasta strSheetName = varSheet.Name Sheets(strSheetName).Activate Range(&...
por Reinaldo
Ter Jan 04, 2022 10:59 am
Fórum: Geral
Tópico: copiar e colar com múltiplos critérios
Respostas: 1
Exibições: 1521

Re: copiar e colar com múltiplos critérios

Ficará mais simples e rápido obter um retorno; se dispuser um modelo (que seja significativo de sua planilha), com dados fictícios se necessário
por Reinaldo
Dom Dez 19, 2021 8:49 am
Fórum: VBA Básico
Tópico: Somar textbox
Respostas: 5
Exibições: 2480

Re: Somar textbox

Complicado somente por descritivo; mas experimente somar na sub montada Public Sub SomaExpense() Dim y As Double y = 0 If Len(UserFormCustomer.txtAmountExpense1.Value) > 0 Then y = y + UserFormCustomer.txtAmountExpense1.Value If Len(UserFormCustomer.txtAmountExpense2.Value) > 0 Then y = y + UserForm...
por Reinaldo
Qui Dez 16, 2021 8:28 am
Fórum: VBA Básico
Tópico: Somar textbox
Respostas: 5
Exibições: 2480

Re: Somar textbox

Veja se o tópico viewtopic.php?f=20&t=7593&p=29217&hilit=soma#p29217 lhe auxilia.
Caso não avance, disponibilize um modelo, que seja significativo de seu projeto; com dados fictícios se necessário.
por Reinaldo
Sáb Dez 11, 2021 10:10 am
Fórum: VBA Básico
Tópico: [RESOLVIDO] Função Índice + Corresp, retornando valor #N/D
Respostas: 2
Exibições: 1800

Re: Função Índice + Corresp, retornando valor #N/D

Estou bastante enferrujado com o uso de formulas mas... A range "informada" no trecho CORRESP não possui (Coluna "M") o valor procurado, motivo do erro, esse valor está na coluna "A" experimente:=> CORRESP($H$7;'Registro Pendencia NC'!$A$6:$A$1048576;0) O indicativo de ...