Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
matching random text
I've done a couple simple macros, but new at this and can't figure this one
out. It would search column a for a stock symbol listed there 3 or more times and copy and paste that stock to column b. An example of what I would like the macro to do is below. If this is possible, any help would be appreciated, especially the code that would select the stock if it appears in column a 3 or more times. Thanks in advance. Lance Column A Column B ALKS DECK ASVI BEBE BLX BLX BONT CAE CETV CNTE CRFT CRMT CRMT DECK DECK DECK |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
matching random text
Lance,
Try this macro Row1 must have a heading for advanced filter to work Cecil Sub Macro1() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual LRA = Range("A" & Rows.Count).End(xlUp).Row Range("A1:A" & LRA).AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Range("B1"), Unique:=True LRB = Range("B" & Rows.Count).End(xlUp).Row For i = LRB To 2 Step -1 If Evaluate("COUNTIF(" & Range("A2:A" & LRA).Address _ & "," & Range("B" & i).Address & ")") < 3 Then Range("B" & i).Delete Shift:=xlUp End If Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub "Lance\Sheri" wrote in message news:5eqgb.509853$Oz4.364373@rwcrnsc54... I've done a couple simple macros, but new at this and can't figure this one out. It would search column a for a stock symbol listed there 3 or more times and copy and paste that stock to column b. An example of what I would like the macro to do is below. If this is possible, any help would be appreciated, especially the code that would select the stock if it appears in column a 3 or more times. Thanks in advance. Lance Column A Column B ALKS DECK ASVI BEBE BLX BLX BONT CAE CETV CNTE CRFT CRMT CRMT DECK DECK DECK |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Return Text based upon text matching | Excel Worksheet Functions | |||
Display text at random | Excel Discussion (Misc queries) | |||
Help with Matching Text Fields - Then Moving the Matching Cells Side by Side | Excel Discussion (Misc queries) | |||
Random Matching | Excel Worksheet Functions | |||
random number with text | Excel Worksheet Functions |