Macro To Set Border Line Styles
Jan 26, 2007
I have a range of data (not a named range, just a selection) and I typically want:
- the top 2 rows to have a heavy border on the left, top and right sides with a light line on the bottom.
- On the bottom line, I need a heavy line on the left, bottom and right sides.
- The body in between needs to have heavy lines on the left and right sides with dots for all in between.
The top 2 lines show titles, the bottom line is for totals and the body in between shows the data.
I've made 3 separate macros that do each part but I'm hoping that they can be integrated into one.
View 9 Replies
ADVERTISEMENT
May 20, 2012
(Excel 2003, using Format/Cells)
I have selected a range of multiple rows and columns. I can change the alignment, cell color, where border lines appear, and the color of border lines.
However, I can not change the border line style. No matter what style I select, when drawn on the sheet it apppear as a thin solid line. I've tried all the dashed/dotted line options, but they appear to have no effect.
Ultimately, I want to color alternating rows of cells, and (since coloring hides grid lines) I want to add border lines the same color and style as the hidden grid lines.
View 2 Replies
View Related
Aug 14, 2013
I'm trying to use VBA to draw a border using the drawing toolbar and using the line. i need it to draw a border around a select area i hightlight.
i have attached a example below, but not sure if it will appear.
View 1 Replies
View Related
Apr 16, 2012
Why is the VBA for putting a simple border around a cell so convoluted. For example cell A2:
Code:
Sub CellBorder()
Range("A2").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
[Code] ........
So many lines to put a simple - single line border (square) around a cell.
View 3 Replies
View Related
May 5, 2013
I am trying to add several border lines to the bottom of a row from A to AI start from row 12.
There is probably a few things you need to know
1. Starting from row 11 each data section is two rows deep
2. The data section could be repeated and if this is the case do not insert border until it changes
3. The border line needs to be added underneath the second line i.e. to split the different types of data
View 5 Replies
View Related
Sep 21, 2007
I have this simple code which sets the objects format as default.
Private Sub FormatTextBox()
ActiveSheet.Shapes("FormatBox").Select
Selection.ShapeRange.SetShapesDefaultProperties
End Sub
Is there a way to set an objects shape to the default format...not as default?
ie: if the default line color is blue. what code could i use to set an object with a black line color, to the default blue?
View 3 Replies
View Related
Oct 15, 2009
I am using the following macro to set print area which I found on the net. I am trying to modify it as I would also like to place a border line on the bottom row but cant find anything to assist me despite searching through several threads.
Dim myrange As String
With ActiveSheet.Range("A:A")
myrange = .Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Address
End With
ActiveSheet.PageSetup.PrintArea = "$K$1:" & myrange
End Sub
View 9 Replies
View Related
Dec 1, 2013
The title in the attached chart is a camera shot transferred from another excel 2007 worksheet in the same workbook.
I'd like to remove the border line, I've tried right clicking... then format picture ...no dialogue box comes up. I've scrolled through all the commands in the ribbon + non ribbon commands and can't find anything that seems appropriate that's not greyed out ....
border line.docx
View 7 Replies
View Related
Apr 30, 2013
I have a worksheet that I need to be able to easily copy and paste the formula/formatting from the row above, but not the Values entered, (if any). I am using columns A to DG.
I just really need to be able to copy all the formula in these cells down - nothing exciting or fancy.
I've tried formatting as a table as per some searches and that was difficult! My column headings changed, and when I inserted a row, two of the formula's wouldn't copy down - plus the shading and borders went wonky in places.
View 2 Replies
View Related
Dec 8, 2007
i hv following code
(i use generate macro)
my question is how to arrange the code from one line to multiple like :-
following code show in excel macro environment is one striaght line.
' Create new var on yr , and replace 2006 to CY06.
ActiveCell.FormulaR1C1 = _
View 9 Replies
View Related
Aug 13, 2012
I have a picture that has been inserted into a worksheet via a macro and I have a number of macros to increase and decrease size. They work fine.
However, whenever I run one of those macros by selecting a button on the worksheet, it results in a border around the picture.
Facts:
- worksheet is called "Admin"
- picture is called "ClientLogo"
- Line.Weight set to "0" or "False" or "xlNone" or removed all result in a border
Question: Code / syntax for removing or setting the border to nothing?
VB:
Sub ReduceShape()
Dim shp As ShapeRange
On Error Goto NoSelectionMade
Sheets("Admin").Shapes("ClientLogo").Select
Set shp = Selection.ShapeRange
[Code]...
View 2 Replies
View Related
Sep 30, 2009
Since I did not know how to do this I used the record macro cheating option.
Excel spit out this chunck of
View 6 Replies
View Related
Aug 6, 2008
I am trying to develop an Excel spread- sheet by using some macros. In detail, in my first worksheet, I have something like -
Exp1 ....
Exp2 ....
Exp3 ....
:
:
:
Expn ....
This rows are coming from another worksheet and I have used a macro (developed by me) to populate these rows. Even the number of rows to be populated is not fixed.
However, I would like to add one row with text - " Total Expense" after those rows. This row will have some background color - say Tan - and font color - say Green - and also a border around its own - in nature, the border will be thick, Double and with color Rose. I have tried the following code in macro but not working properly -
Sub Include_Fields_n_Format(loc As String)
tot_exp_scell = loc & f_scell
tot_exp_ecell = loc & (f_scell + 1)
Range(tot_exp_scell, tot_exp_ecell). Merge
Range(tot_exp_scell, tot_exp_ecell).WrapText = True
Range(tot_exp_scell, tot_exp_ecell).Interior.Color = RGB(150, 150, 150)
With Range(tot_exp_scell, tot_exp_ecell).Font...................
View 4 Replies
View Related
Jul 9, 2014
Possible to create a macro that would detect end page (jumping from page 1 to page 2 for instance) and add a bottom border at the last row of the page.
I have attached a sample where I highlight in green the end of the page and added manually the bottom border (I did it only for the first end pages).
View 7 Replies
View Related
Jul 26, 2009
I have recorded a macro which will create the border for me when the file is opened, but it turned out too long. if someone can show me how to reduce the codeing. I have the attached file.
Range A5 to E20 thin Border all sides and thick border allround (16 rows)
Range A21 to E36 thin border all sides and thick border allround (16 rows)
end range is A356.
View 5 Replies
View Related
Jul 11, 2014
How can I replace the border style with a macro across my entire data?
I would have assumed something like this would work:
[Code] .......
View 2 Replies
View Related
Apr 13, 2012
I came across an issue on the pivot table after refreshing data. I always need to manually redo the border and formatting. I figure that it is because every time when some new group have move to another day, it change the pivot table layout again and so on.
1) I manage to draw border for Day 1, 2, 3, 4 and 5 but 'Beyond Day 5' i dont know how to do it.
2) Sometime some Day X will have no data then i will have problem with my script. (example pivot table doesnt show Day 2)
3) Possible to do looping for that?
I had attached a simple file.
View 6 Replies
View Related
Mar 27, 2013
I am trying to get a phone number column to change between two custom styles. I have added the styles in as:
Mobile: 0000 000 000
Extenstion: x00000
I need column E5 down to change between the two if < 6 or >5 numbers are used in a cell to change to the correct style.
Does this can be done just using the styles or vba coding is required.
I already have some vba to add the date into column B if column A is altered.
View 2 Replies
View Related
Oct 31, 2006
I know OpenOffice can do it but I can't seem to figure out if Excel can or not. I have various styles defined to include the font, color, pattern, etc. which are setup the way that I want. I also have Options>View - Zero Values.", "style="background: #FFFFFF;padding: 2px;font-size: 10px;width: 550px;"");' onmouseout='GAL_hidepopup();'>formatting.htm" target="_blank">conditional formatting formulas set where I want. All appears to be working well. What I want is that the result of the conditional format uses the style reference rather than the absolute reference by changing the format in the conditional dialogue box. Can Excel handle that? If so, how?
View 3 Replies
View Related
Aug 23, 2007
I was creating command buttons and had trouble using the linked cell. I found an example on the forum here but the command buttons seem to have many different behaviors. On the attachment, "Button 1" and "Button 2" are the ones I created in Excel 2003. "Button A" and "Button B" are from an example I found on the forum.
1 and 2 can only be edited on design mode, and have the formula "=EMBED("Forms.OptionButton.1","")" by default (which yields an error when exiting the formula field). A and B can be edited at any time, and have an extra tab ("Control") on the Control Format dialog. This seems to allow the linked cell to be set and function pretty handily. Are A and B from a different version of Excel? Auto Merged Post;Here's the attachment:
View 3 Replies
View Related
May 16, 2008
This seems so simple but i looked everywhere and i cannot find the vba script to add a 3 point solid black line border around the chart and plot area of my graphs. The record macro option does not record this.
View 3 Replies
View Related
Oct 1, 2009
I have a workbook in Excel 2007 with several sheets imported from other workbooks. In the course of this, one of them has brought several custom cell styles with it and I would like to be rid of them, as they clutter up the cell styles gallery.
Most of them were cooperative and deleted simply enough by right-clicking and selecting 'Delete', but one is proving a little more stubborn.
When I mouse over it, it plays the 'alert' noise (the 'bink' you get when Excel wants to alert you to something) and then nothing happens. There is no noticeable change to text or cell, as there should be thanks to 2007's previewing ability. Trying to apply the style results in the message
"Style '
386grabber=VGA.3GR
' not found."
(the line breaks are present in the message and seem to be because the style name actually has character returns as the first and last characters).
Is there a way to delete this style, or am I going to have to resign myself to having an annoying noise every time I try to apply styles
View 9 Replies
View Related
Aug 22, 2014
I want to add buttom double border to cells in rows, based on data in column A via VBA,
I have a title in A1 called PO, every PO have variable numbers of rows. so i want buttom double borders for each group of PO.
I added an attachment of "Before and after" example.
View 2 Replies
View Related
Aug 3, 2012
I have unprotected cells in excel where I need to change the content (number) and cell color, but I don't want the cell borders to change. I'm a beginner with vba. I've tried protect sheet and workbook options, but looks like I need a vba code and don't know where to start.
Win 7
Office 2007
View 4 Replies
View Related
Apr 15, 2014
I have some cell styles that refuse to be deleted in Excel 2010. I can see them on the ribbon, but right clicking and deleting doesn't do anything. Any way I can get rid of them? Just makes things look very messy. If I click them it says "Style 'XXX' not found."
View 3 Replies
View Related
Sep 15, 2010
I have a list of Cell Styles under the Styles tab in Excel 2007. I want to delete all the Cell Styles since its slowing down opening and operating of the Excel file. I do not want to individually delete them by right click-delete. Cmarco to run for performing this action?
***I DO NOT WANT TO REMOVE CELL STYLES FROM A RANGE- I WANT DELETE THE CELL STYLES FORM THE STYLES TAB IN THE HOME RIBBON IN EXCEL 2007****
View 1 Replies
View Related
Dec 1, 2011
Is there a way of preventing Exel from Applying table styles, when converting a range to a table. and leave the formatting of the table intact?
View 1 Replies
View Related
Aug 4, 2014
I have a macro that changes the marker style for all series in a scatter chart, chosen through an input box.
[Code].....
It works nicely, but I want it to exclude any series that do not have markers (i.e. lines used to indicate a reference value). I've tried an if-then statement after the With statement, but it will add markers to any line series:
[Code] ......
Basically, if the series has markers or line+markers, I want it to change the marker style, otherwise do nothing with the series.
View 5 Replies
View Related
Oct 3, 2012
I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.
However, if the user is not online, the query is unable to refresh and the macro just hangs.
Is there a code which will enable me to say " if unable to refresh then move on to the next line"?
here's the code below.
Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub
View 2 Replies
View Related
Jan 22, 2014
The attached file works with 3 Drawers and 3 Doors but if I use 2 Drawers and 2 Doors the Borders do not line up. I think the Drawers are right the Doors appears to be the problem.
Same thing happens with 3 drawers and 4 Doors. It has and extra border on the right side.
See Attached : ozgrid cabinet error.xlsm
Also I would like for the Measurements to be in the cell to the right of the left hand border and center across each of the sections.
Change B3 and B4 to 2 then click draw. 3 and 3 work 3 and 4 don't but 4 and 4 does.???
View 2 Replies
View Related
