Будьте милосердны, с утра пришлось изучать VBA :-) Подскажите по ходу
Дано:
Значения находятся по строчно
В лист1 столбец (ст.) А- таб. номер (не полный с начала)
L- таб. номер + фамилия (поиском значение из ст. А находится в этом ст.)
С- новый таб. номер какой должен быть
Надо:
В ст. А вставить нужное значение ст. С
Мысли:
Если в цикле по ст. А находить в ст. L нужную строку и в этой строке переходить на ст. С
и оттуда копировать значение в ст А.

Реализация:
Sub Макрос1()
For Each r_temp1 In Worksheets("Лист1").Range("A3:A119").Cells
For Each r_temp2 In Worksheets("Лист1").Range("L3:L1254").Cells
Range("L3:L1254").Select
' Это к сожалению не работает
If (Selection.Find(What:=r_temp2, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate) Then
r = Cells.Select
......
End If
Next r_temp2
Next r_temp1
End Sub
Как мне воспользоваться поиском, значения, копирования и вставки. Благодарствую за за любую мысль по теме ))