Help with concatenation of a formula.

Belair58

Board Regular
Joined
Mar 31, 2005
Messages
95
Hello,

I'm finding the last row with data in my range and then I'm attempting to use the cell number in a formula.

'''

firstRow = sht.Cells(sht.Rows.Count, "D").End(xlDown).Row
lastRow = sht.Cells(sht.Rows.Count, "D").End(xlUp).Row


Range("E1").Select
ActiveCell.FormulaR1C1 = "Late / OnTime"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-4]="""""
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]="""","""",IFERROR(VLOOKUP(RC[-4], Cycle_" & Cycle & "_Output.txt!C1,1,FALSE),""LATE""))"
Range("E2").Select
Selection.Copy
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False


Range("E" & lastRow + 1).Select
ActiveCell.FormulaR1C1 = "=ROUND((COUNTIF(E2:" & lastRow",""LATE"")/COUNTA(E2:" & lastRow & ")*100),2)"

'''

I'm receiving a Run-time error 1004
Application-defined or object-defined error

I'm assuming it's because I have the format of the formula incorrect.

Any help is always appreciated.

I've tried wrapping
 

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
untested

ActiveCell.FormulaR1C1 = "=ROUND((COUNTIF(E2:E" & lastRow",""LATE"")/COUNTA(E2:E" & lastRow & ")*100),2)"
 
Upvote 0
And kids, that's why you don't drink before you go to work.....

Thanks for finding my stupid mistake. However, when I do add in the E, I get this in my formula.

'''
=ROUND((COUNTIF('E2':'E69',"LATE")/COUNTA('E2':'E69')*100),2)
'''

I'm not certain how to eliminate the single quotes.

Thanks again.
 
Upvote 0
I found that it was because of the combination of ActiveCell.FormulaR1C1 and calling the cell directly.

It's not pretty but this fixed it.


'''
Range("E" & lastRow + 1).Select
ActiveCell.FormulaR1C1 = "=ROUND((COUNTIF(E2:E" & lastRow & ",""LATE"")/COUNTA(E2:E" & lastRow & ")*100),2)"
Range("E" & lastRow + 1).Formula = Replace(Range("E" & lastRow + 1).Formula, "'", "")
'''
 
Upvote 0
You're trying to use an R1C1 formula, but inputing a formula with A1 notation instead. Try
Code:
Range("E" & Lastrow + 1).Formula = "=ROUND((COUNTIF(E2:E" & Lastrow & ",""LATE"")/COUNTA(E2:E" & Lastrow & ")*100),2)"
 
Upvote 0

Forum statistics

Threads
1,223,885
Messages
6,175,180
Members
452,615
Latest member
bogeys2birdies

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top