Hi everyone,

I am trying to promt the user with an input box "What column to
count", then use that column to count the number of "Y"s in the
column, and return the number in a message box. Here's what I have so
far:

Sub Count_Yes()

Dim Count_Col As Range

Set Count_Col = Application.InputBox(prompt:= _
"Select Any Cell in Column to Count", Type:=8)
If Count_Col Is Nothing Then
Exit Sub
End If

'Count Function
'Message Box

End Sub

Thanks for any help!

MsgBox WorksheetFunction.CountIf(Count_Col.EntireColumn, "Y")


Gord Dibben MS Excel MVP

On Tue, 17 May 2011 16:32:50 -0700 (PDT), Steve
wrote:

Hi everyone,

I am trying to promt the user with an input box "What column to
count", then use that column to count the number of "Y"s in the
column, and return the number in a message box. Here's what I have so
far:

Sub Count_Yes()

Dim Count_Col As Range

Set Count_Col = Application.InputBox(prompt:= _
"Select Any Cell in Column to Count", Type:=8)
If Count_Col Is Nothing Then
Exit Sub
End If

'Count Function
'Message Box

End Sub

Thanks for any help!

Sub Count_Yes()
Dim R As Integer
On Error Resume Next
With Application
R = .InputBox("Select Any Cell in Column to Count",
Type:=8).Column
If R < 0 Then MsgBox .WorksheetFunction.CountIf(Columns(R), "Y")
End With
End Sub


On May 18, 4:32*am, Steve wrote:
Hi everyone,

I am trying to promt the user with an input box "What column to
count", then use that column to count the number of "Y"s in the
column, and return the number in a message box. *Here's what I have so
far:

Sub Count_Yes()

Dim Count_Col As Range

* * Set Count_Col = Application.InputBox(prompt:= _
* * * * * * "Select Any Cell in Column to Count", Type:=8)
* * * * If Count_Col Is Nothing Then
* * * * * * Exit Sub
* * * * End If

* * * * 'Count Function
* * * * 'Message Box

End Sub

Thanks for any help!

Thanks Gord!

On May 17, 7:51*pm, Gord Dibben wrote:
MsgBox WorksheetFunction.CountIf(Count_Col.EntireColumn, "Y")

Gord Dibben * * MS Excel MVP

On Tue, 17 May 2011 16:32:50 -0700 (PDT), Steve
wrote:



Hi everyone,

I am trying to promt the user with an input box "What column to
count", then use that column to count the number of "Y"s in the
column, and return the number in a message box. *Here's what I have so
far:

Sub Count_Yes()

Dim Count_Col As Range

* *Set Count_Col = Application.InputBox(prompt:= _
* * * * * *"Select Any Cell in Column to Count", Type:=8)
* * * *If Count_Col Is Nothing Then
* * * * * *Exit Sub
* * * *End If

* * * *'Count Function
* * * *'Message Box

End Sub

Thanks for any help!- Hide quoted text -

- Show quoted text -