Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
send value to a cell instead on MsgBox
I am using a countIf statement to count occurances of certain values
right now they are being displayed in a MsgBox but i want to have th value pasted into a specific cell instead of the MsgBox. Below is th code that I have so far. Can someone tell me the easiest way to mak this change. ---------------------------------------------------------- Private Sub S350btn_Click() Dim S350 As String Dim Gate1 As String Dim Gate2 As String Dim Gate4 As String S350 = "350" Gate1 = "Gate 1" Gate2 = "Gate 2" Gate4 = "Gate 4" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" Gate1 & "*"), , "S350 Gate 1" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" Gate2 & "*"), , "S350 Gate 2" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" Gate4 & "*"), , "S350 Gate 4" End Sub -------------------------------------------------------------- Thank you Morr -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
send value to a cell instead on MsgBox
Hi
try something like activesheet.range("A1").value = Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" & Gate1 & "*") -- Regards Frank Kabel Frankfurt, Germany I am using a countIf statement to count occurances of certain values, right now they are being displayed in a MsgBox but i want to have the value pasted into a specific cell instead of the MsgBox. Below is the code that I have so far. Can someone tell me the easiest way to make this change. ---------------------------------------------------------- Private Sub S350btn_Click() Dim S350 As String Dim Gate1 As String Dim Gate2 As String Dim Gate4 As String S350 = "350" Gate1 = "Gate 1" Gate2 = "Gate 2" Gate4 = "Gate 4" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" & Gate1 & "*"), , "S350 Gate 1" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" & Gate2 & "*"), , "S350 Gate 2" MsgBox Application.CountIf(Range("B:B"), "*" & S350 & "*" & "*" & Gate4 & "*"), , "S350 Gate 4" End Sub -------------------------------------------------------------- Thank you Morry --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
send value to a cell instead on MsgBox
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel msgbox when cell range is clicked | Excel Discussion (Misc queries) | |||
msgBox after update a cell | Excel Discussion (Misc queries) | |||
display cell value in msgbox formatted as % | Excel Discussion (Misc queries) | |||
How to put the value form cell into the msgbox | Excel Programming | |||
MsgBox for a range and not one cell change please: | Excel Programming |