Declare variables to a code?


P

Pas

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 .
 
Ad

Advertisements

M

Mike H

Hi,

Somewhere else you may have declared

Option Explicit
or

In VB option you may have cheked 'Require variable declaration'

Both of which means all variables have to be declared so declare it at the
start of your code

Sub Del_Oldies()
Dim R as Long, LR as Long
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
 
R

Roger Govier

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
 
P

Pas

Thanks guys,
I get a runtime error 1004
with the following highlighted:
Cells(R, 1).EntireRow.Delete
 
D

Dave Peterson

Any chance that your worksheet is protected?
Thanks guys,
I get a runtime error 1004
with the following highlighted:
Cells(R, 1).EntireRow.Delete
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top