| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
program activation
this program currently runs when the user is working
anywhere on the spreadsheet, but i only want the program to run if the user enters something in range g251. suggestions? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(Range("h251")) 10 Then Range("g251:h251").Borders(xlEdgeLeft).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeTop).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeBottom).Weight = xlMedium: Range("g251").Interior.ColorIndex = 6 Else Range("g251").Interior.ColorIndex = 0: Range ("g251").Borders(xlEdgeLeft).LineStyle = xlNone: Range ("g251").Borders(xlEdgeTop).LineStyle = xlNone: Range ("g251").Borders(xlEdgeBottom).LineStyle = xlNone End If End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
program activation
why not a worksheet_change instead
if target.address<"$G$251" then exit sub "Lawson" wrote in message ... this program currently runs when the user is working anywhere on the spreadsheet, but i only want the program to run if the user enters something in range g251. suggestions? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(Range("h251")) 10 Then Range("g251:h251").Borders(xlEdgeLeft).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeTop).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeBottom).Weight = xlMedium: Range("g251").Interior.ColorIndex = 6 Else Range("g251").Interior.ColorIndex = 0: Range ("g251").Borders(xlEdgeLeft).LineStyle = xlNone: Range ("g251").Borders(xlEdgeTop).LineStyle = xlNone: Range ("g251").Borders(xlEdgeBottom).LineStyle = xlNone End If End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
program activation
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$251" Then If Len(Range("h251")) 10 Then Range("g251:h251").Borders(xlEdgeLeft).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeTop).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeBottom).Weight = xlMedium: Range("g251").Interior.ColorIndex = 6 Else Range("g251").Interior.ColorIndex = 0: Range ("g251").Borders(xlEdgeLeft).LineStyle = xlNone: Range ("g251").Borders(xlEdgeTop).LineStyle = xlNone: Range ("g251").Borders(xlEdgeBottom).LineStyle = xlNone End If End If End Sub "Lawson" wrote in message ... this program currently runs when the user is working anywhere on the spreadsheet, but i only want the program to run if the user enters something in range g251. suggestions? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(Range("h251")) 10 Then Range("g251:h251").Borders(xlEdgeLeft).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeTop).Weight = xlMedium: Range("g251:h251").Borders(xlEdgeBottom).Weight = xlMedium: Range("g251").Interior.ColorIndex = 6 Else Range("g251").Interior.ColorIndex = 0: Range ("g251").Borders(xlEdgeLeft).LineStyle = xlNone: Range ("g251").Borders(xlEdgeTop).LineStyle = xlNone: Range ("g251").Borders(xlEdgeBottom).LineStyle = xlNone End If End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| activation key | Excel Discussion (Misc queries) | |||
| Activation Request | Excel Discussion (Misc queries) | |||
| Sheet activation | Excel Discussion (Misc queries) | |||
| Ctl-X activation of macros | Excel Programming | |||
| Excel macro activation. | Excel Programming | |||
Linear Mode
