Копирование из файла в файл по выбраной строке

[Vult]

Здравствуйте!
Случилось так, что на работе заставляют писать макрос, а я этим никогда не занимался.
Есть два xls файла: таблица с кучей столбов и оформленный файл.
Требуется, чтобы данные из таблицы копировались из определённой ячейки в определённую ячейку второго файла. Наполнение таблицы будет каждый раз меняться.
При этом, хотелось бы чтобы это выглядело так:
открываем красивый файл. жмём кнопку, выпадает окошко "выберите файл", выбираем, выпадает ещё одно окошко "выберите организацию" (организация это первый столбец таблицы) и уже исходя из выбранной организации, макрос выбирал значения остальных столбов и подставлял в файл, после чего сохранял заполненный файл уже без макросов.
Это вообще для человека далёкого от программирования реально написать?))
Начал читать в инете о vba программировании, но мне кажется, меня уволят раньше, чем я разберусь)

[Hugo121]

1. Без примера Ваших файлов и готового результата можно ответить только общими фразами (ну или если у кого есть код, делающий именно это с другими файлами - тогда есть шанс получить такой код )
2. Думаю, на Ваше место (если оно того стОит) есть немало желающих, умеющих писать макросы.
Я бы например пошёл за 1000 EUR на руки, если бы кто в моём городе предложил.
2а. Возможно можно договориться, если ничего не знаете, но хотите зарплату получать?

P.S. Если нужно всё сделать именно так, как Вы описали - думаю код будет не из элементарных.

[Vult]

ну я не программистом устраивался и о кодинге речи вообще не шло =)
а можно сделать хотя бы без "выбора", просто копирование значение из первой строки? Ну вроде жмём кнопку, Макрос копирует из 2й строки 1й столб в 3й столб 2й строки... а потом сохраняет в отдельный файл результат?

[Hugo121]

Тогда отбрыкивайтесь. А то на шею сядут, если "напишите". Нам сядут

Ну а вообще-то помочь конечно можно.

1. Сохранять без макросов - Вы не держите макрос в том файле, и этой проблемы не будет.
А если макросы удалять - что делать с кнопкой?
Думаю "открываем красивый файл. жмём кнопку" пусть будет в файле-инструменте.
В нём кнопка выбора файлов/файла, ну а я обычно делаю без кнопки - по Alt+F8 при активном нужном файле выполняю макрос из инструмента, открытого в фоне.
Тогда код можно использовать на любом файле, и его не нужно прописывать в коде или выбирать в ещё одном диалоге.

2. "выберите организацию" - тут думаю нужно сперва прочитать все организации выбранного файла в словарь или коллекцию, далее вывести форму с листбоксом, заполнить его из отобранных уникальных наименований, далее юзер может одну (или несколько) в листбоксе выбрать.
Проще, если на листе уже есть список уникальных организаций - тогда словарь/коллекция не нужны.

[Vult]

меня активно уверяют, что это довольно элементарный макрос, и я должен с этим справиться)
мол, если когда-то хоть чё-то кодил, значит должен разобраться.
последний раз я "кодил" в универе на делфи, и было это лет 6 назад. не меньше)

[Hugo121]

Если делать без выбора организации - тогда элементарный.
Можно после выбора файла прописать кодом где нужно элементарную ВПР(), затем заменить формулу на результат.
Или в коде использовать ВПР().

[Vult]

мне это мало о чём говорит!) ну вернее, принцип-то я понимаю, но каким образом строится код я не знаю.
напиши пожалуйста код на "открытие файла" и формулу на копирование из другого файла. Возможно-ли сделать так, чтоб пользователь выбирал строку из которой надо значения дёргать?

[Hugo121]

Такой пример выбора и открытия файла есть:

Sub OpenFile()
    Dim fd As FileDialog, ВыбранныйФайл As Variant

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Выбираем файл": .InitialFileName = ThisWorkbook.Path
        .Filters.Add "Excel", "*.xls;*.xlsx;*.xlsm", 1: .AllowMultiSelect = False
        If .Show = False Then Exit Sub
        Application.ScreenUpdating = False: ВыбранныйФайл = .SelectedItems(1)
        If ВыбранныйФайл = ThisWorkbook.FullName Then Exit Sub    'на всякий случай
        With Workbooks.Open(ВыбранныйФайл)
            'работаем
            .Close 0
        End With
    End With: Set fd = Nothing

    Application.ScreenUpdating = True
End Sub

[Vult]

вот там где "работаем" собственно и надо указание ячейкам давать, что им делать и откуда копироваться?))

[Hugo121]

Option Explicit

Sub OpenFile()
    Dim fd As FileDialog, ВыбранныйФайл As Variant
    Dim fromcopy As Range

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Выбираем файл": .InitialFileName = ThisWorkbook.Path
        .Filters.Add "Excel", "*.xls;*.xlsx;*.xlsm", 1: .AllowMultiSelect = False
        If .Show = False Then Exit Sub
        Application.ScreenUpdating = False: ВыбранныйФайл = .SelectedItems(1)
        If ВыбранныйФайл = ThisWorkbook.FullName Then Exit Sub    'на всякий случай
        With Workbooks.Open(ВыбранныйФайл)

            'работаем
            Application.ScreenUpdating = True
            On Error Resume Next
            Set fromcopy = Application.InputBox(prompt:="Select a Row to copy", Type:=8)
            On Error GoTo 0
            Application.ScreenUpdating = False
            If Not fromcopy Is Nothing Then
                'показываем данные третьего столбца выбранной строки
                MsgBox .ActiveSheet.Cells(fromcopy.Row, 3)
            End If
            .Close 0
        End With
    End With: Set fd = Nothing

    Application.ScreenUpdating = True
End Sub