Using a cell value from main worksheet in macro formula

[mpham168]

Hi all,

I'm quite new to this so please don't flame me if I've posted in the wrong area.

I'm seeking some advice/help with regards to the below

Basically I'm trying to have the macro autofilter specific date ranges determined by a value (1,2,3,4,5 etc...) from the main worksheet (for this post I have called it MACRO).

If anyone has any ideas could they please let me know?

Dim x As String

Dim dDate As Date
Dim strDate As String

Dim lDate As Long
dDate = DateSerial(Year(Date), Month(Date), Day(Date))
lDate = dDate

x = not sure about here but something like ? Sheets(MACRO).Range("A1").Value
Range("A1").Select
Sheets("WORKING SHEET").Select
Rows("1:1").Select
ActiveSheet.Range("$A$1:$AP$1912").AutoFilter Field:=10, Criteria1:=">" & lDate + x, Operator:=xlAnd
Rows("2:2").Select

Any help would be greatly appreciated!

Thanks in advance

mpham168

 

[tweedle]

Welcome!

Try Sheets("MACRO").Range("A1").Value

 

[mpham168]

Thanks for pointing that out, however, I did try this earlier and I am afraid I simply forgot to use quotation marks in my post.

Currently I am receiving a break in the below

Dim dDate As Date

Dim strDate As String

Dim lDate As Long

Dim x As String

x = Sheets("MACRO").Range("I7").Value

Range("A1").Select
Sheets("WORKING SHEET").Select
Rows("1:1").Select
ActiveSheet.Range("$A$1:$AP$1912").AutoFilter Field:=10, Criteria1:=">" & lDate + x, Operator:=xlAnd

I am not sure how to proceed - I found another question on the forum relating to extracting a value from a table but that did not help address my problem.

 

[tweedle]

Are you getting an error?
If so, what is it?
[my copy doesn't error]

Two things:

if Sheets("MACRO").Range("I7") is numeric then x should be declared as integer (based on previous post)

Column 10 is Numeric/Date format?

 

[mpham168]

Thanks I see my error!

You are awesome!