Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 101 ocorrências
- 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...
- 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
- 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...
- 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") & "...
- 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 "...
- 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...
- 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
- 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çã...
- 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
Uma possibilidade que, talvez, funcione seria colocar "doevents", no início ou final do ciclo da sua macro.
Abraço
- 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...