Can anyone give me an indication of how to approach the problem described in the attached file
Thanks in advance
Can anyone give me an indication of how to approach the problem described in the attached file
Thanks in advance
This will work
Sub abc() Const shFoglio1 As String = "Foglio1" Const shFoglio2 As String = "Foglio2" With Worksheets(shFoglio1) For i = 6 To .Cells(Rows.Count, "c").End(xlUp).Row .Cells(i, "J").Value = _ Evaluate("=INDEX(" & shFoglio2 & "!E:E,MATCH(" & shFoglio1 & "!C" & i & "," & shFoglio2 & "!A:A,0))") Next End With End Sub
thanks mike7952
such a short code that does what I wanted ... for me it is magic !! :-)
the only thing I noticed is that the copied cell does not keep source formatting
in any case, thanks again
Looking at I though that it may solve my problem of matching . Downloaded the file and added as a module but get an error "value not defined" on For i . I thought it was a simple add module then run ... what am I doing wrong?
Compile error .jpg