Shorter version of code needed

[kelly mort]

Hi, I have these lines that I need to make shorter with a for loop or anything cooler. I have been on the offset thing for a while now, can’t seem to figure it out.


I want someone pull me out. Thanks

Sub getCount()
    Dim i&, j&
                
    i = Me.cbByName.ListIndex
    j = i + 3
    
    With Sheet11


        [B2] = Application.CountIf(.Range("I" & j & ":" & "M" & j), "/")
        
        [B3] = Application.CountIf(.Range("N" & j & ":" & "R" & j), "/")
        [B4] = Application.CountIf(.Range("S" & j & ":" & "W" & j), "/")
        [B5] = Application.CountIf(.Range("X" & j & ":" & "AB" & j), "/")
        [B6] = Application.CountIf(.Range("AC" & j & ":" & "AG" & j), "/")
        [B7] = Application.CountIf(.Range("AH" & j & ":" & "AL" & j), "/")
        [B8] = Application.CountIf(.Range("AM" & j & ":" & "AQ" & j), "/")
        [B9] = Application.CountIf(.Range("AR" & j & ":" & "AV" & j), "/")
        [B10] = Application.CountIf(.Range("AW" & j & ":" & "BA" & j), "/")
        [B11] = Application.CountIf(.Range("BB" & j & ":" & "BF" & j), "/")
        [B12] = Application.CountIf(.Range("BG" & j & ":" & "BK" & j), "/")
        [B13] = Application.CountIf(.Range("BL" & j & ":" & "BP" & j), "/")
    End With
End Sub

 

[Fluff]

How about

Sub kellymort()
   Dim i As Long, j As Long, r As Long
   
   j = Me.cbByName.ListIndex + 3
   r = 1
   With Sheet11
   For i = 9 To 64 Step 5
      r = r + 1
      .Range("B" & r).Value = Application.CountIf(.Range(.Cells(j, i), .Cells(j, i + 4)), "/")
   Next i
End Sub

 

[kelly mort]

How about

Sub kellymort()
   Dim i As Long, j As Long, r As Long
   
   j = Me.cbByName.ListIndex + 3
   r = 1
   With Sheet11
   For i = 9 To 64 Step 5
      r = r + 1
      .Range("B" & r).Value = Application.CountIf(.Range(.Cells(j, i), .Cells(j, i + 4)), "/")
   Next i
End Sub

Indeed, "there is always a better way"

Very smooth.

I appreciate it.

Have a nice time

 

[Fluff]

You're welcome & thanks for the feedback