| Home |
| Search |
| Today's Posts |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet_Calculate
or try it this way: Private Sub Worksheet_Calculate() Dim varData As Variant Dim i As Long varData = Range("B8:F37") For i = LBound(varData) To UBound(varData) If varData(i, 1) = "Cash" Then Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2) _ .Resize(1, UBound(varData, 2)).Value = Application.Index(varData, i, 0) ElseIf varData(i, 1) = "Equity" Then Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp)(2) _ .Resize(1, UBound(varData, 2)).Value = Application.Index(varData, i, 0) End If Next End Sub Workbook_Calculate doesn't work with target. Regards Claus B. -- Thanks Claus, I'll give that a go. Howard |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| worksheet_calculate | Excel Programming | |||
| worksheet_calculate | Excel Programming | |||
| Worksheet_Calculate | Excel Programming | |||
| Worksheet_calculate() | Excel Programming | |||
| worksheet_calculate **help** | Excel Programming | |||
Threaded Mode
