From: mattg on 20 Apr 2010 13:06 I'm starting a similar project however this is a "running total" spreadsheet. I will be comparing the data in "myrange" with several different columns that will be added to each week. This week the comparison would be with "D" and "P" next week there will be another column. All columns will have the title "Route Number(s)". Here is what I have so far: With lastperiod 'Find the last used column myrange = ActiveSheet.UsedRange.Columns.Count ActiveSheet.Cells(1, myrange + 2).Select 'paste the info ActiveSheet.Paste 'start checking for duplicate route numbers Dim rngToSearch As Range Dim rngToFind As Range Dim rngFound As Range Dim rng As Range Dim wks As Worksheet Set wks = ActiveSheet With wks Set rngToSearch = .Cells(myrange + 2) Set rngToFind = "Jim Thomlinson" wrote: > Give this a whirl... > > Sub FindStuff() > Dim rngToSearch As Range > Dim rngToFind As Range > Dim rngFound As Range > Dim rng As Range > Dim wks As Worksheet > > Set wks = ActiveSheet > With wks > Set rngToSearch = .Columns("A") > Set rngToFind = .Range(.Range("B2"), .Cells(Rows.Count, "B").End(xlUp)) > End With > > For Each rng In rngToFind > Set rngFound = rngToSearch.Find(What:=rng.Value, _ > LookIn:=xlFormulas, _ > LookAt:=xlWhole, _ > MatchCase:=False) > If rngFound Is Nothing Then rng.Offset(0, 1).Value = "NA" > Next rng > > End Sub > > -- > HTH... > > Jim Thomlinson > > > "Paige" wrote: > > > I have 3 columns in a spreadsheet; data (which can be either numeric or > > alpha) in Column A always starts in Row 11 and can go for 5, 10, or 10000 > > rows (i.e., it varies each time). Data (which can be either numeric or > > alpha) in Column B always starts in row 2 and the last used cell can also > > vary each time. Column C is blank. I need a macro that will do the > > following: > > > > 1) Go to C2 and determine if Column A contains any instances of what is in > > cell B2; if it does, then skip down to C3. If Column A does not contain any > > instances of what is in cell B2, then enter 'N/A' in C2, and go on to C3. > > 2) Repeat this action through to the last used cell in Column B, at which > > time, go on to the rest of the sub that follows. > > > > Can someone please help me with this? Looping (and integrating last cell > > code) is beyond my expertise at this time, but I'm trying to learn. > > Thanks....Paige
|
Pages: 1 Prev: Need help with Trim function Next: Charting the Sum of Two, or More, Series of Data |