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

Pesquisa resultou em 101 ocorrências

por JValq
Qui Fev 23, 2012 10:22 pm
Fórum: VBA Básico
Tópico: Dúvida em VBA
Respostas: 1
Exibições: 1847

Re: Dúvida em VBA

Boa noite, Veja se este código atende: Sub simula() For i = 1 To 40 FileCopy "D:\usuarios\Daniel\Teste\" & i & ".dat", "D:\usuarios\Daniel\Pasta\" & i & ".dat" Name "D:\usuarios\Daniel\Pasta\" & i & ".dat" As "I...
por JValq
Ter Fev 14, 2012 10:04 pm
Fórum: VBA Básico
Tópico: Executar automaticamente macro ao selecionar célula
Respostas: 1
Exibições: 20189

Re: Executar automaticamente macro ao selecionar célula

Boa noite, Você poderia colocar a chamada à sua macro no evento "Activate" da sua planilha e toda vez que ela for seleciona a macro vai ser executada: Private Sub Worksheet_Activate() macroA End Sub Se faz questão de ser ao clicar numa célula, o código pode ser colocado no evento "Sel...
por JValq
Ter Jan 31, 2012 11:38 am
Fórum: VBA Básico
Tópico: Confirmar janela de atualização de vínculos
Respostas: 5
Exibições: 17374

Re: Confirmar janela de atualização de vínculos

Boa tarde,

A minha sugestão é utilizar "Aplication.DisplayAlerts":

Código: Selecionar todos

Sub Macro()
    Application.DisplayAlerts = False
    
    '
    '
    '
    
    Application.DisplayAlerts = True
End Sub
Desta forma, o Excel não emitirá avisos durante a execução da macro.
Veja se atende.

Abraço
por JValq
Seg Jan 23, 2012 1:32 pm
Fórum: VBA Básico
Tópico: Excel 2007
Respostas: 2
Exibições: 2304

Re: Excel 2007

Boa tarde, Vai depender dos recursos que as suas macros utilizam. Eu, por exemplo, nunca tive problema, pois todas as macros do 2003 rodaram normalmente no 2007/2010. Talvez haja algum recurso que cause problema, mas para ter certeza só testando. Eu acho que há grandes chances de funcionar normalmen...
por JValq
Sex Jan 20, 2012 3:22 pm
Fórum: Geral
Tópico: EXCEL
Respostas: 3
Exibições: 2648

Re: EXCEL

Boa tarde,

Veja se esta fórmula ajuda, supondo que a quantidade presenças esteja em "A1":

=SE(A1/36>=75%;1;SE(A1/36>=35%;0,5;0))

Abraço
por JValq
Qua Jan 18, 2012 7:40 pm
Fórum: Geral
Tópico: Excel
Respostas: 2
Exibições: 3761

Re: Excel

Boa noite, Pelo que entendi, você coloca "1f" se houver 1 falta. Se for isso, sugiro que faça uma fórmula para calcular as presenças (p) e outra para as faltas (f): =SE(DIREITA(A1;1)="p";VALOR(ESQUERDA(A1;NÚM.CARACT(A1)-1));0) =SE(DIREITA(A1;1)="f";VALOR(ESQUERDA(A1;NÚM...
por JValq
Seg Jan 16, 2012 10:35 pm
Fórum: Geral
Tópico: calculo formula local[Resolvido]
Respostas: 2
Exibições: 2156

Re: calculo formula local

Boa noite, Veja se atende: Plan5.Cells(i, 39).FormulaLocal = "=DN" & i & "*DI" & i & "/DO" & i 'empativo" Os parênteses são desnecessários, porém caso queira incluí-los: Plan5.Cells(i, 39).FormulaLocal = "=(DN" & i & "*DI&...
por JValq
Sex Jan 13, 2012 8:38 am
Fórum: Geral
Tópico: Cálculo de Intervalo de Dias/Horas
Respostas: 6
Exibições: 4144

Re: Cálculo de Intervalo de Dias/Horas

Bom dia, Testei o código e funcionou. Criei um formulário com 2 caixas de texto e um botão e utilizei o seguinte código: Private Sub CommandButton1_Click() Dim DataInicial As Date Dim DataFinal As Date DataInicial = TextBox1.Text DataFinal = TextBox2.Text MsgBox Fix(DateDiff("n", DataInici...
por JValq
Qua Jan 11, 2012 5:00 pm
Fórum: Geral
Tópico: Cálculo de Intervalo de Dias/Horas
Respostas: 6
Exibições: 4144

Re: Cálculo de Intervalo de Dias/Horas

Boa tarde,

A minha sugestão é a seguinte:

Código: Selecionar todos

DifHoras = Fix(DateDiff("n", DataInicial, DataFinal) / 60) & ":" & Format(DateDiff("n", DataInicial, DataFinal) Mod 60, "00")
Abraço
por JValq
Sex Jan 06, 2012 5:46 pm
Fórum: VBA Básico
Tópico: Colocar traço com Array
Respostas: 4
Exibições: 3154

Re: Colocar traço com Array

Boa noite,

Então tente assim:

Código: Selecionar todos

TextBox = Replace(testeArray(1) & " - " & testeArray(2) & " - " & testeArray(3), "--", "-")
Abraço