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

Pesquisa resultou em 101 ocorrências

por JValq
Qui Set 20, 2012 9:24 am
Fórum: VBA Básico
Tópico: Encerrar macro Agendada
Respostas: 1
Exibições: 2369

Re: Encerrar macro Agendada

Bom dia, A minha sugestão é criar uma variável "Parar" do tipo "boolean" para controlar quando a macro deve ser executada ou não. Quando executar a rotina "TelaCheia" a variável será "False" o que significa que a execução deve ocorrer normalmente. No evento &q...
por JValq
Qui Set 20, 2012 9:11 am
Fórum: VBA Básico
Tópico: Excel inverte a data ao gravar da TextBox - Resolvido
Respostas: 10
Exibições: 11481

Re: Excel inverte a data ao gravar da TextBox - Reabrindo

Bom dia, Veja se, com esta alteração, funciona: If txtData.Value <> "" Then While Not IsDate(txtData.Value) txtData.Value = InputBox("Insira uma data válida!") Wend .Cells(indice, colData).Value = CDate(txtData.Value) Else .Cells(indice, colData).Value = txtData.Value End If Abraço
por JValq
Qui Ago 16, 2012 10:07 am
Fórum: VBA Básico
Tópico: Ajuda select case ou if...procv com mais de uma referência
Respostas: 3
Exibições: 2888

Re: Ajuda select case ou if...procv com mais de uma referênc

Boa tarde, Veja se atende: Sub PC() Sheets("plan1").Select 'Define de Sheets Set site1 = Sheets("plan1") Set site2 = Sheets("plan2") 'Limite de busca Frow1 = site1.Range("B65536").End(xlUp).Row Frow2 = site2.Range("k65536").End(xlUp).Row i = 4 Do Whi...
por JValq
Seg Jul 23, 2012 12:52 pm
Fórum: VBA Básico
Tópico: Otimização de Código - Copiar de varias plan.[RESOLVIDO]
Respostas: 5
Exibições: 3506

Re: OTIMIZAÇÂO de CODiGO - Copiar de varias planilhas para u

Boa tarde, Veja se atende: Sub Carga() Dim i As Long Dim Caminho As String Dim Pl As Worksheet Application.ScreenUpdating = False On Error GoTo ERRO Caminho = "P:\MODELO PCP FABRICA\" For i = 1 To 53 Workbooks.Open Caminho & "PROG_" & Format(i, "00") & "...
por JValq
Qui Jun 28, 2012 7:10 pm
Fórum: VBA Básico
Tópico: Selecionar células preenchidas sem pular vazias (RESOLVIDO)
Respostas: 4
Exibições: 11839

Re: Selecionar células até a ultima preenchida sem pular vaz

Boa noite, Pelo que entendi, o seu código pode ser alterado para ficar assim: Sub Selecionar() Dim Intervalo As Range Set Intervalo = Range("B8:C" & [B8:C5000].SpecialCells(xlCellTypeLastCell).Row) Intervalo.Select Selection.Copy End Sub Eu utilizaria o mesmo código de forma mais "...
por JValq
Qua Jun 06, 2012 12:33 am
Fórum: VBA Básico
Tópico: Argumentos em Sub procedimento
Respostas: 4
Exibições: 2884

Re: Argumentos em Sub procedimento

Boa noite, Acredito que a mensagem do JoseA resolve o seu problema, porém gostaria de dizer que, até onde eu saiba, um procedimento com argumentos, para ser executado, tem que ser chamado por outro. Além disso, sugiro a utilização do argumento default para que o valor da variável "Teste" s...
por JValq
Qua Jun 06, 2012 12:23 am
Fórum: VBA Básico
Tópico: Fechar pastas de arquivos com botão em VBA
Respostas: 2
Exibições: 2409

Re: Fechar pastas de arquivos com botão em VBA

Boa noite, Veja se estes exemplos ajudam: Sub Fechar() 'Fecha o arquivo "Pasta1" sem salvar Workbooks("Pasta1.xlsx").Close SaveChanges:=False End Sub Sub Fechar() 'Fecha a pasta ativa salvando as alterações ActiveWorkbook.Close SaveChanges:=True End Sub Abraço
por JValq
Qui Abr 05, 2012 3:16 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]Excel trava ao executar macro
Respostas: 12
Exibições: 20556

Re: [RESOLVIDO]Excel trava ao executar macro

Tomás, Apesar de funcionar, acredito que a melhor utilização seja com um gatilho externo e com a utilização de uma variável booleana para poder parar a execução. Usando da maneira que coloquei, fica ruim para parar a execução. O que pode ser feito é colocar um "if" para definir uma condiçã...
por JValq
Qua Abr 04, 2012 2:37 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]Excel trava ao executar macro
Respostas: 12
Exibições: 20556

Re: Excel trava ao executar macro

Boa tarde,

Uma possibilidade que, talvez, funcione seria colocar "doevents", no início ou final do ciclo da sua macro.

Abraço
por JValq
Qua Abr 04, 2012 12:22 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]Excel trava ao executar macro
Respostas: 12
Exibições: 20556

Re: Excel trava ao executar macro

Caro Tomás, Uma macro com OnTime não pode chamar a si mesma. Tem que haver um gatilho externo. Desculpe, mas a não ser que eu tenha entendido errado, discordo da sua afirmação. No exemplo abaixo, utilizei "OnTime" sem gatilho externo Sub Teste() [A65536].End(xlUp).Offset(1, 0).Value = Time...