Declare variables to a code?

Prev: VB Help Needed
Next: How do I remove a Calculated Field from the Pivot Table fieldlist

From: Dave Peterson on 9 Apr 2010 07:49

---

Any chance that your worksheet is protected?

Pas wrote:
>
> Thanks guys,
> I get a runtime error 1004
> with the following highlighted:
> Cells(R, 1).EntireRow.Delete
>
> "Roger Govier" wrote:
>
> > Hi
> >
> > I would use Longs rather than Integers
> >
> > Sub Del_Oldies()
> > Dim LR as long, R as long
> > LR = Cells(Rows.Count, 1).End(xlUp).Row
> > For R = LR To 1 Step -1
> > If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
> > Next
> > End Sub
> >
> > --
> > Regards
> > Roger Govier
> >
> > Pas wrote:
> > > I have the following code which deletes all rows older then 365 days:
> > >
> > > Sub Del_Oldies()
> > > LR = Cells(Rows.Count, 1).End(xlUp).Row
> > > For R = LR To 1 Step -1
> > > If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
> > > Next
> > > End Sub
> > >
> > > I keep getting error message
> > > Compile error:
> > > Variable not defined
> > > with "LR =" highlighted in blue
> > >
> > > How do I modify this code to declare the variables R, and LR as Integers .
> > >
> > .
> >

--

Dave Peterson

From: Pas on 10 Apr 2010 08:14

---

Thanks Dave, didnt think of that!!! I'll try it.

"Dave Peterson" wrote:

> Any chance that your worksheet is protected?
>
> Pas wrote:
> >
> > Thanks guys,
> > I get a runtime error 1004
> > with the following highlighted:
> > Cells(R, 1).EntireRow.Delete
> >
> > "Roger Govier" wrote:
> >
> > > Hi
> > >
> > > I would use Longs rather than Integers
> > >
> > > Sub Del_Oldies()
> > > Dim LR as long, R as long
> > > LR = Cells(Rows.Count, 1).End(xlUp).Row
> > > For R = LR To 1 Step -1
> > > If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
> > > Next
> > > End Sub
> > >
> > > --
> > > Regards
> > > Roger Govier
> > >
> > > Pas wrote:
> > > > I have the following code which deletes all rows older then 365 days:
> > > >
> > > > Sub Del_Oldies()
> > > > LR = Cells(Rows.Count, 1).End(xlUp).Row
> > > > For R = LR To 1 Step -1
> > > > If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
> > > > Next
> > > > End Sub
> > > >
> > > > I keep getting error message
> > > > Compile error:
> > > > Variable not defined
> > > > with "LR =" highlighted in blue
> > > >
> > > > How do I modify this code to declare the variables R, and LR as Integers .
> > > >
> > > .
> > >
>
> --
>
> Dave Peterson
> .
>

First  |  Prev  | 
Pages: 1 2
Prev: VB Help Needed
Next: How do I remove a Calculated Field from the Pivot Table fieldlist