SUMPRODUCT(1/COUNTIF syntax error

Saab95

New Member
Joined
Mar 26, 2021
Messages
26
Office Version
  1. 365
Platform
  1. Windows
Hi,

Why formulas in vba are not as simple in cells :oops:

I have a syntax error but why :eek:, andtried with double or single quotes. No change.


Sub TEST99()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Master" Then
lastRow = ws.Range("AT2" & Rows.Count).End(xlUp).Row
ws.Range("AV2").Formula = ""=SUMPRODUCT(1/COUNTIF(("AT2:AT" & lastRow),("AT2:AT" & lastRow)))""
End If
Next ws
End Sub

Thank you 🤝
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
59,025
Office Version
  1. 365
Platform
  1. Windows
All the quotes can be a bit confusing. There is an easy way to do this - let Excel do the work for you!
Turn on your Macro Recorder, and record yourself manually entering the formula directly on your sheet.
Then turn off the Macro Recorder, and view the code your just recorded. You will see the formula that you need, and you can copy/paste it to your other VBA code.
 
Solution

Saab95

New Member
Joined
Mar 26, 2021
Messages
26
Office Version
  1. 365
Platform
  1. Windows
All the quotes can be a bit confusing. There is an easy way to do this - let Excel do the work for you!
Turn on your Macro Recorder, and record yourself manually entering the formula directly on your sheet.
Then turn off the Macro Recorder, and view the code your just recorded. You will see the formula that you need, and you can copy/paste it to your other VBA code.
Thanks, never thought about that. That's pretty smart. (y)
 

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
59,025
Office Version
  1. 365
Platform
  1. Windows
You are welcome!
:)
 

FormR

MrExcel MVP
Joined
Aug 18, 2011
Messages
6,567
Office Version
  1. 365
Platform
  1. Windows
Hi, I concur with Joe, for your particular scenario incorporating the lastrow variable you can try.

ws.Range("AV2").Formula = "=SUMPRODUCT(1/COUNTIF(AT2:AT" & lastRow & ",AT2:AT" & lastRow & "))"
 

Forum statistics

Threads
1,141,413
Messages
5,706,298
Members
421,440
Latest member
cmphares

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
Top