count number of times that a specific string occurs inside a range of cells

[kbishop94]

I need to get the VBA code where it looks in column P, starting at Row 4 and down... AND only looks at only the visible rows in order to get a count for each string that it is looking for

Column P contains these 'codes' that represent a checkbox on a userform that was previously checked and if it was checked, then it places that 'code' into the cell in column P.

There could be 1 code in each cell, or maybe up to 8 or 9:
(example: the string "EHS1A" shows up in row 6 where there are only 2 'codes', and also in row 7 where there are 8 codes.)

I believe i will need to have a variable for each one of these 'codes' and it will represent the number of times that the code occurs in the specific range each time it is searched. (I have 26 different 'codes' (such as'EHS1A') that will be searced for in column P and the total for each one will be shown in Row 1 so the user will be able to see how many occurrences for each one is shown on the worksheet.... hope that makes sense.)

I know I will need to use the 'if like' in my VBA code to locate each part of the string such as "EHS1A"... but, I cannot figure out how to search for it just in the visible cells ("SpecialCells(xlCellTypeVisible)") within the required range using the " If Cell Like "*EHS1A*" Then " VBA code.

Thanks in advance for any help that anyone can help me with. Thank you

 

[kbishop94]

never mind... I got it figured out

Dim cP As Range
Dim aRow As Long
Dim mis4d As String

mis4d = 0
aRow = Cells.Find("*", , , , xlByColumns, xlPrevious, , , False).Row

    For Each cP In Range(Cells(4, 16), Cells(aRow, 16)).SpecialCells(xlCellTypeVisible)
        If cP Like "*MIS4D*" Then
            mis4d = mis4d + 1
        End If
    Next cP

My code now returns "8" (the correct number) when I tested it by selecting the checkbox for "theft" on the userform before the query is ran (no, we dont have a problem with theft here...I just used field that had never been used so I could easily find it later when i go to change the record back to its original state lol ) The query I ran had a total of 15 records and only 8 of them had the string in column P that correlates to 'theft' that it was searching for. Success!!