macro to run in event of cell value <""
Hi,
cell V3 has following formula: =IF(ISERROR('common warps'!B4)=TRUE,"",'common warps'!B4) In case B4 shows an error like N/A, V3 does not show anything, but in case B4 shows a value e.g.: H12 (In this case H12 is not a cell, it is a value). Is there a possibility to run a certain macro in the event of cell V3 showing a value? regards, Norbert |
macro to run in event of cell value <""
Hi Norbert,
Am Tue, 28 Aug 2012 04:32:56 -0700 (PDT) schrieb Norbert: cell V3 has following formula: =IF(ISERROR('common warps'!B4)=TRUE,"",'common warps'!B4) In case B4 shows an error like N/A, V3 does not show anything, but in case B4 shows a value e.g.: H12 (In this case H12 is not a cell, it is a value). Is there a possibility to run a certain macro in the event of cell V3 showing a value? try in code module of the sheet: Private Sub Worksheet_Calculate() If Len([V3]) 0 Then your code End If End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
macro to run in event of cell value <""
On Tuesday, August 28, 2012 2:13:26 PM UTC+2, Claus Busch wrote:
Hi Norbert, Am Tue, 28 Aug 2012 04:32:56 -0700 (PDT) schrieb Norbert: cell V3 has following formula: =IF(ISERROR('common warps'!B4)=TRUE,"",'common warps'!B4) In case B4 shows an error like N/A, V3 does not show anything, but in case B4 shows a value e.g.: H12 (In this case H12 is not a cell, it is a value). Is there a possibility to run a certain macro in the event of cell V3 showing a value? try in code module of the sheet: Private Sub Worksheet_Calculate() If Len([V3]) 0 Then your code End If End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 Hi Claus, please check my code. I get a run time error '1004': Select method of Range class failed When I debug, it leads me to row 4: Range("A6").Select Private Sub Worksheet_Calculate() If Len([V3]) 0 Then Sheets("warp info").Select Range("A6").Select Selection.EntireRow.Insert Rows("7:7").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A2:I2").Select Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A6").Select Application.CutCopyMode = False Sheets("Planning tickets").Select End If End Sub |
All times are GMT +1. The time now is 11:40 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com