Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
Bob Phillips provided this to an op on this forum and I would like a small
addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
Sub FindMergedCells() 'Bob Phillips
Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Range(collItem).Select Next collItem End Sub -- Gary''s Student "Mike Rogers" wrote: Bob Phillips provided this to an op on this forum and I would like a small addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
Gary''s Student
That was easy! I was close but had the syntax turned around. This selects the first occurance of merged cells after I move to the message box indicating the second occurance. The selection is one behind the msg box. Is there any way to have the msg box appear and the same range be selected at the same time? Thanks for your help!!! Mike Rogers "Gary''s Student" wrote: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Range(collItem).Select Next collItem End Sub -- Gary''s Student "Mike Rogers" wrote: Bob Phillips provided this to an op on this forum and I would like a small addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
We will just reverse the selection with the msgbox:
Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll Range(collItem).Select MsgBox collItem Next collItem End Sub -- Gary's Student "Mike Rogers" wrote: Gary''s Student That was easy! I was close but had the syntax turned around. This selects the first occurance of merged cells after I move to the message box indicating the second occurance. The selection is one behind the msg box. Is there any way to have the msg box appear and the same range be selected at the same time? Thanks for your help!!! Mike Rogers "Gary''s Student" wrote: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Range(collItem).Select Next collItem End Sub -- Gary''s Student "Mike Rogers" wrote: Bob Phillips provided this to an op on this forum and I would like a small addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
Gary''s Student
Very simple, very easy!!!! Thank you for your time and knowledge!!! Mike Rogers "Gary''s Student" wrote: We will just reverse the selection with the msgbox: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll Range(collItem).Select MsgBox collItem Next collItem End Sub -- Gary's Student "Mike Rogers" wrote: Gary''s Student That was easy! I was close but had the syntax turned around. This selects the first occurance of merged cells after I move to the message box indicating the second occurance. The selection is one behind the msg box. Is there any way to have the msg box appear and the same range be selected at the same time? Thanks for your help!!! Mike Rogers "Gary''s Student" wrote: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Range(collItem).Select Next collItem End Sub -- Gary''s Student "Mike Rogers" wrote: Bob Phillips provided this to an op on this forum and I would like a small addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Find Merged Cells
You are very welcome. Also thanks to Bob, who teaches me something new
nearly evey day. -- Gary's Student "Mike Rogers" wrote: Gary''s Student Very simple, very easy!!!! Thank you for your time and knowledge!!! Mike Rogers "Gary''s Student" wrote: We will just reverse the selection with the msgbox: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll Range(collItem).Select MsgBox collItem Next collItem End Sub -- Gary's Student "Mike Rogers" wrote: Gary''s Student That was easy! I was close but had the syntax turned around. This selects the first occurance of merged cells after I move to the message box indicating the second occurance. The selection is one behind the msg box. Is there any way to have the msg box appear and the same range be selected at the same time? Thanks for your help!!! Mike Rogers "Gary''s Student" wrote: Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Range(collItem).Select Next collItem End Sub -- Gary''s Student "Mike Rogers" wrote: Bob Phillips provided this to an op on this forum and I would like a small addition to it. What would I add to this to have each occurance selected as each message box appears? Sub FindMergedCells() 'Bob Phillips Dim cell As Range Dim coll As Collection Dim collItem Set coll = New Collection For Each cell In Range("A1:Z150") On Error Resume Next If cell.MergeCells Then coll.Add cell.MergeArea.Address(False, False), _ cell.MergeArea.Address(False, False) End If On Error GoTo 0 Next cell For Each collItem In coll MsgBox collItem Next collItem End Sub Thank you guys for all the help (and of course Bob) Mike Rogers |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calculating only non-empty cells... | Excel Worksheet Functions | |||
merged cells into one text cell, size varies dependant on text dat | Excel Discussion (Misc queries) | |||
Clearing the Contents of Merged Cells | New Users to Excel | |||
Getting Excel to treat merged cells as one cell when printing | Excel Discussion (Misc queries) | |||
paste special | values should work with merged cells | Excel Discussion (Misc queries) |