I believe the forum is not able to comprehend what 'can i get excel to read a menu with selections using "X" in a cell' is trying to convey. Maybe you want to rephrase it, or share an example of what you are trying to do.
Sam On Fri, Oct 7, 2011 at 10:55 PM, Monizri <moni...@gmail.com> wrote: > Hi, I have the following code that searches for data based on what i > type in it (in this case it is "FHCX") and posts it in a new sheet. > How can i get excel to read a menu with selections using "X" in a cell > and feed it into the code below to produce results on a new tab? > > Sub ServiceReport() > ' Copy the selected range to the Report worksheet > Dim WSD As Worksheet ' Data worksheet > Dim WSR As Worksheet ' Report worksheet > > Set WSD = Worksheets("Data") > > ' Add a new worksheet to this workbook > Set WSR = Worksheets.Add(after:=Worksheets("Data")) > > ' Rename the new worksheet & set up titles > WSR.Name = "Service" > WSR.Cells(1, 1) = "Service Report" > WSR.Cells(1, 1).Font.Size = 14 > > WSD.Range("A1:E1").Copy Destination:=WSR.Cells(3, 1) > NextRow = 4 > > > ' Loop through all records on WSD > FinalRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row > For i = 2 To FinalRow > If WSD.Cells(i, 2) = "FHCX" Then > ' Copy this record to the next row on WSR > WSD.Cells(i, 1).Resize(1, 5).Copy > Destination:=WSR.Cells(NextRow, 1) > NextRow = NextRow + 1 > End If > Next i > > ' Make sure WSR is the active sheet > WSR.Select > > ' Report that the macro is done > MsgBox Prompt:=NextRow - 4 & " service records copied to the > service report." > > End Sub > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Sam Mathai Chacko -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel