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

Pesquisa resultou em 1561 ocorrências

por Mauro Coutinho
Sex Set 02, 2016 10:47 pm
Fórum: VBA Básico
Tópico: VBa - Procurar sequencia de Numeros
Respostas: 2
Exibições: 3206

Re: VBa - Procurar sequencia de Numeros

Você pode fazer isto sem macros, com a formatação condicional, de uma olhada se ajuda.

Conferir e destacar numeros
ConferirNumeros.zip
(14.85 KiB) Baixado 418 vezes
por Mauro Coutinho
Qua Ago 31, 2016 2:32 pm
Fórum: VBA Básico
Tópico: Carregar textbox ao inicializar[RESOLVIDO]
Respostas: 3
Exibições: 3462

Re: Carregar textbox ao inicializar

Luciano, como eu disse antes a versao 2007 que uso aqui no serviço deve ser diferente pois da erro e não aparecem os controles ListView e não tenho como instalar bibliotecas que o setor de TI não permite. Mas quanto ao " erro de tempo de execução 9, subcrito fora do intervalo " significa q...
por Mauro Coutinho
Ter Ago 30, 2016 4:37 pm
Fórum: VBA Básico
Tópico: Ajuda nesta planilha( Resolvido)
Respostas: 2
Exibições: 2653

Re: Ajuda nesta planilha

Pasedo, evite usar Titulos como "Ajuda nesta Planilha", veja nas regras que o titulo tem que estar o mais proximo do que precisa. Fiz uns ajustes nas rotina e veja se é isto, pois você diz das 6:00 as 22:00 de meia em meia hora mas seu modelo temos os demais de uma em uma hora, mas é só aj...
por Mauro Coutinho
Ter Ago 30, 2016 3:57 pm
Fórum: VBA Básico
Tópico: Carregar textbox ao inicializar[RESOLVIDO]
Respostas: 3
Exibições: 3462

Re: Carregar textbox ao inicializar

Não vou entrar em questão referente a aalguns erros que encontrei, mas acredito ser devido às versões e controles que não carregou qdo executei, mas para alimentar os textbox, você só tem de seguir o mesmo raciocinio que utiliza para somar o Total a Pagar, sendo assim faça o seguinte : Adicione nova...
por Mauro Coutinho
Ter Ago 30, 2016 1:33 pm
Fórum: VBA Básico
Tópico: Mudança de valor em qualquer célula da Coluna A
Respostas: 12
Exibições: 7619

Re: Mudança de valor em qualquer célula da Coluna A

tópico RESOLVIDO. Muito obrigado sr. Mauro, Fechou certinho, éh isso mesmo que eu buscava ! mais uma vez, Parabéns pelo seu conhecimento ! Mauro Coutinho São José dos Pinhais-Pr Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela . No canto superior.
por Mauro Coutinho
Ter Ago 30, 2016 8:29 am
Fórum: VBA Básico
Tópico: Mudança de valor em qualquer célula da Coluna A
Respostas: 12
Exibições: 7619

Re: Mudança de valor em qualquer célula da Coluna A

Troque a rotina pela a abaixo e veja se é isto. Uma obs, se o Valor digitado for o mesmo que já estava, por padrão não é feito recalculo, então a data e horário permanecem os que estavam da primeira alteração e/ou digitação. Private Sub Worksheet_Calculate() Dim myRange As Range Dim CellAddr As Stri...
por Mauro Coutinho
Seg Ago 29, 2016 4:48 pm
Fórum: VBA Básico
Tópico: Mudança de valor em qualquer célula da Coluna A
Respostas: 12
Exibições: 7619

Re: Mudança de valor em qualquer célula da Coluna A

Utilizando o Evento Calculate, supondo que na Plan1 coluna A - Range(A2:A10) temos formulas que buscam os Valores na Plan2 Range(C2:C10), ou seja, digite na Plan2 e veja se é isto, lembrando que citou que na Plan1 não teremos digitação, sómente as formulas.

Evento Calculate
Evento calculate.zip
(13.68 KiB) Baixado 347 vezes
por Mauro Coutinho
Seg Ago 29, 2016 1:38 pm
Fórum: VBA Básico
Tópico: Mudança de valor em qualquer célula da Coluna A
Respostas: 12
Exibições: 7619

Re: Mudança de valor em qualquer célula da Coluna A

Como o Reinaldo ja disse, não temos esta opção diretamente, dá para se tentar alguns caminhos, só que tem de se pensar que toda vez que o excel fizer um recalculo vai percorrer todas as celulas com formula e deixar o processamento mais lento, temos como setar no calculate somente uma celula ou deter...
por Mauro Coutinho
Qui Ago 25, 2016 8:19 am
Fórum: VBA Básico
Tópico: Mudança de valor em qualquer célula da Coluna A
Respostas: 12
Exibições: 7619

Re: Mudança de valor em qualquer célula da Coluna A

use: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Not Intersect(Target, Range("A:A")) Is Nothing Then i = Sheets("Plan2").Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets("Plan2").Range("A" & i).Value = Date Sheets("Pl...
por Mauro Coutinho
Qua Ago 24, 2016 7:59 pm
Fórum: VBA Básico
Tópico: Aprimorar código vba : Copiar e Colar
Respostas: 5
Exibições: 4483

Re: Aprimorar código vba : Copiar e Colar

Conforme solicitado em PVT: Agradeço pela Solução apresentada pelo senhor no tópico: viewtopic.php?f=20&t=4763 e aproveito para lhe perguntar se há como "implementar" no código VBA ali apresentado, para Copiar/Colar somente Valores (PasteSpecial Paste:=xlPasteValues ...) O código está ...