RE: Create a Macro with a List by jeanniev
jeanniev
Fri May 09 06:39:01 CDT 2008
Hi Bob:
Thank you for the offer to help me. I am working 14 -16 Hrs a day and just
don't have time right now to work through this...I do appreciate that you are
so willing to help me understand the Macro codes...When I have time, I will
definitely call upon you for assistance...it's just not possible right now.
I just wanted to uncomplicate this HUGE spreadsheet that I inherited.
My inkling is that you are an EXPERT, though!
--
jeannie v
"Bob Bridges" wrote:
> I'm no expert; I started VBA/Excel programming in earnest just a couple years
> ago, though I fooled around with it back just before Y2K.
>
> I can figure out what this does - it doesn't look very complicated - but if
> you don't already write code yourself then I should think it a bad idea for
> you to try to adapt someone else's program. Let me put that another way:
> It's a GOOD idea for you to adapt someone else's code, but you should sit
> down with it and figure out what it does and how you want to change it, not
> just ask someone else to help - because until you've sweated over it
> yourself, you don't know the code and will very possibly not recognize when
> it starts lying to you.
>
> I don't mind a bit helping you to understand it, and coaching you in getting
> it to what you want it to do. But unless we go through that work ("all that
> work"), decades of experience tell me it won't do you much good.
>
> --- "jeannie v" wrote:
> > This is the Macro I used a couple of years ago....honestly, one of you,
> > experts, gave this to me and it was much more advanced than I was able to
> > build....Is there someway we could make it work for the example I documented
> > below.....I got so lost when I tried to adapt this to what I wanted. This is
> > more than what I need, I think...Can you help?
> >
> > Dim n As Integer, i As Integer, j As Integer, k As Integer, m As Integer
> > Dim rng As Range, dest As Range
> > Dim wss As Worksheet, wsd As Worksheet, wsl As Worksheet
> > Dim mName As String, mSheet As String
> >
> > Set wsl = ThisWorkbook.Sheets("List")
> > Set wss = ThisWorkbook.Sheets("Summary")
> > wsl.Activate
> > k = wsl.Cells(Rows.Count, "A").End(xlUp).Row
> > If k = 0 Then Exit Sub
> > For m = 1 To k
> > mName = wsl.Cells(m, 1).Value: mSheet = wsl.Cells(m, 2).Value
> > Set wsd = ThisWorkbook.Sheets(mSheet)
> > n = wss.Cells(Rows.Count, "A").End(xlUp).Row
> > For i = 1 To n
> > j = WorksheetFunction.CountA(Range("A3:A17")) + 4
> > wsd.Activate
> > Set dest = wsd.Range("A" & j & ":L" & j)
> > If wss.Cells(i, "A").Value = mName Then
> > wss.Range("A" & i & ":L" & i).Copy
> > dest.Select
> > Selection.PasteSpecial Paste:=xlPasteValues
> > End If
> > Next i
> > Next m
> >
> > --- "Bob Bridges" wrote:
> > > It sounds to me as though you already have an idea of how the program
> > > should work and something about it isn't doing what you think it should. Can
> > > you post some code and the error message, or whatever behavior you get that
> > > isn't what you want? I could say "just have your code look through the original
> > > report page and pull up the rows that have the name (or whatever) that you
> > > want, and then..." But doubtless you're already doing that, or trying.
> > >
> > > --- "jeannie v" wrote:
> > > > > I would like to build a macro with the List for multiple individuals that
> > > > > will then enter the data from the List to the Summary Worksheet in the
> > > > > same Workbook. This is the example of what I want to do....
> > > > >
> > > > > List Sheet
> > > > >
> > > > > John Jones in Column A....123456 in Column B...ABCDF in Column C and
> > > > > 90.05% in Column D
> > > > >
> > > > > Put that data on the Summary Worksheet in Columns B, C, D & E
> > > > >
> > > > > I would also like to remove the % sign in Column D
> > > > >
> > > > > Can anyone help me with this? I would appreciate any assistance you can
> > > > > provide. I'm working on a new reporting document that is using
> > > > > VLOOKUPs - a lot of them every month - I think the Macro would be more
> > > > > efficient, but I need your help to build on.