Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Требуется помощь срочно! / 20 сообщений из 20, страница 1 из 1
10.07.2007, 10:53:45
    #34649508
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Необходимо написать макрос (начальство поручило это мне), а я никогда с этим не сталкивалась.
есть 5 файлов из них надо скопировать инфу (из определенных ячеек) в итоговый файл и отсортировать.
привожу структуру файлов входных:
o Файл ГО (столбцы)
• Номер дела
• Дата заявления
• Дата происшествия
• ФИО страхователя
• Риск
• Код
• Марка модель
• Гос. рег. номер
• Номер полиса
• РЗУ
• Примечание
• Сумма выплаты
• Дата оплаты

o Файл КРК (столбцы)
• Номер дела
• Дата страхового случая
• Дата подачи заявления
• Номер полиса
• Страхователь
• Контактный телефон
• ТС клиента
• Гос номер ТС клиента
• Название СТОА
• Дата направления на СТОА
• РЗУ, руб
• Сумма выплаты
• Дата оплаты

o Файл ПСБ (столбцы)
• Номер дела в МСК
• Дата страхового случая
• Дата подачи заявления
• Номер полиса
• Страхователь
• Контактный телефон
• ТС клиента
• Гос номер ТС клиента
• Название СТОА
• Дата направления на СТОА
• РЗУ, руб
• Сумма
• Дата

o Файл РИНГ (столбцы)
• Номер дела в МСК
• Дата страхового случая
• Дата подачи заявления
• Номер полиса
• Страхователь
• Контактный телефон
• ТС клиента
• Гос номер ТС клиента
• Название СТОА
• Дата направления на СТОА
• РЗУ, руб
• Сумма выплаты
• Дата

o Файл Navision (столбцы)
• Но.
• Номер дела
• Договор Страх. Но.
• Страхователь
• Сатус Выплатного Дела
• Изменение Статуса Выплатного Дела
• Дата Инцидента
• Дата Заявления
• Заявленная Сумма
• Подтвержден. Сумма
• Гос. Регистрац. знак
• Марка
• Модель
• Описание
• Учтенная Сумма
• Контроль Срока
• Статус
• Код Территории
• Договор Стр. Действителен С
• Договор Стр. Действителен По
• Тип Полиса Название
• Регресс
• Потерпевший Имя


В результате работы макроса итоговый файл заполняется данными входных файлов из Журналов ГО, КРК, ПСБ, РИНГ и Журнала Navision.

причем в некоторых входных файлах есть несколько листов (по месяцам).

