Worksheet_Change slow
 

I am using the Worksheet_Change event to trigger a macro to run which
performs a calculation. The calculation of the macro performs immediately,
but it takes about 10 seconds before anything else can be typed on the sheet.

Worksheet_Change slow
 

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on the
sheet.

Worksheet_Change slow
 

I have several ammortization schedules in a workbook, and I had macros that
will put the current balance in a cell at the top after I place an x by the
payment line....the current balances are linked to a summary sheet. When I
place the x by the payment, it will run the macro instantly, byt then it
takes up to 15 seconds before I can do anything with the worksheet again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on the
sheet.

Worksheet_Change slow
 

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had macros
that
will put the current balance in a cell at the top after I place an x by
the
payment line....the current balances are linked to a summary sheet. When
I
place the x by the payment, it will run the macro instantly, byt then it
takes up to 15 seconds before I can do anything with the worksheet again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on the
sheet.

Worksheet_Change slow
 

Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value = curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had macros
that
will put the current balance in a cell at the top after I place an x by
the
payment line....the current balances are linked to a summary sheet. When
I
place the x by the payment, it will run the macro instantly, byt then it
takes up to 15 seconds before I can do anything with the worksheet again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on the
sheet.

Worksheet_Change slow
 

Probably two problems,

1) the change event is cascading more changes if to the same sheet

2) many calculations firing off.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call CBMacro
ws_exit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value = curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had macros
that
will put the current balance in a cell at the top after I place an x
by
the
payment line....the current balances are linked to a summary sheet.
When
I
place the x by the payment, it will run the macro instantly, byt then
it
takes up to 15 seconds before I can do anything with the worksheet
again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run
which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on
the
sheet.

Worksheet_Change slow
 

It works GREAT now!! Thank you so much for the help.


"Bob Phillips" wrote:

Probably two problems,

1) the change event is cascading more changes if to the same sheet

2) many calculations firing off.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call CBMacro
ws_exit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value = curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had macros
that
will put the current balance in a cell at the top after I place an x
by
the
payment line....the current balances are linked to a summary sheet.
When
I
place the x by the payment, it will run the macro instantly, byt then
it
takes up to 15 seconds before I can do anything with the worksheet
again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to run
which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be typed on
the
sheet.

Worksheet_Change slow
 

How quick is it now?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
It works GREAT now!! Thank you so much for the help.


"Bob Phillips" wrote:

Probably two problems,

1) the change event is cascading more changes if to the same sheet

2) many calculations firing off.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call CBMacro
ws_exit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value =
curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had
macros
that
will put the current balance in a cell at the top after I place an
x
by
the
payment line....the current balances are linked to a summary
sheet.
When
I
place the x by the payment, it will run the macro instantly, byt
then
it
takes up to 15 seconds before I can do anything with the worksheet
again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to
run
which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be
typed on
the
sheet.

Worksheet_Change slow
 

Instant.......when I type an entry, the screen flickers and it is done. Can
you explain what the code you gave me does?

Thanks again.

"Bob Phillips" wrote:

How quick is it now?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
It works GREAT now!! Thank you so much for the help.


"Bob Phillips" wrote:

Probably two problems,

1) the change event is cascading more changes if to the same sheet

2) many calculations firing off.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call CBMacro
ws_exit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
Ok, sorry, I misunderstood....

Here is the change event code:

Private Sub Worksheet_Change(ByVal Target As Range)

CBMacro

End Sub

Here is the code for CBMacro:

For Counter = 121 To 18 Step -1
Set curCell = Worksheets("sheet1").Cells(Counter, 11)
If curCell.Value = "" Then
GoTo Counter
Else: Worksheets("sheet1").Range("H12").Value =
curCell.Offset(0, -2)
Exit Sub
End If


Counter: Next Counter
End Sub

"Bob Phillips" wrote:

I meant, the change event code, best to show it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"BRFx2" wrote in message
...
I have several ammortization schedules in a workbook, and I had
macros
that
will put the current balance in a cell at the top after I place an
x
by
the
payment line....the current balances are linked to a summary
sheet.
When
I
place the x by the payment, it will run the macro instantly, byt
then
it
takes up to 15 seconds before I can do anything with the worksheet
again.

"Bob Phillips" wrote:

What does it do?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"BRFx2" wrote in message
...
I am using the Worksheet_Change event to trigger a macro to
run
which
performs a calculation. The calculation of the macro performs
immediately,
but it takes about 10 seconds before anything else can be
typed on
the
sheet.