Boa tarde.
Eu consegui resolver, mas não da maneira que postei (Executar macro se valor da célula for > que zero).
Primeiro achei esse código aqui no Planilhando mesmo, que executa a Macro03 a cada alteração realizada na célula T4.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$4" Then
Call Macro03
Exit Sub
End If
End Sub
Mas ai surgiu outro problema, o excel não parava nunca, pois sempre a Macro03 altera o valor da célula T4, e gravei na macro a ferramenta padrão de Localizar do Excel, e quando o valor da T4 era zero, dava erro na macro.
Então me lembrei de uma macro para localizar que se não encontrasse o valor procurado finaliza a macro sem nenhuma mensagem de erro.
Me desculpem se não podia postar, mas não achei nada nas regras referente a isto (De postar links), usei a macro do link http://www.macoratti.net/12/09/vba_fxls1.htm .
Sub Botão4_Clique()
Dim EncontraString As String
Dim Intervalo As Range
EncontraString = InputBox("Informe o valor a procurar")
If Trim(EncontraString) <> "" Then
With Sheets("Plan1").Range("B:C")
Set Intervalo = .Find(What:=EncontraString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Intervalo Is Nothing Then
Application.Goto Intervalo, True
Else
MsgBox "Não Localizado"
End If
End With
End If
End Sub
Fiz algumas alterações e deu certo.
Na macro eu coloco na coluna P uma fórmula que se o valor da T4 for >0 ele traz em uma célula XXX, então uso a macro de procurar se achar executa a macro Macro03 se não finaliza a Macro.
Conforme orientação do Moderador Patropi deixo o exemplo em anexo para futuras consultas, já vi pessoas pesquisando sobre planilhas para fazer calculo de custo pelo método PEPS, inclusive eu já procurei.
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 06/08/2015 10:44 am