Нужно сделать архив в Excel

[SanyaGR]

Есть два Excel файла (№1, №2). Открываем №1 Вводим в определенную ячейку значение, и с помощью макроса нужна сделать так чтобы с Excel файла №1 значение вырезалось и копировалось в ещё неоткрытый Excel №2. Но это сделать я магу. Прикол в другом. Мы скопировали в нас всё вышло, ставим другое значение в Excel №1 в ту самую ячейку, используем макрос и это значение должно вырезатца в Excel №2 только не в ту самую ячейку а в следующею, таким образом Excel №2 у нас должен работать как архив. Как это сделать проста я знаю точна что так делают но каааааак.

[Slimer]

Зачем это делать в экселе?

Зачем копировать в другой файл? Другой лист не пойдет?

Наверное надо вставлять еще дату и время изменения?

При каком событии должно копироваться? При изменении ячейки или при нажатии на кнопку какую?

Кидайте свой пример сразу, чего вокруг да около ходить.

[SanyaGR]

У меня есть готовая программа в екселе которой я пользуюсь уже около 4 лет и мне очень удобно. менять не хочу но теперь её нужно чуть модефицыровать.

Вообщето и другой лист пойдёт, просто их уменя и так выше крышы.

Я пичятаю накладные просто построено всё так что я ввожу каличество, цену патом :данные /фильтр / расшырённый фильтр, всё сортируетца и выходит накладная. А теперь использую макрос нажатием клавиш ано уменя печятаит 2 накладные, удаляет все внесённые значения и я сразу магу начинать пичятать следущюю накладную. А теперь нужно чтобы ано неудаляло накладную а копировало в отдельный файл или лист так чтоби я открыл через месяц и там всю за все числа.

Извените если што непанятна. Спрашывайте переспрашывайте. Буду обяснять

[e_man]

опубликуйте макрос

[SanyaGR]

Sub Печати()

'

' Печати Макрос

' Макрос записан 07.12.2006 (Паша)

'

' Сочетание клавиш: Ctrl+п

'

Sheets("Накладная").Select

Range("A4:H304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("A311:H312"), Unique:=False

Activewindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

Sheets("Заказ").Select

ActiveSheet.Unprotect

Sheets("Архив").Select

ActiveSheet.Unprotect

Sheets("Заказ").Select

Range("C1").Select

Selection.Copy

Range("C2:C609").Select

For Each Item In Selection

If Item = "" Then

Item.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Exit For

End If

Next Item

Range("E610:E912").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Архив").Select

Range("C2:IV2").Select

For Each Item In Selection

If Item = "" Then

Item.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Exit For

End If

Next Item

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("Заказ").Select

Range("E613:E912").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("C1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveWorkbook.Save

End Sub

Я не селён в екселе. Нашел готовый макрос Толька что к чему. Вот в этом макросе всё работает так как мне нужна. Но как записать.

[SanyaGR]

Вот гатовая програма с архивом. Как ана сделана?

склад_1.rar

склад_1.rar

[SanyaGR]

На листу (заказ) в пустую колонку напротив Білосніжка ставим любую цифру. Открываем макросы (печать) и в архиве при каждом нажатие макроса сохраняется цифра. Толька каждый раз она сохраняется в следующую колонку. Как это сделать? Как записать такой макрос, я понимаю что здесь не в макросе дело (а может в макросе), просто с помощью макроса нужно объединить много действий.

[SanyaGR]

Ну хоть какие идеи есть ???????????????????

[e_man]

надо поиграться с оператором If и его реакцией на непустые ячейки. возможно ещё какой-то счётчик добавить.

прошу прощения, пока в суть некогда вникать. но ничего сверхсложного там нет.

диапазоны задаются. вопрос в том - как заполнять. построково или по столбцам...

будет время - посижу пофантазирую что можно сделать.

как вариант - выделить ячейку под счётчик и по ней ориентировать номер строки заполнения.

т.е. набор операций таков: чтение ячейки счётчика, заполнение строки, прибавление заданного числа к счётчику, сохранение листа/документа...

[SanyaGR]

Я уже как только не игрался вроде просто но никак не выходит. Я не изучал ексель чё сам догадался всё маё. Поэтому сложно понимать многое что мне советуют но ничё в инэте есть все ответы.