Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
I have a unique problem I need help with. I have account numbers in column
A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' Thanks in advance for the help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
MyCount = WorksheetFunction.Count("A : A")
Msgbox MyCount or in one line MsgBox WorksheetFunction.CountA(Range("A : A")) "Donnie Stone" wrote in message ... I have a unique problem I need help with. I have account numbers in column A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' Thanks in advance for the help. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
This is based on John Walkenbach's code at:
http://j-walk.com/ss/excel/tips/tip47.htm Sub RemoveDuplicates() ' This example is based on a tip by J.G. Hussey, ' published in "Visual Basic Programmer's Journal" Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection ' The items are in A1:A105 Set AllCells = Range("A:A").SpecialCells(xlCellTypeConstants) ' The next statement ignores the error caused ' by attempting to add a duplicate key to the collection. ' The duplicate is not added - which is just what we want! On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) ' Note: the 2nd argument (key) for the Add method must be a string Next Cell MsgBox NoDupes.Count & " records were selected" End Sub -- Dianne In , Donnie Stone typed: I have a unique problem I need help with. I have account numbers in column A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
Dianne,
Thanks for the help, this works great. How can I change the default Title on the MsgBox? Regards, Donnie "Dianne" wrote in message ... This is based on John Walkenbach's code at: http://j-walk.com/ss/excel/tips/tip47.htm Sub RemoveDuplicates() ' This example is based on a tip by J.G. Hussey, ' published in "Visual Basic Programmer's Journal" Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection ' The items are in A1:A105 Set AllCells = Range("A:A").SpecialCells(xlCellTypeConstants) ' The next statement ignores the error caused ' by attempting to add a duplicate key to the collection. ' The duplicate is not added - which is just what we want! On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) ' Note: the 2nd argument (key) for the Add method must be a string Next Cell MsgBox NoDupes.Count & " records were selected" End Sub -- Dianne In , Donnie Stone typed: I have a unique problem I need help with. I have account numbers in column A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
From the VBA help file, here's the syntax for MsgBox:
MsgBox(prompt[, buttons] [, title] [, helpfile, context]) So to change the title: MsgBox NoDupes.Count _ & " records were selected", _ vbInformation, "My Title" There are a number of buttons and icons you can use on the message box -- above I have used the vbInformation icon. You can even change what buttons appear on the message box -- instead of OK, you can show Yes/No or Abort/Retry/Cancel. Check the Help for more options. -- HTH, Dianne In , Donnie Stone typed: Dianne, Thanks for the help, this works great. How can I change the default Title on the MsgBox? Regards, Donnie "Dianne" wrote in message ... This is based on John Walkenbach's code at: http://j-walk.com/ss/excel/tips/tip47.htm Sub RemoveDuplicates() ' This example is based on a tip by J.G. Hussey, ' published in "Visual Basic Programmer's Journal" Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection ' The items are in A1:A105 Set AllCells = Range("A:A").SpecialCells(xlCellTypeConstants) ' The next statement ignores the error caused ' by attempting to add a duplicate key to the collection. ' The duplicate is not added - which is just what we want! On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) ' Note: the 2nd argument (key) for the Add method must be a string Next Cell MsgBox NoDupes.Count & " records were selected" End Sub -- Dianne In , Donnie Stone typed: I have a unique problem I need help with. I have account numbers in column A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count Records & Display MsgBox
Thanks for the help.
"Dianne" wrote in message ... From the VBA help file, here's the syntax for MsgBox: MsgBox(prompt[, buttons] [, title] [, helpfile, context]) So to change the title: MsgBox NoDupes.Count _ & " records were selected", _ vbInformation, "My Title" There are a number of buttons and icons you can use on the message box -- above I have used the vbInformation icon. You can even change what buttons appear on the message box -- instead of OK, you can show Yes/No or Abort/Retry/Cancel. Check the Help for more options. -- HTH, Dianne In , Donnie Stone typed: Dianne, Thanks for the help, this works great. How can I change the default Title on the MsgBox? Regards, Donnie "Dianne" wrote in message ... This is based on John Walkenbach's code at: http://j-walk.com/ss/excel/tips/tip47.htm Sub RemoveDuplicates() ' This example is based on a tip by J.G. Hussey, ' published in "Visual Basic Programmer's Journal" Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection ' The items are in A1:A105 Set AllCells = Range("A:A").SpecialCells(xlCellTypeConstants) ' The next statement ignores the error caused ' by attempting to add a duplicate key to the collection. ' The duplicate is not added - which is just what we want! On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) ' Note: the 2nd argument (key) for the Add method must be a string Next Cell MsgBox NoDupes.Count & " records were selected" End Sub -- Dianne In , Donnie Stone typed: I have a unique problem I need help with. I have account numbers in column A, the range will vary at times. Finding the last cell automatically would be a big plus. A 1 103456 2 34567 3 589123 4 103456 5 761234 6 34568 7 34567 I would like to search column A, counting the number of accounts, the trick, I want to exclude the 2nd, 3rd, 4th, etc., matching records and display the count in a MsgBox. Based on the example above, I would like a MsgBox to display: '5 Records were Selected' |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Display MsgBox when selecting a sheet | Excel Discussion (Misc queries) | |||
How to display remaining txt file which overflowed MsgBox display? | Excel Discussion (Misc queries) | |||
How can the count of filtered records always display? | Excel Worksheet Functions | |||
DISPLAY RANGE AT MSGBOX | Excel Programming | |||
Specify font for MsgBox display? | Excel Programming |