From: unhide all columns on
THis macro seems to be clearing all items from the sheet
I only need it to clear the rows i have listed
Sub clear_inputs_new()
'
' clear_inputs Macro
'
ActiveWindow.ScrollRow = 1
Range("I11:I114").Select
Selection.ClearContents
Range("AD11:AD114").Select
Selection.ClearContents
End Sub
From: Jim Thomlinson on
I see nothing wrong with the code but perhaps try this...

Sub clear_inputs_new()
'
' clear_inputs Macro
'
Range("I11:I114").ClearContents
Range("AD11:AD114").ClearContents
End Sub
--
HTH...

Jim Thomlinson


"unhide all columns" wrote:

> THis macro seems to be clearing all items from the sheet
> I only need it to clear the rows i have listed
> Sub clear_inputs_new()
> '
> ' clear_inputs Macro
> '
> ActiveWindow.ScrollRow = 1
> Range("I11:I114").Select
> Selection.ClearContents
> Range("AD11:AD114").Select
> Selection.ClearContents
> End Sub
From: Gord Dibben on
Works for me.

You could shorten it a bit.

Sub clear_inputs_new()
'
' clear_inputs Macro
'
ActiveWindow.ScrollRow = 1
Range("I11:I114,AD11:AD114").ClearContents
End Sub


Gord Dibben MS Excel MVP

On Mon, 26 Apr 2010 11:59:01 -0700, unhide all columns
<unhideallcolumns(a)discussions.microsoft.com> wrote:

>THis macro seems to be clearing all items from the sheet
>I only need it to clear the rows i have listed
>Sub clear_inputs_new()
>'
>' clear_inputs Macro
>'
> ActiveWindow.ScrollRow = 1
> Range("I11:I114").Select
> Selection.ClearContents
> Range("AD11:AD114").Select
> Selection.ClearContents
>End Sub

From: unhide all columns on
now I am getting an error that is
cannot change part of a merged cell

"Jim Thomlinson" wrote:

> I see nothing wrong with the code but perhaps try this...
>
> Sub clear_inputs_new()
> '
> ' clear_inputs Macro
> '
> Range("I11:I114").ClearContents
> Range("AD11:AD114").ClearContents
> End Sub
> --
> HTH...
>
> Jim Thomlinson
>
>
> "unhide all columns" wrote:
>
> > THis macro seems to be clearing all items from the sheet
> > I only need it to clear the rows i have listed
> > Sub clear_inputs_new()
> > '
> > ' clear_inputs Macro
> > '
> > ActiveWindow.ScrollRow = 1
> > Range("I11:I114").Select
> > Selection.ClearContents
> > Range("AD11:AD114").Select
> > Selection.ClearContents
> > End Sub
From: Jim Thomlinson on
Macros and merged cells don't get along. Any possibility you could remove the
mered cell? If not then we need to code around it which is a pain. Perhpas
you could use
Format Cells... | Alignment | Horizontal | Center Across Selection

Looks similar to a merged cell but work better...
--
HTH...

Jim Thomlinson


"unhide all columns" wrote:

> now I am getting an error that is
> cannot change part of a merged cell
>
> "Jim Thomlinson" wrote:
>
> > I see nothing wrong with the code but perhaps try this...
> >
> > Sub clear_inputs_new()
> > '
> > ' clear_inputs Macro
> > '
> > Range("I11:I114").ClearContents
> > Range("AD11:AD114").ClearContents
> > End Sub
> > --
> > HTH...
> >
> > Jim Thomlinson
> >
> >
> > "unhide all columns" wrote:
> >
> > > THis macro seems to be clearing all items from the sheet
> > > I only need it to clear the rows i have listed
> > > Sub clear_inputs_new()
> > > '
> > > ' clear_inputs Macro
> > > '
> > > ActiveWindow.ScrollRow = 1
> > > Range("I11:I114").Select
> > > Selection.ClearContents
> > > Range("AD11:AD114").Select
> > > Selection.ClearContents
> > > End Sub