Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveCell.FormulaR1C1
I don't see the problem, but
Range("R2").Value = "4100" or Range("R2").Value = 4100 should work. -- Regards, Tom Ogilvy "Kevin" wrote in message ... I have code that works using a drop down bax and a paste link in excel... The code is a follows; Sub Button9_Click() ' Cost Element Button 'This part of the code clears the other filters Worksheets("WBS Query").Range("B4,E6,G4,J4,M4").ClearContents ' Sheets("WBS DATA").Select ' Range("R2").Select ' ActiveCell.FormulaR1C1 = "4100" 'This part of the code Copies and pastes the criteria Worksheets("WBS Data").Range("Q2:T2").Copy ActiveSheet.Paste Destination:=Worksheets("WBS Data").Range("Q3:T3") Set Company = Worksheets("WBS Data").Range("R1") Set Query = Worksheets("WBS Data").Range("WBS_Charges") Set Criteria = Sheets("WBS Data").Range("r1:R2") Worksheets("WBS Data").Range("R1").Calculate Query.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Criteria, _ CopyToRange:=Range("A11:M11"), Unique:=False 'This part of the code copies Q3:T3, pastes it back to Q2:T2 and deletes Q3:T3 Worksheets("WBS Data").Range("Q3:T3").Copy ActiveSheet.Paste Destination:=Worksheets("WBS Data").Range("Q2:T2") Worksheets("WBS Data").Range("Q3:T3").Clear End Sub This code seems to work fine... But when I try to modify it using; Sheets("WBS DATA").Select Range("R2").Select ActiveCell.FormulaR1C1 = "4100" it gives me (Run-time error 1004, the extract has a missing or illegal field name) I can block out; Worksheets("WBS Data").Range("R1").Calculate Query.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Criteria, _ CopyToRange:=Range("A11:M11"), Unique:=False and force the 4100 into Cell r2, then unblock the code, and Block the FormulaR1C1 code and it will work... Just not together... I apploigize for posting this twice, I can't seem to find my first question in the Seach results... Thanks in Advance; Kevin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
ActiveCell.FormulaR1C1 | Excel Discussion (Misc queries) | |||
ActiveCell.FormulaR1C1 Sum Function | Excel Programming | |||
Excel VBA - use of ActiveCell.FormulaR1C1 | Excel Programming | |||
activecell.formular1c1 | Excel Programming | |||
ActiveCell.FormulaR1C1 | Excel Programming |