Автоматизация одного процесса в работе

@SorryIamNoob · Регистрация: 21.07.2015

Author24 — интернет-сервис помощи студентам

Господа. Необходимо автоматизировать один процесс по работе, т.к. делать одни и те же действия вручную не очень умно.

Кусок моего excel-макроса.

Проблема: когда запускается поиск, то ищется конкретное значение, а должно искаться то, что скопировано.

Как я вижу решение:
1. Объявить переменную i (сделано)
2. Присвоить переменной i то значение, которое находится в буфере обмена
3. Искать переменную i в поиске
4. PROFIT

Visual Basic

Dim i As Long
    
    Selection.Copy
    Windows("ÂÈ.xls").Activate
    Cells.Find(What:="103073002", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Считаю, что моя проблема от незнания синтаксиса.

Заранее спасибо за ответы

@Казанский · 21.07.2015, 22:44

Проще брать не из буфера обмена, а из выделенного диапазона

Visual Basic

Dim i 'As Variant
    
    i = Selection.cells(1).value
    Windows("Г‚Г€.xls").Activate
    Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

@SorryIamNoob · 22.07.2015, 11:57 **[ТС]**

Благодарю за помощь, помогло.

@SorryIamNoob 0 / 0 / 0 Регистрация: 21.07.2015 Сообщений: 2
	22.07.2015, 11:57 [ТС]	3
	Благодарю за помощь, помогло. 0