Não entendi direito sua colocação, mas tente o codigo abaixo e veja se lhe atende
Sub ModContar()
Dim Col As Long, Mes As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Mes = UCase(MonthName(Month(Now())))
Col = Application.Match(Mes, Sheets(2).Range("A2:N2"), 0)
Sheets(2).Select
Cells(3, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:a"), Range("B3"))
Cells(4, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:A"), Range("B4"))
Cells(5, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:A"), Range("B5"))
End Sub
Postado : 14/03/2012 2:14 pm