Correct string

[juneau730]

Hi again,

The scripts I had working have evolved due to the change in data sets. I was able to get the majority of them tweaked and working except for one area. In the code snippet below, in Cell 'S" as part of the macro, I need it to filter on specific word strings (either ignoring or finding specific info) within the cells (.Range("S2:S7500")

I tried to record a Macro filtering on the cells, but it errors out due to the amount of data. Not sure if this is an unsolvable issue, but though I would ask.

If .Cells(i, "S") = "OU=Service" Then                .Rows(i).Copy sh7.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") = "OU=Service" AND  .Cells(i, "L") >= 365 Then
                .Rows(i).Copy sh9.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") = "OU=Service" AND .Cells(i, "M") >= 1095 Then
                .Rows(i).Copy sh10.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") = "OU=Service" AND .Cells(i, "M") >= 1065 Then
                .Rows(i).Copy sh11.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") = "OU=Service" AND .Cells(i, "C") <"SERVICE ACCOUNT"> Then
                .Rows(i).Copy sh12.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") <"OU=Service"> AND .Cells(i, "S") <"OU=Service"> Then
                .Rows(i).Copy sh13.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") <"OU=Service"> AND .Cells(i, "C") = "Service Account" Then
                .Rows(i).Copy sh14.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
            If .Cells(i, "S") <"OU=Users"> AND .Cells(i, "I") = <= 31 Then
                .Rows(i).Copy sh15.Cells(Rows.Count, 1).End(xlUp)(2)
            End If