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

[Vult]

спасибо огромное! пока понимаю в лучшем случае через строчку. попробую разобраться

[Hugo121]

Ну это уже полпути - нужные данные есть. Можно всю строку взять, или только нужные ячейки.
Теперь доделывайте часть, куда их копировать - я пока совершенно задачу не вижу. Так, только догадки...
Сперва вроде диапазон собирались копировать, теперь строка...
Или из этой строки возьмёте фирму, а далее будете по ней искать?

[Vult]

почему-то продублировался пост.

[Vult]

вот смотрите. я прикрепил 2 файла.
надо заполнить "Карточка проекта".
открываю файл, запускаю макрос.
появилось окошко, выбираю "проекты и рассчёты", появляется ещё одно окошко - выбираю строку. скажем строку 3, а из этой 3й строки макрос ползает и копирует 4 столб 1 ячейку в файл "карточка проекта" во 2ю строку 3й столбец ну и точно так же оставшиеся данные из этой строки "проектов и рассчётов" в другие ячейки. надеюсь я хоть немного понятно объяснил
нужны только конкретные ячейки, вся строка не актуальна

[Hugo121]

Объяснили понятно. Файлы где?

[Vult]

в первом посте

[Hugo121]

Option Explicit

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

    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    'на всякий случай
        Set sh = ActiveWorkbook.Sheets(1)

        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
                sh.Cells(2, 3) = .ActiveSheet.Cells(fromcopy.Row, "A")
                sh.Cells(5, 3) = .ActiveSheet.Cells(fromcopy.Row, "G")
                sh.Cells(6, 3) = .ActiveSheet.Cells(fromcopy.Row, "L")
                ' и т.д.
            End If
            .Close 0
        End With
    End With: Set fd = Nothing

    Application.ScreenUpdating = True
End Sub

Код можно держать хоть в Personal.xls и выполнять на активном файле по Alt+F8 (или кнопкой на панели).

[Vult]

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

[Hugo121]

Можно цифру.
Замените тип инпутбокса и вводите цифру, которую присваивайте переменной, которую используйте вместо fromcopy.Row.
Но сомневаюсь, что это будет удобнее.
"при копировании из ячейки G выдаёт число. хотя вроде копировать должно буквы" - я в столбце G вижу цифры
Но не важно - главное принцип.
Да, там для ячеек с датами нужно в шаблоне поменять формат.
Ещё - пока обедал, продумал такую схему - код в шаблон, на открытие шаблона ставите выполнение этого кода (а зачем ещё открывать шаблон?), в конце добавляете сохранение шаблона под нужным именем (например, сегодняшняя дата-время & название фирмы) формата xlsx (у Вас ведь 2007/10) - так макрос убъётся сам собой.
А неизменённый шаблон можно снова открывать.

[Vult]

да я думал просто файлу присвоить "для чтения". хотя с другой стороны, Вы правы, открывать его незачем