Please correct for me this code
 

Hi guys

-I would like to compare to columns (A, S) ,
for exemple A2 with the hole of S until the lastrow
-and if for exemple A2 = S10, then I like to put all the row (M10, N10
O10, P 10, Q 10 and R10) in another coloumn X2.
This the code I did but it doesnot work please coreect ift for me i
you could (please stay simple because I am new in Macros)

Sub comparetwocoloumns()
'
'
Dim rng As Range, i As Long, LastRow As Long, res As Variant
Range("S2").Select
LastRow = Selection.End(xlDown).Select
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
For i = 2 To LastRow
res = Application.Match("A & i : A & LastRow", "S & i", 0)
If Not IsError(res) Then
Cells("X & i").Value = _
Cells("M & i: R & i").Value
End If
Next i
End Sub

many thanks for the hel

--
Freeman_10
-----------------------------------------------------------------------
Freeman_100's Profile: http://www.excelforum.com/member.php...fo&userid=3320
View this thread: http://www.excelforum.com/showthread.php?threadid=53202

Please correct for me this code
 

Try this:

Sub comparetwocoloumns()
'
'
Dim rng As Range, i As Long, LastRow As Long, res As Variant

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
For i = 2 To LastRow
res = Application.Match(Cells(i, "A"), Range("S:S"), 0)
If Not IsError(res) Then
Cells(res, "M").Resize(1, 6).Copy Cells(i, "X")
End If
Next i
End Sub

"Freeman_100" wrote:


Hi guys

-I would like to compare to columns (A, S) ,
for exemple A2 with the hole of S until the lastrow
-and if for exemple A2 = S10, then I like to put all the row (M10, N10,
O10, P 10, Q 10 and R10) in another coloumn X2.
This the code I did but it doesnot work please coreect ift for me if
you could (please stay simple because I am new in Macros)

Sub comparetwocoloumns()
'
'
Dim rng As Range, i As Long, LastRow As Long, res As Variant
Range("S2").Select
LastRow = Selection.End(xlDown).Select
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
For i = 2 To LastRow
res = Application.Match("A & i : A & LastRow", "S & i", 0)
If Not IsError(res) Then
Cells("X & i").Value = _
Cells("M & i: R & i").Value
End If
Next i
End Sub

many thanks for the help


--
Freeman_100
------------------------------------------------------------------------
Freeman_100's Profile: http://www.excelforum.com/member.php...o&userid=33208
View this thread: http://www.excelforum.com/showthread...hreadid=532024