Вид для печати
> Задача вот какая... есть два файла в формате excel ////
> В обоих есть совпадающие по значению ячейки, так вот
> нужно...чтоб при запуске макроса...
> ячейки из одного файла сравнивались с другим...и при
> совпадении..... определенная ячейка из файла, допусти его
> название "А", копировалась в файл "И"
> Как это сделать????
Напишите примерчик...плизз:))
'ОТПРАВИТЬ ВО ВНЕШНИЙ
Private Sub CommandButton13_Click()
'открытие внешнего файла
имя_прог = ActiveWorkbook.Name
имя_файла = "Внешний_вых"
Unload Управ_1ск
Новый_внешний.Show
If новый_файл = "" Then Exit Sub
'проверка на открытие (если уже открыт)
ActiveWindow.ActivateNext
'поиск отрытого файла
While ActiveWorkbook.Name <> имя_прог
If ActiveWorkbook.Name = имя_файла & ".xls" Then 'если файл найден открытым
Sheets("Автонабор").Select
Cells(2, 1).Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(имя_прог).Activate
GoTo открытие 'выйти из цикла в случае обнаружения файла К
End If
ActiveWindow.ActivateNext 'искать (листать) дальше
Wend
открытие:
Workbooks.Open FileName:=Worksheets("ГЛАВНЫЙ").Cells(4, 4) & "\" & имя_файла & ".xls"
'очистка содержимого
строка = 2
While Cells(строка, 6) <> ""
строка = строка + 1
Wend
Range(Cells(2, 1), Cells(строка, 6)).Select
Selection.ClearContents
Cells(2, 1).Select
'набор во внешний_вых
строка_вых = 2: строка = 12
Windows(имя_прог).Activate
'определение ГДЕ
If Cells(3, 8) = "Р" Then
MsgBox "ПЕРЕЙДИТЕ НА СКЛАД С СООТВЕТСТВУЮЩИМ НОМЕРОМ!"
Exit Sub
End If
If Cells(3, 8) = "П" Then 'если из прихода
упак = 17
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 1) = Date
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 2) = "ПРИХОД"
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 6) = "**********************"
строка_вых = строка_вых + 1
While Cells(строка, 2) <> ""
If Cells(строка, упак + 2) <> 0 Then
'Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 1) = Date
'Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых + 1, 1) = "ПРИХ"
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 2) = Cells(строка, 9) 'наименование
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 3) = Cells(строка, 16) 'цена приходная
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 4) = Cells(строка, упак) 'упаковок
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 5) = Cells(строка, упак + 1) 'штук
Workbooks(имя_файла).Worksheets("Автонабор").Cells(строка_вых, 6) = Cells(строка, упак + 2) 'сумма
строка_вых = строка_вых + 1
End If
строка = строка + 1
Wend... а дальше сам )))
