Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Реестр платежей
 
#1
30.03.2010 15:19:39
Цель:    
1) каждый день делается список предстоящих платежей и утверждается у директора (лист "ТРЕБУЕТСЯ НА ПОДПИСЬ").  
2) ведется общий реестр платежей (лист "ТРЕБУЕТСЯ ОБЩИЙ РЕЕСТР").  
 
Моя мысль (вариант 1)  
Ведем реестр прямо подряд со сквозной нумерацией. При этом сверху шапка, а снизу подвал документа с подписями.  
Каждый день пользователь:  
1) Вносит в реестр новые платежи.  
2) Запускает автофильтр по дате.  
3) Макрос схлопывает сквозную нумерацию.  
 
Затруднения:    
1) Как в ячейку F8 внести дату, по которой сработал афтофильтр?  
2) Как сделать нумерацию для конкретного дня после срабатывания автофильтра?  
 
Вариант 2 (не очень нравится)  
1. На листе "Подготовка" пишем все в столбик.  
2. Макросом вносим все в реестр (специальная вставка, транспонировать).  
3. Дергаем из реестра данные на лист "На подпись" (функции Vlookup, Index).  
 
Был бы очень признателен за помощь, особенно с первым вариантом. Он мне кажется достаточно перспективным.    
Второй вариант, мне кажется, неудачен.  
Есть еще варианты?  
 
В любом случае прошу помочь с вопросами по первому варианту - это будет огромная помощь мне в освоении Excel.  
 
 
Затрудняюсь:
 
 
 
#2
31.03.2010 07:07:14
У вас подозрительная организация.. вы оплачиваете все в тот-же день когда подходит срок ? отложенных платежей разве не бывает ?
 
 
 
#3
31.03.2010 09:35:09
Бывают. Тут главное получить визу директора. А бухгалтер потом перечисляет.
 
 
 
#4
31.03.2010 09:40:37
Свой вариант:  
база платежей с датой оплаты.  
нажимаем на кнопку - формируется отчет: шапка, платежи с нужной датой, подпись.
 
 
 
#5
31.03.2010 09:47:48
Я полагаю вариант должен быть следующий ..ведется база платежей , есть столбец оплаты в который ставится дата оплаты потом макросом или формулами как хотите подтягиваются нужные документы в лист с шаблоном на подпись, если че-то шеф вычеркнул , убрали дату и переформировали список. У меня есть оба подобных варианта .
 
 
 
#6
31.03.2010 10:01:41
{quote}{login=Микки}{date=31.03.2010 09:47}{thema=}{post}У меня есть оба подобных варианта .{/post}{/quote}  
 
Если можете поделиться, был бы очень признателен.  
Е-мейл: grabl<nos@pam>mail.ru  
 
Или сюда, на форум.
 
 
 
#7
31.03.2010 10:31:05
{quote}{login=}{date=31.03.2010 10:01}{thema=Re: }{post}{quote}{login=Микки}{date=31.03.2010 09:47}{thema=}{post}У меня есть оба подобных варианта .{/post}{/quote}  
 
Если можете поделиться, был бы очень признателен.  
Е-мейл: grabl<nos@pam>mail.ru  
 
Или сюда, на форум.{/post}{/quote}  
Я написал Вам на мэйл дошло или нет?
 
 
 
#8
31.03.2010 11:02:37
Pepper,  
попробуйте так.
 
 
 
#9
31.03.2010 11:26:58
Формулами для адаптации я Вам послал а макросом Вам уже сделали.. искать уже не буду.
 
 
 
#10
31.03.2010 11:48:57
Спасибо большое.  
Оба решения весьма заинтересовали.    
Буду думать, на это нужно время.  
 
Может быть, пока вот такие вопросы:  
Nilem, что-то я с обновлением даты не могу разобраться - мне кажется, эта процедура не работает.  
 
Микки, у Вас не схлопываются пустые строки.  
При этом они не пустые в прямом смысле - в них формула.  
Как их схлопнуть?
 
 
 
#11
31.03.2010 11:58:32
После того, как вы добавите новую запись с новой датой в таблицу, нажмите "Обновить даты". Новая дата будет включена в коллекцию Даты и отобразится в списке.  
Забыл. В коде кнопки "На печать" добавьте в самом начале  
Application.ScreenUpdating = False  
и в самом конце  
Application.ScreenUpdating = True
 
 
 
#12
31.03.2010 12:22:43
{quote}{login=}{date=31.03.2010 11:48}{thema=Re: }{post}Спасибо большое.  
Оба решения весьма заинтересовали.    
Буду думать, на это нужно время.  
 
