Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFit method of Range class failed
The following are the simple few lines of code to adjust
the height of rows when user clicks the "Adjust Rows" button. I keep on getting a run-time error "1004" saying AutFit method of Range class failed. Can someone please tell me where it fails ? PS: The column contains data need adjust is Column D with with more than 999 rows of data. Private sub Adjust_Rows_Click() Dim Rows as Integer Rows = ActiveSheet.Range("D999").End(xlUp).Row ActiveSheet.Range("D4:D"+Cstr(Rows)).Rows.AutoFit End Sub Thanks in advance for any help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFit method of Range class failed
First, I'd stay away from using VBA terms as my variable (Rows)
And when you're working with strings, it's better to use "&" to concatenate (instead of "+"). This worked ok for me: Option Explicit Private Sub Adjust_Rows_Click() Dim LastRow As Long With ActiveSheet LastRow = .Range("D65536").End(xlUp).Row .Range("D4:D" & LastRow).EntireRow.AutoFit End With End Sub (I didn't need the cstr() function. VBA is forgiving of some things.) Wellie wrote: The following are the simple few lines of code to adjust the height of rows when user clicks the "Adjust Rows" button. I keep on getting a run-time error "1004" saying AutFit method of Range class failed. Can someone please tell me where it fails ? PS: The column contains data need adjust is Column D with with more than 999 rows of data. Private sub Adjust_Rows_Click() Dim Rows as Integer Rows = ActiveSheet.Range("D999").End(xlUp).Row ActiveSheet.Range("D4:D"+Cstr(Rows)).Rows.AutoFit End Sub Thanks in advance for any help. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Autofill method of range class failed | Excel Discussion (Misc queries) | |||
Autofill method of range class failed | Excel Discussion (Misc queries) | |||
Run-time error '1004' PasteSpecial Method of Range Class Failed | Excel Programming | |||
VB Error: Paste Special method of range class failed | Excel Programming | |||
error 1004 Select method of Range class failed | Excel Programming |