Pesquisa resultou em 75 ocorrências

 Voltar para a pesquisa avançada

Re: Ajuste de Códigos

 por Strogonoff ¦  24 Nov 2020 às 14:54 ¦  Fórum: Macros e VBA ¦  Tópico: Ajuste de Códigos ¦  Respostas: 3 ¦  Exibições: 35

O Num lock está desativando por causa do efeito colateral dessa instrução
SendKeys "{End}", False
retire ela.
já havia retirado no CPF da planilha baixada.

Re: Ajuste de Códigos

 por Strogonoff ¦  24 Nov 2020 às 14:49 ¦  Fórum: Macros e VBA ¦  Tópico: Ajuste de Códigos ¦  Respostas: 3 ¦  Exibições: 35

Desconsidere a planilha acima, deixei um bug no cnpj, baixe essa aqui
#desculpa a nossa falha

Re: Ajuste de Códigos

 por Strogonoff ¦  24 Nov 2020 às 14:32 ¦  Fórum: Macros e VBA ¦  Tópico: Ajuste de Códigos ¦  Respostas: 3 ¦  Exibições: 35

Boa tarde!! Antes de tudo Parabéns por montar um sistema tão complexo! estou alterando em partes , e os problemas 1 e 4 já estão solucionados... vai no userform1, e na inicialização já coloquei comentários sobre o que faltou. eu mudei a forma de carregar os ComboBoxes para os Estados e o problema 4 ...

Re: Retornar Nº da linha

 por Strogonoff ¦  24 Nov 2020 às 13:00 ¦  Fórum: Macros e VBA ¦  Tópico: Retornar Nº da linha ¦  Respostas: 3 ¦  Exibições: 55

use a mesma formatação do codigo que passei, trocando o final o Row por column.
Ficando
variavel = range(a linha que deseja).find( a variavel procurada).column..

essa função find é uma mao na roda, não acha?
Abraço

Re: Retornar Nº da lina

 por Strogonoff ¦  19 Nov 2020 às 20:19 ¦  Fórum: Macros e VBA ¦  Tópico: Retornar Nº da linha ¦  Respostas: 3 ¦  Exibições: 55

Boa noite!!!
Tente isso
Dim iVerifLin as Integer
If IsNumeric(Cells(ActiveCell.Row, 2)) Then
N_Reg_Ativo = Cells(ActiveCell.Row, 2).Value
iVerifLin = Range("B:B").find( N_Reg_Ativo).Row
End If

Re: Mudar cor de todos Frames

 por Strogonoff ¦  19 Nov 2020 às 20:12 ¦  Fórum: Macros e VBA ¦  Tópico: Mudar cor de todos Frames ¦  Respostas: 3 ¦  Exibições: 56

Boa noite!! Como havia comentado, para mudar as BackColors terá que ser uma a uma, porém para o código não ficar muito grande, crie uma rotina para fazer essas mudanças e a chame na rotina que precisar fazer a mudança. ficaria algo assim If ( Condição que você precisa) then call ColorirFundo end if ...

Re: enviar Email automaticamente

 por Strogonoff ¦  18 Nov 2020 às 19:53 ¦  Fórum: Macros e VBA ¦  Tópico: enviar Email automaticamente ¦  Respostas: 10 ¦  Exibições: 151

