Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Копирование данных в архив.
 
#1
17.01.2010 04:30:30
Доброй ночи.  
в Поиске много прочитал на данном форуме про автоматическое копирование на другой лист, но все не то что бы хотелось.  
Прошу у Вас помощи.  
Есть база данных она находится на одном листе, архив базы данных на другом.  
Необходимо сделать так, что бы в первой ячейку например я поставил букву "A" и вся строчка с копировалась в архив на пустую строчку ниже. при этом можно было бы убирать букву "A" и ставить в другую ячейку.  
 
Всем спс за ответы.
 
 
 
#2
17.01.2010 13:06:16
1. Чем архив БД отличается от самой БД?  
2. Где файл-пример, в котором всё это показано?  
3. Загляните в Правила.
 
 
 
#3
17.01.2010 13:52:47
1. не чем не отлчиается.  
2. файл пример прилагаю.  
   
Нужно в ячейку А4 и ниже вести к примеру букву А и вся строчка переносится в архив.
 
 
 
#4
17.01.2010 14:05:00
{quote}{login=wadim82}{date=17.01.2010 01:52}{thema=}{post}1.    
Нужно в ячейку А4 и ниже вести к примеру букву А {/post}{/quote}  
Ячейка А4 есть на обоих листах. Вы же не указали где БД, а где архив БД. Одно радует - родной Калининград :-)
 
 
 
#5
17.01.2010 14:11:20
{quote}{login=Юрий М}{date=17.01.2010 02:05}{thema=Re: }{post}{quote}{login=wadim82}{date=17.01.2010 01:52}{thema=}{post}1.    
Нужно в ячейку А4 и ниже вести к примеру букву А {/post}{/quote}  
Ячейка А4 есть на обоих листах. Вы же не указали где БД, а где архив БД. Одно радует - родной Калининград :-){/post}{/quote}  
 
Юрий, первый лист БД второй лист БД...  
Они одинаковые полностью, только в архиве будет дата снятие а в главном дата постановки....  
А что в с калининграда? или просто знаете его?
 
 
 
#6
17.01.2010 14:13:52
Файл делал быстро....  
Но оба они в оригинале как зеркало.  
соответственно в БД будут появляться строки и удалятся.  
в архиве только добавляться.
 
 
 
#7
17.01.2010 14:20:24
Не, ну как так можно? ..."первый лист БД второй лист БД..." Так АРХИВ КАКОЙ ЛИСТ?  
Жил и учился в Калининграде. Сейчас в Балтийске.
 
 
 
#8
17.01.2010 14:25:15
{quote}{login=Юрий М}{date=17.01.2010 02:20}{thema=}{post}Не, ну как так можно? ..."первый лист БД второй лист БД..." Так АРХИВ КАКОЙ ЛИСТ?  
Жил и учился в Калининграде. Сейчас в Балтийске.{/post}{/quote}  
 
Еще сплю, извините.  
Земляки значит, очень рад.  
Юрий второй лист АРХИВ.  
туда нужна копировать информацию.
 
 
 
#9
17.01.2010 14:27:46
{quote}{login=wadim82}{date=17.01.2010 02:25}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.01.2010 02:20}{thema=}{post}Не, ну как так можно? ..."первый лист БД второй лист БД..." Так АРХИВ КАКОЙ ЛИСТ?  
Жил и учился в Калининграде. Сейчас в Балтийске.{/post}{/quote}  
 
Еще сплю, извините.  
Земляки значит, очень рад.  
Юрий второй лист АРХИВ.  
туда нужна копировать информацию.{/post}{/quote}
 
 
 
#10
17.01.2010 14:51:27
Проверьте.
 
 
 
#11
17.01.2010 15:05:32
Класс, спс. огромное.  
А как это сделано с помощью макроса??? если не затруднит можете написать как???  
 
Очень помогли....спс.
 
 
 
#12
17.01.2010 15:09:04
С помощью макроса, конечно. Код в модуле листа "База". А вот рассказать - боюсь, не хватит формата Форума :-) Нужно почитать литературу, посмотреть примеры на Форуме...
 
 
 
#13
17.01.2010 15:11:21
{quote}{login=wadim82}{date=17.01.2010 03:05}{thema=}{post}Класс, спс. огромное.  
А как это сделано с помощью макроса??? если не затруднит можете написать как???  
 
Очень помогли....спс.{/post}{/quote}  
 
Разобрался, код скопировал куда нужно и все работает.  
 
Юрий еще маленький вопрос, реально ли сделать так что при копировании в АРХИВ на главном листе БД удалялась ДАТА снятие, ну или указать диапазон например столбец С:С если он заполнен то при копирование в архив он сам очищается...
 
 
 
#14
17.01.2010 15:14:21
Юрий, а почему когда я добавил строку удаления строки после копирования. Начало выдавать ошибку "type mistake"  
 
        If Target = "a" Or Target = "а" Then  
           Range(Target.Offset(0, 1), Target.Offset(0, 20)).Copy .Cells(LastRow + 1, 2)  
           Range(Target.Offset(0, 0), Target.Offset(0, 20)).Delete  
        End If
 
 
 
#15
17.01.2010 15:14:24
Если быть точным то столбцы H и S там будет устанавливаться дата снятие.эта информация необходима только в архиве.
 
 
 
#16
17.01.2010 15:20:46
С удалением двух дат.
 
 
 
#17
17.01.2010 15:21:20
.
 
 
 
#18
17.01.2010 15:22:32
{quote}{login=Dophin}{date=17.01.2010 03:14}{thema=}{post}Юрий, а почему когда я добавил строку удаления строки после копирования. Начало выдавать ошибку "type mistake"  
 
        If Target = "a" Or Target = "а" Then  
           Range(Target.Offset(0, 1), Target.Offset(0, 20)).Copy .Cells(LastRow + 1, 2)  
           Range(Target.Offset(0, 0), Target.Offset(0, 20)).Delete  
        End If{/post}{/quote}  
Нужно было просто указать номер удаляемой строки. Не указывая диапазон.
 
 
 
#19
17.01.2010 15:31:32
Rows(Target.Row).Delete
 
 
 
#20
17.01.2010 15:37:25
{quote}{login=Юрий М}{date=17.01.2010 03:21}{thema=}{post}.{/post}{/quote}  
 
спс огромное....все работает.
 
 
 
#21
17.01.2010 16:04:21
спасибо)
 
 
 
#22
19.01.2010 13:41:54
Добрый день, дорогие форумчане.  
Юрий М. нужна Ваша помощь.  
В файле примере все написано что необходимо.  
Жду Вашей помощи.
 
 
 
#23
19.01.2010 14:16:50
{quote}{login=wadim82}{date=19.01.2010 01:41}{thema=}{post}Добрый день, дорогие форумчане.  
Юрий М. нужна Ваша помощь.  
В файле примере все написано что необходимо.  
Жду Вашей помощи.{/post}{/quote}  
Исправил пример.
 
 
 
Страницы: 1
Читают тему
Наверх