Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hey Don
Very nice, neat code, although the OP requirement was if A1 has the value of 1 then B1 will have a line. Your code places a line under A1 when the value is 1 instead of B1. Cheers Mick. |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
On Aug 15, 9:43*am, "Vacuum Sealed" wrote:
Hey Don Very nice, neat code, although the OP requirement was if A1 has the value of 1 then B1 will have a line. Your code places a line under A1 when the value is 1 instead of B1. Cheers Mick. Simple change Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Rows(1).Borders(xlEdgeBottom).LineStyle = xlNone Range(Cells(1, 2), Cells(1, Target + 1)) _ ..Borders(xlEdgeBottom).LineStyle = xlContinuous End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Line with length depending on the value of the cell | Charts and Charting in Excel | |||
Line with length depending on the value of the cell | Excel Discussion (Misc queries) | |||
Compute length of a string in points depending on current font | Excel Programming | |||
How to insert line of text on other worksheet depending upon result in a cell? | Excel Discussion (Misc queries) | |||
How to insert line on other worksheet depending upon result in cell? | Excel Discussion (Misc queries) |