Run Time errot 1004, with formula

[Guest]

I'm getting this common error with this code, it looks as if the formula as
causing it, tried assigning formula to a string and directly, no change, let
me know if you need more info, thanks in advance

Sheets(CFPBEY).Select
Range("E11:E20000").ClearContents
ColLoc1 = pbeyeydesc - pbeydescchg
ColLoc2 = pbeyeydesc - pbeyorigtrdesc
Dim test As String
test = "=IF(RC[-" & ColLoc1 & "]<>0,VLOOKUP(RC[-" & ColLoc1 & "],'" & RT &
"'!$A$5:$B$" & _
intUniqueTrDesc & ",2,FALSE),VLOOKUP(RC[-" & ColLoc2 & "],'" & RT &
"'!$A$5:$B$" & _
intUniqueTrDesc & ",2,FALSE))"

Sheets(CFPBEY).Range(Cells(StartRow, pbeyeydesc), Cells(intNumOfTrDesc +
HdrRow, pbeyeydesc)).Formula = test

'_
' "=IF(RC[-" & ColLoc1 & "]<>0,VLOOKUP(RC[-" & ColLoc1 & "],'" & RT &
"'!$A$5:$B$" & _
' intUniqueTrDesc & ",2,FALSE),VLOOKUP(RC[-" & ColLoc2 & "],'" & RT &
"'!$A$5:$B$" & _
' intUniqueTrDesc & ",2,FALSE))"

 

[PCLIVE]

How are these defined?

pbeyeydesc
pbeydescchg
pbeyorigtrdesc
CFPBEY
RT
intUniqueTrDesc
StartRow
intNumOfTrDesc
HdrRow

Regards,
Paul

 

[Guest]

Hi, the ones all in caps are constants that are strings(sheet names) the
other are intergers for column #'s, but I think the problem is that part of
the formula is in R1C1 style and part is A1 style, is there any to change
either one or the other to make it work?

How are these defined?

pbeyeydesc
pbeydescchg
pbeyorigtrdesc
CFPBEY
RT
intUniqueTrDesc
StartRow
intNumOfTrDesc
HdrRow

Regards,
Paul

I'm getting this common error with this code, it looks as if the formula
as
causing it, tried assigning formula to a string and directly, no change,
let
me know if you need more info, thanks in advance

Sheets(CFPBEY).Select
Range("E11:E20000").ClearContents
ColLoc1 = pbeyeydesc - pbeydescchg
ColLoc2 = pbeyeydesc - pbeyorigtrdesc
Dim test As String
test = "=IF(RC[-" & ColLoc1 & "]<>0,VLOOKUP(RC[-" & ColLoc1 & "],'" & RT &
"'!$A$5:$B$" & _
intUniqueTrDesc & ",2,FALSE),VLOOKUP(RC[-" & ColLoc2 & "],'" & RT &
"'!$A$5:$B$" & _
intUniqueTrDesc & ",2,FALSE))"

Sheets(CFPBEY).Range(Cells(StartRow, pbeyeydesc), Cells(intNumOfTrDesc +
HdrRow, pbeyeydesc)).Formula = test

'_
' "=IF(RC[-" & ColLoc1 & "]<>0,VLOOKUP(RC[-" & ColLoc1 & "],'" & RT &
"'!$A$5:$B$" & _
' intUniqueTrDesc & ",2,FALSE),VLOOKUP(RC[-" & ColLoc2 & "],'" & RT &
"'!$A$5:$B$" & _
' intUniqueTrDesc & ",2,FALSE))"

 

[Peter Huang [MSFT]]

Hi,

From you description, I understand that you want to run some macro from one
Excel Workbook.
If I misunderstood, please feel free to let me know.

Currently I would like to collect more information so that we can perform
research more efficiently.
1. Could you list what is the exactly error message or post a screen shot?
2. Which code line cause the error?
3. Can you post a simple reproduce workbook so that I can reproduce at my
side an do further research, also if you have concern, you may directly
Email the reproduce workbook to me via removing "online" from my Email
address.


Best regards,

Peter Huang
Microsoft Online Partner Support

Microsoft Online Community Support
==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
ications.
Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscriptions/support/default.aspx.
==================================================
(This posting is provided "AS IS", with no warranties, and confers no
rights.)