View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
kkknie[_157_] kkknie[_157_] is offline
external usenet poster
 
Posts: 1
Default count value in column and VBA

This should do it.

Sub test()

Dim i As Long

i = Range("S65536").End(xlUp).Row
Range("R" & i + 1).Value = "Total count"
Range("S" & i + 1).Value
Application.WorksheetFunction.CountIf(Range("S1:S" & i), "=No")

End Sub



--
Message posted from http://www.ExcelForum.com