Troubleshooter of Error: countif vba not hidden rows

countif vba not hidden rows

hello all i am trying to count rows that are NOT hidden using the code below but i cant get the last bit i am trying to count the rows if they correspond to the value in my list in w1.range(a2:a6) and put the 'count' in the next column


Dim w1 As Worksheet, w2 As Worksheet
Dim lastrow As Long
Dim c As Range
Dim d  As Range

Set w1 = Sheets("groupplacements") ***destination sheet where i want the answer to populate
Set w2 = Sheets("data") *** where i want the data to look up

lastrow = w1.Cells(Cells.Rows.Count, "a").End(xlUp).Row
lastrow1 = w2.Cells(Cells.Rows.Count, "e").End(xlUp).Row


For Each c In w1.Range("a2:a" & lastrow)
For Each d In w2.Range("e2:e" & lastrow1) *** e is the column i am looking up

If d.RowHeight > 0 And d.Value = c.Value Then

wf1 = WorksheetFunction.CountIf(d.Range("e2:e100000", c.Value))*** this bit is failing 

Next

c.Offset(0, 1) = wf1

any ideas 










End Sub

Solutions to the Problem countif vba not hidden rows

Download Error Fixer for Free Now

1. Access the files on your computer via MY COMPUTER
2. Under the C: drive, access the WINDOWS folder
3. Select the SOFTWARE DISTRIBUTION folder, followed by the DOWNLOAD folder.
4. Delete any files within this download folder.
5. If you are unable to delete these files, open the command prompt (CMD) as the administrator, and type "net stop wuauserv" into the CMD prompt window. Press ENTER. This should allow you to delete the files from step 4.
6. Once the files are deleted, open and run the CMD as the administrator and type "wuauclt.exe /updatenow". Press ENTER.

Another Safe way to Fix the Problem: countif vba not hidden rows:

How to Fix countif vba not hidden rows with SmartPCFixer?

1. You can Download SmartPCFixer here. Install it on your computer. When you open it, it will perform a scan.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been removed.

Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How Can I Fix - Constant BSODs with new laptop?,Solution to Error: Ctrl U deletes words when highlighted instead of underlining them and pressing ctrl U creates spaces that are underlined?,[Solution] Ctl_Shift_Enter for a long SUM(VLOOKUP...) formula,Troubleshooting:Create IF function logical test that checks for more than one set of text Error,Fast Solution to Problem: Copy Information from another Sheet,Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly