Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
column width and row height formatting, & IF
Hi all.
I've recorded a macro, and in part of it I want to look at a specific group of columns' widths. I.e., I want to know if a column is less than a standard, or predetermined width, and if so, delete that column. Someone has placed a series of "buffer" columns to act as spacers, and they're unnecessary for our purposes, so I want to delete them, and doing this by hand is really time consuming. I've read some of the posts, and I'm wondering if the following will work. dim MyCol as range if MyCol.columnwidth<X 'where X is my choice of width. myCol.select Selection.Delete Shift:=xlToLeft end if Similarly, I want to do something identical with row heights. would dim MyRow as range if MyRow.rowheight < Y 'where Y is my predetermined height value MyRow.select Selection.Delete Shift:=xlUp end if Thanks for your responses. Best. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
column width and row height formatting, & IF
Give this code a try (substitute the width you want to compare to for the
8.43 width I used)... Sub RemoveNarrowColumns() Dim X As Long For X = Columns.Count To 1 Step -1 If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete Next End Sub Rick "SteveDB1" wrote in message ... Hi all. I've recorded a macro, and in part of it I want to look at a specific group of columns' widths. I.e., I want to know if a column is less than a standard, or predetermined width, and if so, delete that column. Someone has placed a series of "buffer" columns to act as spacers, and they're unnecessary for our purposes, so I want to delete them, and doing this by hand is really time consuming. I've read some of the posts, and I'm wondering if the following will work. dim MyCol as range if MyCol.columnwidth<X 'where X is my choice of width. myCol.select Selection.Delete Shift:=xlToLeft end if Similarly, I want to do something identical with row heights. would dim MyRow as range if MyRow.rowheight < Y 'where Y is my predetermined height value MyRow.select Selection.Delete Shift:=xlUp end if Thanks for your responses. Best. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
column width and row height formatting, & IF
Sorry, missed your 2nd question regarding short rows. Give this macro a try
for them... Sub RemoveShortRows() Dim X As Long For X = Rows.Count To 1 Step -1 If Rows(X).RowHeight < 12.75 Then Rows(X).Delete Next End Sub Rick "Rick Rothstein (MVP - VB)" wrote in message ... Give this code a try (substitute the width you want to compare to for the 8.43 width I used)... Sub RemoveNarrowColumns() Dim X As Long For X = Columns.Count To 1 Step -1 If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete Next End Sub Rick "SteveDB1" wrote in message ... Hi all. I've recorded a macro, and in part of it I want to look at a specific group of columns' widths. I.e., I want to know if a column is less than a standard, or predetermined width, and if so, delete that column. Someone has placed a series of "buffer" columns to act as spacers, and they're unnecessary for our purposes, so I want to delete them, and doing this by hand is really time consuming. I've read some of the posts, and I'm wondering if the following will work. dim MyCol as range if MyCol.columnwidth<X 'where X is my choice of width. myCol.select Selection.Delete Shift:=xlToLeft end if Similarly, I want to do something identical with row heights. would dim MyRow as range if MyRow.rowheight < Y 'where Y is my predetermined height value MyRow.select Selection.Delete Shift:=xlUp end if Thanks for your responses. Best. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
column width and row height formatting, & IF
Rick,
Perfect, on both accounts.... Thank you. Best. "Rick Rothstein (MVP - VB)" wrote: Sorry, missed your 2nd question regarding short rows. Give this macro a try for them... Sub RemoveShortRows() Dim X As Long For X = Rows.Count To 1 Step -1 If Rows(X).RowHeight < 12.75 Then Rows(X).Delete Next End Sub Rick "Rick Rothstein (MVP - VB)" wrote in message ... Give this code a try (substitute the width you want to compare to for the 8.43 width I used)... Sub RemoveNarrowColumns() Dim X As Long For X = Columns.Count To 1 Step -1 If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete Next End Sub Rick "SteveDB1" wrote in message ... Hi all. I've recorded a macro, and in part of it I want to look at a specific group of columns' widths. I.e., I want to know if a column is less than a standard, or predetermined width, and if so, delete that column. Someone has placed a series of "buffer" columns to act as spacers, and they're unnecessary for our purposes, so I want to delete them, and doing this by hand is really time consuming. I've read some of the posts, and I'm wondering if the following will work. dim MyCol as range if MyCol.columnwidth<X 'where X is my choice of width. myCol.select Selection.Delete Shift:=xlToLeft end if Similarly, I want to do something identical with row heights. would dim MyRow as range if MyRow.rowheight < Y 'where Y is my predetermined height value MyRow.select Selection.Delete Shift:=xlUp end if Thanks for your responses. Best. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Row Height or Column Width not Showing | Excel Worksheet Functions | |||
Row height/column width | Excel Discussion (Misc queries) | |||
Column Width and Row Height | Excel Worksheet Functions | |||
Row height & Column width locked? | Excel Programming | |||
Column Width and Row Height | Excel Worksheet Functions |