Соответствие столбцов итогового журнала и входных журналов приведено в прилагаемом файле xls. Так же его можно считать шаблоном итогового журнала (в части столбцов).
...
Рейтинг: 0 / 0
10.07.2007, 11:48:11
    #34649712
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
неужели никто не поможет?
...
Рейтинг: 0 / 0
10.07.2007, 13:24:11
    #34650144
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
неужели НИКТО девушке не поможет?
...
Рейтинг: 0 / 0
10.07.2007, 13:29:25
    #34650162
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
1) А где же файл
2) Вы слишком много просите это не помощь, это работа!
...
Рейтинг: 0 / 0
10.07.2007, 13:35:40
    #34650186
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
у меня не получается прикрепить файл(((
...
Рейтинг: 0 / 0
10.07.2007, 13:42:19
    #34650225
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Откуда мы знаем, что ВЫ девушка ? )
...
Рейтинг: 0 / 0
10.07.2007, 13:52:00
    #34650269
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
эх, сроки действительно горят. (( я пока научилась программно копировать в рамках одной книги информацию из разных листов.
задачу немного упростила, поработала с входными данными - теперь везде по одной странице.
задача свелась к копированию стоблцов (не всех) в исходный файл (1 столбец исходного содержит стоблцы всех входных фалов последовательно записанных) стоблцы могут содержать пустые ячейки - это пока для меня проблема((
...
Рейтинг: 0 / 0
10.07.2007, 14:03:53
    #34650312
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Мы бы с радостью но не знаем чем вам помочь, Конкретный вопрос задайте?
...
Рейтинг: 0 / 0
10.07.2007, 14:12:11
    #34650349
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
есть 5 файлов с данными (разные таблицы -название столбцов)
есть 1 файл итоговый который надо заполнить данными из 5 файлов (структура у него своя - столбцы)
известно соответствее всех столбцов файлов с данными столбцам исходного файла.
надо последовательно открывать файлы с данными и копировать определенные стобцы из данных в итоговый.
вот.
...
Рейтинг: 0 / 0
10.07.2007, 14:13:11
    #34650358
Lenus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
может можно обойтись и сводной таблицей ?
...
Рейтинг: 0 / 0
10.07.2007, 14:13:48
    #34650361
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
я не разобралась:
как скопировать столбец без его названия и как вставить это в итоговый файл по адресу ячейки
...
Рейтинг: 0 / 0
10.07.2007, 14:15:16
    #34650367
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Lenusможет можно обойтись и сводной таблицей ?

требуется написать макрос
...
Рейтинг: 0 / 0
10.07.2007, 14:48:42
    #34650519
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
gam_letя не разобралась:
как скопировать столбец без его названия и как вставить это в итоговый файл по адресу ячейки

Код: plaintext
Workbooks("Книга1.xls").Sheets("Лист1").Range("D2:D65536").Value = Workbooks("Книга.xls").Sheets("Лист1").Range("A2:A65536").Value
...
Рейтинг: 0 / 0
10.07.2007, 14:51:06
    #34650526
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Deggasad gam_letя не разобралась:
как скопировать столбец без его названия и как вставить это в итоговый файл по адресу ячейки

Код: plaintext
Workbooks("Книга1.xls").Sheets("Лист1").Range("D2:D65536").Value = Workbooks("Книга.xls").Sheets("Лист1").Range("A2:A65536").Value




дело в том что длинна столбца разная, так же могут быть незаполненные ячейки
...
Рейтинг: 0 / 0
10.07.2007, 15:20:35
    #34650641
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Последняя строка
Код: plaintext
 lastRow = ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row

Всесто ActiveSheet любой Лист
Всесто Cells любой диапазон яччеек или столбец какой-нибуть определённый!
...
Рейтинг: 0 / 0
10.07.2007, 15:43:42
    #34650718
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
вроде все сделала.
осталось отсортировать строки по значению одной ячейки.
т.е. есть множество строк с 15 столюцами. надо провести сортировку по 11 столбцу - если он заполнен, строку наверх. в результате сначала должно идти множество строк с заполненной ячейкой 11 столбца, а потом множество строк с пустой ячейкой 11 столбца.
не подскажите как сделать?
...
Рейтинг: 0 / 0
10.07.2007, 15:46:51
    #34650728
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Вот тут есть все что девушке надо для счастья:

http://www.rondebruin.nl/copy3.htm
http://www.rondebruin.nl/fso.htm
http://www.rondebruin.nl/merge.htm
http://www.rondebruin.nl/ado.htm
http://www.rondebruin.nl/copy2.htm

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
10.07.2007, 15:53:23
    #34650749
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
Может обычная сортировка
Код: plaintext
Selection.Sort Key1:=Range("K1")
Вместо
Selection - ваш диапазон
Вместо
K1 - первая ячека 11-го столбца с которой начинать сортировать!
...
Рейтинг: 0 / 0
10.07.2007, 15:53:36
    #34650750
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
полезный ресурс. спасибо!
...
Рейтинг: 0 / 0
10.07.2007, 15:56:46
    #34650759
gam_let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Требуется помощь срочно!
DeggasadМожет обычная сортировка
Код: plaintext
Selection.Sort Key1:=Range("K1")
Вместо
Selection - ваш диапазон
Вместо
K1 - первая ячека 11-го столбца с которой начинать сортировать!

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

Спасибо!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Требуется помощь срочно! / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]