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

[Hugo121]

Ну и это тоже - как заключительный штрих (чтоб никто шаблон не попортил).

[Vult]

сменил на type = 1, но при вводе значения, ничего не происходит)
sh.Cells(6, 3) = .ActiveSheet.Cells(fromcopy.Row, "L"), после копирования, вижу в ячейке это значение 40989,43333 (3)

[Hugo121]

1.
Dim i&
i = InputBox("Какую строку извлекать?", "Ввод значений")
sh.Cells(6, 3) = .ActiveSheet.Cells(i, "L"),
2.
40989,43333 - а Вы поставьте этой ячейке формат даты (я об этом уже писал).

[Vult]

понял, благодарю! даже немного начал понимать что есть что в коде благодаря Вашим примерам
а что означает символ & в объявлении переменной?
поправил строки, добавил переменную, почему-то не копирует. хотя и ошибки тоже нет.

[Hugo121]

Символ & заменяет as Long.
Т.е.
dim i& = dim i as long

Если всё правильно сделали - должно копировать.
Ведь было как:
получаем ссылку на строку:
Set fromcopy = Application.InputBox(prompt:="Selec t a Row to copy", Type:=8)
подставляем номер этой строки:
sh.Cells(2, 3) = .ActiveSheet.Cells(fromcopy.Row, "A")

Если теперь в инпутбоксе сразу спрашиваем номер строки, то его же позже и подставляем.

[Vult]

вот так вставлял:
Application.ScreenUpdating = True
On Error Resume Next
i = InputBox("Какую строку извлекать?", "Ввод значений")
On Error GoTo 0
Application.ScreenUpdating = False
If Not fromcopy Is Nothing Then
sh.Cells(2, 3) = .ActiveSheet.Cells(i, "A")
sh.Cells(5, 3) = .ActiveSheet.Cells(i, "G")
переменную объявил в начале кода

меняется как-то If Not fromcopy Is Nothing Then теперь?

да, принцип работы я понял с номером строки. а вот предыдущий не совсем. т.е. я понимаю, что мы выбирали диапазон, но не более того =)

[Hugo121]

А, ну да, это условие
If Not fromcopy Is Nothing Then
теперь нужно убрать - оно ведь всегда теперь nothing...

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

[Vult]

Сообщение от Hugo121

А, ну да, это условие
If Not fromcopy Is Nothing Then
теперь нужно убрать - оно ведь всегда теперь nothing...

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

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

[Vult]

ActiveWorkbook.SaveAs Filename:="C:\Users\1\Desktop\тут переменную указать?.xlsx",
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

[DiemonStar]

ActiveWorkbook.SaveCopyAs Format$(Now(), "hhmm_ddmmyyyy") & ".xls"

можно так попробовать)