Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
worksheet_calculate **help**
I have this code
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) With Sheets("sheet17") x = .Cells(Rows.Count, "a").End(xlUp).Row + 1 If Target.Address = "$B$4" Then .Cells(x, "a") = Target End With End Sub it works with worksheet_change but not worksheet calculate, can someone please tell me where i am going wrong as i havent any idea -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
worksheet_calculate **help**
I don't know if this will do what you want, but this is the equivalen
code. The method does not recognise Target so you will have to use :- Code ------------------- If ActiveCell.Address = "$B$4" Then .Cells(x, "a") = ActiveCell.Value ------------------- -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Locate changed cells with Worksheet_Calculate() | Excel Worksheet Functions | |||
worksheet_calculate code | Excel Discussion (Misc queries) | |||
worksheet_calculate | Excel Discussion (Misc queries) | |||
worksheet_calculate | Excel Discussion (Misc queries) | |||
Infinite loop using Worksheet_Calculate | Excel Discussion (Misc queries) |