Может быть, пока вот такие вопросы:  
Nilem, что-то я с обновлением даты не могу разобраться - мне кажется, эта процедура не работает.  
 
Микки, у Вас не схлопываются пустые строки.  
При этом они не пустые в прямом смысле - в них формула.  
Как их схлопнуть?{/post}{/quote}  
Это формулы они не могут схлопнуться ...для этого нужен макрос.. но тогда Вам нужно будет учится переписывать макрос при изменении исходных данных.
 
 
 
#13
31.03.2010 13:13:10
Микки,    
скрыть строки по условию я могу.  
Но вот беда - они не пусты, в них формула.  
Поэтому как-то с условием затруднился.
 
 
 
#14
04.04.2010 05:57:52
Кажется, что-то вырисовывается. Спасибо большое всем, кто помогает.  
 
Уперся в нумератор на листе Registry - не могу автоматизировать.    
Сейчас в файле - условно - исходное положение. Если нажать кнопку "Внести в архив" на листе Preparation, то, в принципе, все получается.  
Кроме нумератора. Т.е. если я вручную опять растяну ряд цифр в колонке сквозной нумерации, то макрос "Архивация" опять корректно сработает.  
 
Помогите, пожалуйста - как тут быть-то.    
 
Вообще был бы признателен за любую критику и предложения.
 
 
 
#15
04.04.2010 13:06:12
Держите вариант макроса.  
Поищите тему по определению границ данных. Вы использовали надежный, но не совсем эффективный способ.  
Кроме того, у Вас не все переменные были объявлены. Для избежания ошибок с переменными используйте Option Explicit. Старайтесь избегать использования Select. ВБА позволяет обрабатывать диапазоны ячеек и без выделения. Правда бывает что иногда эффективнее его использовать. Смотрите пример от KL  
http://www.planetaexcel.ru/forum.php?thread_id=14948  
 
Option Explicit  
Sub Архивация()  
'  
' Архивация Макрос  
' Макрос записан 04.04.2010 (Avatar)  
'  
 
   Dim row_count As Long, i As Integer, lRow As Long  
   'переменная row_count - для подсчёта количества заполненных ячеек  
   'переменная i используется в цикле для хранения номера текущей строки  
 
Application.ScreenUpdating = False  
 
   'последняя заполненая строка на активном листе  
   row_count = Cells(Rows.Count, 3).End(xlUp).Row  
 
   'операции с целевым листом  
   With Sheets("Registry")  
       'определяем первую не заполнную строку  
       lRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1  
       'очищаем от подписей  
       .Range(.Cells(lRow, 1), .Cells(lRow + 5, 8)).ClearContents  
 
       'копируем диапазон  
       Range(Cells(2, 1), Cells(row_count, 7)).Copy  
 
       'вставляем скопированные данные  
       .Cells(lRow, 2).PasteSpecial Paste:=xlPasteValues  
       'определяем новый размер данных  
       lRow = .Cells(Rows.Count, 2).End(xlUp).Row  
       'нумеруем используя свойство - Автозаполнение  
       .Range(.Cells(10, 1), .Cells(lRow, 1)).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1    ', Trend:=False  
 
       .Cells(lRow + 2, 3) = "Начальник______________"  
       .Cells(lRow + 4, 3) = "Дурак______________"  
 
   End With  
 
   MsgBox "Данные перенесены", vbInformation, "Готово"  
     
   Application.ScreenUpdating = True  
End Sub
 
 
 
#16
04.04.2010 13:09:38
Пример часто используемых в макросах инструкций.
 
 
 
#17
04.04.2010 14:07:14
Решение очень замечательное. Поразбираюсь, спасибо большое за помощь.    
Пока сложновато. Что-то у меня дебаггер ругается на вот эту строку:  
 
.Range(.Cells(10, 1), .Cells(lRow, 1)).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 ', Trend:=False  
 
Что не так?
 
 
 
#18
04.04.2010 17:16:32
Снимите автофильтр с даты, или как вариант добавьте в макрос строку перед началом работы с листом.  
Sheets("Registry").AutoFilterMode = False
 
 
 
#19
04.04.2010 17:37:44
Так у меня вся идея и заключалась в том, чтобы автофильтр был.  
Если его сбросить, а потом попытаться поставить опять,  
он появляется в первом ряду (я применил заполнение колонок А и В до 10 ряда).
 
 
 
#20
04.04.2010 19:48:49
Ну все же в Ваших руках:)
 
 
 
#21
04.04.2010 20:16:47
Спасибо большое. Буду переваривать информацию.
 
 
 
Страницы: 1
Читают тему
Наверх