Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
Got this to work but it wont let me copy and paste rows or coumns need to
exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
I'm not sure anybody will understand what you're asking for.
- Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "lost in Chicago" wrote in message ... Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
Simple. Target can be multiple cells when you copy a range of data like rows
or columns.. You need to have a for loop to look at every cell. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 next cell End Sub "lost in Chicago" wrote: Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
didnt work Joel would like to limit the action to column 6 when selected the
color and font change but change back when unselected only in column 6 and it must let me copy and paste the rows "Joel" wrote: Simple. Target can be multiple cells when you copy a range of data like rows or columns.. You need to have a for loop to look at every cell. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 next cell End Sub "lost in Chicago" wrote: Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
Did it not run, or did it produce an error? To limit the code to column 6
Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target if cell.column = 6 then cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 end if next cell End Sub "lost in Chicago" wrote: didnt work Joel would like to limit the action to column 6 when selected the color and font change but change back when unselected only in column 6 and it must let me copy and paste the rows "Joel" wrote: Simple. Target can be multiple cells when you copy a range of data like rows or columns.. You need to have a for loop to look at every cell. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 next cell End Sub "lost in Chicago" wrote: Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
Joel, ur suggest would not return to normal font and color. I did figure it
out. This is what I used and it does allow me now to copy and paste. Thanks for your help. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 6 Then Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End If End Sub "Joel" wrote: Did it not run, or did it produce an error? To limit the code to column 6 Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target if cell.column = 6 then cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 end if next cell End Sub "lost in Chicago" wrote: didnt work Joel would like to limit the action to column 6 when selected the color and font change but change back when unselected only in column 6 and it must let me copy and paste the rows "Joel" wrote: Simple. Target can be multiple cells when you copy a range of data like rows or columns.. You need to have a for loop to look at every cell. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 next cell End Sub "lost in Chicago" wrote: Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
genius wanted VBS
I would still keep the for loop. If you copy and paste cells then the
formating will only occur in the first cell of the copied region. i used the ELSE to cover the area not in column 6. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in target If cell.Column = 6 Then cell.Font.Size = 14 cell.Interior.ColorIndex = 24 else Cell.Font.Size = 10 Cell.Interior.ColorIndex = 0 End If next cell End Sub "lost in Chicago" wrote: Joel, ur suggest would not return to normal font and color. I did figure it out. This is what I used and it does allow me now to copy and paste. Thanks for your help. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 6 Then Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End If End Sub "Joel" wrote: Did it not run, or did it produce an error? To limit the code to column 6 Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target if cell.column = 6 then cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 end if next cell End Sub "lost in Chicago" wrote: didnt work Joel would like to limit the action to column 6 when selected the color and font change but change back when unselected only in column 6 and it must let me copy and paste the rows "Joel" wrote: Simple. Target can be multiple cells when you copy a range of data like rows or columns.. You need to have a for loop to look at every cell. Private Sub Worksheet_SelectionChange(ByVal Target As Range) for each cell in Target cell.Font.Size = 10 cell.Interior.ColorIndex = 0 cell.Font.Size = 14 cell.Interior.ColorIndex = 24 next cell End Sub "lost in Chicago" wrote: Got this to work but it wont let me copy and paste rows or coumns need to exclude then from the VBS any ideas? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.Size = 10 Cells.Interior.ColorIndex = 0 Target.Font.Size = 14 Target.Interior.ColorIndex = 24 End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
The team who designed Excel insert cut cells was a genius | Excel Worksheet Functions | |||
Question for all the excel Genius | Excel Discussion (Misc queries) | |||
Excel Genius Required! | Excel Discussion (Misc queries) | |||
Find and match totals Genius Req. this should be easier to read | Excel Worksheet Functions | |||
Find and match totals Genius Req. | Excel Worksheet Functions |