Acabei de observar
dim W as worksheet : set W = (coloque o nome de sua planilha antes do parenteses ou sheets("NomedaPlanilha")

Re: enviar Email automaticamente

 por Strogonoff ¦  18 Nov 2020 às 19:13 ¦  Fórum: Macros e VBA ¦  Tópico: enviar Email automaticamente ¦  Respostas: 10 ¦  Exibições: 151

Você tem o outlook instalado na sua máquina?
Só roda com o outlook.
Manda uma planilha teste para que consiga adaptar o codigo para você

Re: DÚVIDA: Como gerar a data final?

 por Strogonoff ¦  18 Nov 2020 às 19:09 ¦  Fórum: Excel Básico ¦  Tópico: DÚVIDA: Como gerar a data final? ¦  Respostas: 2 ¦  Exibições: 31

Boa noite!
Veja se atende o que você precisa.
Qualquer dúvida estarei a disposição
Abraço

Re: Caixa InputBox, MsgBox e 'janela de verificação imediata'.

 por Strogonoff ¦  17 Nov 2020 às 22:18 ¦  Fórum: Macros e VBA ¦  Tópico: Caixa InputBox, MsgBox e 'janela de verificação imediata'. ¦  Respostas: 4 ¦  Exibições: 83

Não observei que o valor da multa estava em integer, e essa variável somente trabalha com número inteiro
Mude para long ou currency

Re: Desvio condicional múltiplo

 por Strogonoff ¦  17 Nov 2020 às 20:44 ¦  Fórum: Macros e VBA ¦  Tópico: Desvio condicional múltiplo ¦  Respostas: 3 ¦  Exibições: 39

Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. O...

Re: Mudar cor de todos Frames

 por Strogonoff ¦  17 Nov 2020 às 19:53 ¦  Fórum: Macros e VBA ¦  Tópico: Mudar cor de todos Frames ¦  Respostas: 3 ¦  Exibições: 56

Boa noite!!! Sempre que vou manipular algo em VBA, faço primeiro um simulado manualmente para ver se é possível. Os frames, infelizmente tem esse problema, se você programar o background dele, você precisará também fazer com tudo o que está dentro dele a mudança da backgroumd. o que eu faria no seu ...

Re: Retornar último valor de uma coluna

 por Strogonoff ¦  17 Nov 2020 às 19:28 ¦  Fórum: Linguagem DAX/Modelagem ¦  Tópico: Retornar último valor de uma coluna ¦  Respostas: 2 ¦  Exibições: 56

Boa noite!!! Uma das resoluções é em VBA Se a coluna da coluna for fixa, vou supor que é a coluna é S (escolhi aleatoriamente) e a planilha é a planilha1 use o seguinte código Dim iUltLin as Integer : iUltLin = 1 Dim Ws as worksheet : Set WS = Planilha1 While (iUltLin,"S") <> "" iUltLin = iUltLin + ...

Re: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA

 por Strogonoff ¦  17 Nov 2020 às 19:19 ¦  Fórum: Macros e VBA ¦  Tópico: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA ¦  Respostas: 5 ¦  Exibições: 83

Bom dia!!! Antes de tudo, peço desculpas por não conseguir ter entrado semana passado, deu certo as dicas passadas? Parabéns pelo sistema que você está montando. Veja se era isso que você queria... Dica: Eu criaria a nova planilha pelo modelo do carro e placa, pois se o camarada tiver um nome grand...

Re: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA

 por Strogonoff ¦  15 Nov 2020 às 07:31 ¦  Fórum: Macros e VBA ¦  Tópico: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA ¦  Respostas: 5 ¦  Exibições: 83

Desculpe o erro de português... Deram certo as dicas?

Re: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA

 por Strogonoff ¦  15 Nov 2020 às 07:29 ¦  Fórum: Macros e VBA ¦  Tópico: VBA/MACRO QUE CRIE UMA NOVA PLANILHA DE FORMA DINÂMICA ¦  Respostas: 5 ¦  Exibições: 83

Bom dia!!! Antes de tudo, peço desculpas por não conseguir ter entrado semana passado, deu certo as dicas passadas? Parabéns pelo sistema que você está montando. Veja se era isso que você queria... Dica: Eu criaria a nova planilha pelo modelo do carro e placa, pois se o camarada tiver um nome grande...

Re: Caixa InputBox, MsgBox e 'janela de verificação imediata'.

 por Strogonoff ¦  15 Nov 2020 às 06:54 ¦  Fórum: Macros e VBA ¦  Tópico: Caixa InputBox, MsgBox e 'janela de verificação imediata'. ¦  Respostas: 4 ¦  Exibições: 83

Sub CalcMultaAt() Dim curValorDev As Currency Dim curTotalPg As Currency Dim intDiasAt As Integer Dim intMulta As Integer Dim Ws As Worksheet: Set Ws = Planilha1 'curValorDev = 10 curValorDev = InputBox("Digite o valor devido: ") '<=== no inputbox o valor da variável vem antes MsgBox "Valor devido é...

Re: Três mensagens para os dias do mês

 por Strogonoff ¦  15 Nov 2020 às 06:07 ¦  Fórum: Macros e VBA ¦  Tópico: Três mensagens para os dias do mês ¦  Respostas: 2 ¦  Exibições: 51

Geneci
Bom dia!!
Veja se eu entendi direito o que você queria...
Para ficar mais rápido e como você somente queria a fórmula, devolvo somente a aba com a fórmula.
Se eu cometi algum erro em meu entendimento, favor avisar, que refaço a fórmula.
Abraço

Re: enviar Email automaticamente

 por Strogonoff ¦  10 Nov 2020 às 19:36 ¦  Fórum: Macros e VBA ¦  Tópico: enviar Email automaticamente ¦  Respostas: 10 ¦  Exibições: 151

Tenta esse código... precisa ter o outlook instalado Sub EnviarEmailIncidente() Dim OutApplication As Object Dim nEmail As Object Dim W As Worksheet: Set W = Plan5 Dim bUltLin As Byte: bUltLin = 1 While W.Cells(bUltLin, "A") <> "" bUltLin = bUltLin + 1 Wend Set OutApplication = CreateObject("Outlook...

OK.
esse artigo que postei vale e muito sua leitura...
como todo o artigo do Felipe Gualberto.

Bom dia! Estou fazendo um programinha para meu cu[…]

tenplacebo, Bom Dia. poste um modelo para que pos[…]

Ve agora Perc = DIVIDE ( COUNTROWS ( GC ); […]

Ajuste de Códigos

O Num lock está desativando por causa do ef[…]

Retornar Nº da linha

use a mesma formatação do codigo que[…]

Sub ReplicaDadosV2() Dim m As Long, k As Long […]

Bom dia. Alguém teria uma ideia / alternat[…]

ATUALIZAR DINAMICA COM CONDIÇÕES

Alguma solução pessoal?