Posted to microsoft.public.excel.programming
|
|
the macro don't execute
Did you right click on the sheet tab and select view code, then place that
code in the resulting module.
Are Events Enabled?
Run code like
sub MakeitRun()
Application.EnableEvents = True
End sub
Your code ran for me.
--
Regards,
Tom Ogilvy
"robson soares" wrote in message
...
it follows below my macro:
Private Sub Worksheet_Calculate()
Dim col1
Dim col2
Dim col3
Dim lin
lin = 13
col1 = 8
col2 = 12
col3 = 13
For lin = 13 To 2057
If Cells(lin, col1) = 1 And Cells(lin, col3) = 0 Then
Cells(lin, col3) = 1
Cells(lin, col2) = Now()
End If
If Cells(lin, col1) = 0 Then
Cells(lin, col3) = 0
Cells(lin, col2) = ""
End If
If Cells(lin, col1 + 1) = 1 And Cells(lin, col3 + 2) = 0 Then
Cells(lin, col3 + 2) = 1
Cells(lin, col2 + 2) = Now()
End If
If Cells(lin, col1 + 1) = 0 Then
Cells(lin, col3 + 2) = 0
Cells(lin, col2 + 2) = ""
End If
If Cells(lin, col1) = 1 And Cells(lin, col1 + 1) = 1 Then
Cells(lin, 11) = Abs(Cells(lin, 14) - Cells(lin, 12))
Else
Cells(lin, 11) = ""
End If
Next
End Sub
"Tom Ogilvy" escreveu:
http://www.cpearson.com/excel/events.htm
for an overview of events at Chip Pearson's site.
Sounds like you want to use the Change event or the Calculate event.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Properly structured and located, these can be useful with the situation
you
describe.
--
Regards,
Tom Ogilvy
"robson soares" <robson wrote in
message
...
I wrote a code of macros in the VBA and it does not execute
automatically
when I give a manual command to it execute, the macro functions
normally
but
it never functions with the update of a cell of excel
|