Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compair first 5 numbers
Hello all i have a question i need to compair only the first 5 or 6 numbers
in Collumn A and Collumn B and put a the result in c I have it to right now where it will compair the whole list is there a way to get it to do only the first 5 0r 6 numbers my macro that i have for compairing the whole list is Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("A1:A3000") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub thank you Stephen |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compair first 5 numbers
Hi Stephen
Try this For Each x In Selection For Each y In CompareRange If Left(x, 5) = Left(y, 5) Then x.Offset(0, 1) = x Next y Next x Regards, Per "Srenfro" skrev i meddelelsen ... Hello all i have a question i need to compair only the first 5 or 6 numbers in Collumn A and Collumn B and put a the result in c I have it to right now where it will compair the whole list is there a way to get it to do only the first 5 0r 6 numbers my macro that i have for compairing the whole list is Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("A1:A3000") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub thank you Stephen |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
compair | Excel Worksheet Functions | |||
compair 2 excel file's and import data from 1 to the other | Excel Discussion (Misc queries) | |||
Compair two sheets and return differences | Excel Discussion (Misc queries) | |||
How to Compair two Excel files using Macro ? | Excel Programming | |||
need to compair two excell docs and find the changes | Excel Discussion (Misc queries) |