Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I need to evaluate 2 cells while inside an "Private Sub
Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work but I cannot get it to work; I receive a syntax error on the AND(Range... line. Can someone please provide me the proper syntax to evaluate the 2 cells? Here's my code... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" Then And(Range("I3") < "", Range("K4") = "") Then Range("K4") = Range("K3") End If End Sub |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
hi
not sure but i thing you are after this..... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" And _ Range("D1") = "" And _ Range("K1") = "" Then Range("K4") = Range("K3") End If End Sub regards FSt1 "GEdwards" wrote: I need to evaluate 2 cells while inside an "Private Sub Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work but I cannot get it to work; I receive a syntax error on the AND(Range... line. Can someone please provide me the proper syntax to evaluate the 2 cells? Here's my code... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" Then And(Range("I3") < "", Range("K4") = "") Then Range("K4") = Range("K3") End If End Sub |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
No need to check the Sheet name as the code resides Sheet Module;
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("I3") < "" And Range("K4") = "" Then Range("K4") = Range("K3") End If End Sub I also can helping thinking a simple IF Function in K4 will achieve the same. -- Regards Dave Hawley www.ozgrid.com "GEdwards" wrote in message ... I need to evaluate 2 cells while inside an "Private Sub Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work but I cannot get it to work; I receive a syntax error on the AND(Range... line. Can someone please provide me the proper syntax to evaluate the 2 cells? Here's my code... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" Then And(Range("I3") < "", Range("K4") = "") Then Range("K4") = Range("K3") End If End Sub |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks FSt1 this works great.
"FSt1" wrote: hi not sure but i thing you are after this..... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" And _ Range("D1") = "" And _ Range("K1") = "" Then Range("K4") = Range("K3") End If End Sub regards FSt1 "GEdwards" wrote: I need to evaluate 2 cells while inside an "Private Sub Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work but I cannot get it to work; I receive a syntax error on the AND(Range... line. Can someone please provide me the proper syntax to evaluate the 2 cells? Here's my code... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" Then And(Range("I3") < "", Range("K4") = "") Then Range("K4") = Range("K3") End If End Sub |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Dave,
Thanks for the info to NOT check the sheet name. "ozgrid.com" wrote: No need to check the Sheet name as the code resides Sheet Module; Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("I3") < "" And Range("K4") = "" Then Range("K4") = Range("K3") End If End Sub I also can helping thinking a simple IF Function in K4 will achieve the same. -- Regards Dave Hawley www.ozgrid.com "GEdwards" wrote in message ... I need to evaluate 2 cells while inside an "Private Sub Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work but I cannot get it to work; I receive a syntax error on the AND(Range... line. Can someone please provide me the proper syntax to evaluate the 2 cells? Here's my code... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name = "Sheet1" Then And(Range("I3") < "", Range("K4") = "") Then Range("K4") = Range("K3") End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
correct syntax for nesting "if", "and", and "vlookup"....if possib | Excel Worksheet Functions | |||
syntax for "IF" commend to check for multiple empty cells bf comma | Excel Worksheet Functions | |||
=EVALUATE("{ to work in a range of cells | Excel Worksheet Functions | |||
Syntax to "OR" 3 "ISERROR" conditions | Excel Worksheet Functions | |||
what is syntax for if(between range of dates,"Q1","Q2")? | Excel Worksheet Functions |