|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.08.2009, 10:28 | #1 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 41
|
Путь к файлу
Подскажите, в одну книгу нужно перенести данные из другой книги (путь в ней известен), из определнного столбца, например из 2ого, но переносить только те значения, для которых в той же строке, но в столбце 7 в ячейке имеется запись "DM"?
|
12.08.2009, 10:40 | #2 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Формулы или макрос?
если формулы, то можно так Код:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
12.08.2009, 10:57 | #3 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 41
|
Лучше макрос, но он выдаёт ошибку 91: Object variable or With block variable not set...(
|
12.08.2009, 11:01 | #4 | |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Цитата:
Код:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
|
12.08.2009, 11:27 | #5 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 41
|
Sub prod()
Dim Ws As Worksheet: Set Wb = ActiveWorkbook.ActiveSheet Workbooks.Open "\\eupmiruspbfnp07\home$\AGOGIUNO\T ask2Info\PM RU Production plan 2009.xls" Dim rFndRng As Range Dim sAddress As String Set rFndRng = Columns(7).Find(What:="DM", LookAt:=xlWhole) If rFndRng Is Nothing Then Exit Sub sAddress = rFndRng.Address Do Ws.Cells(rFndRng.Row, 64) = Cells(rFndRng.Row, 2) Loop While sAddress <> rFndRng.Address End Sub написано всё было правильно сразу, книга открывалась, только дальше выскакивала ошибка, теперь ошибки нет, но и рез-та тоже нет.. Я попробовала примитивный код, но всё то же, т.е. книга открывается, но рез-та нет: Sub prod() Dim i, j As Integer Dim pr As String Workbooks.Open "\\eupmiruspbfnp07\home$\AGOGIUNO\T ask2Info\PM RU Production plan 2009.xls" i = 5 j = 4 If Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 7).Value = "DM" _ And Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 8).Value = "IZ" Then pr = Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 2).Value Workbooks("FGreports").Worksheets(" PrDailyPlan").Cells(j, 1).Value = pr End If End Sub |
12.08.2009, 11:44 | #6 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Посмотрите на нужном ли листе открывается книга PM RU Production plan 2009.xls. Не пустая ли ячейка в столбце 2 этой книги. А то может у Вас все ячейки столбца 2, в строках с "DM", пустые.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
12.08.2009, 11:56 | #7 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 41
|
активировала нужный лист, ничего не изменилось, ячейки не пустые
|
12.08.2009, 12:01 | #8 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Нужны файлы. Если есть какая-либо конфедециалная информация - удалите. Оставьте только строки, важные для макроса.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
12.08.2009, 12:19 | #9 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 41
|
Вообще нужно, чтобы выполнялось два условия: в 7ом стоблце значение "DM", а в 8м "IZ".
|
12.08.2009, 12:31 | #10 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Все ясно. Сделайте так
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Путь к файлу | artemavd | Общие вопросы Delphi | 12 | 24.03.2009 14:09 |
Путь к файлу | Slash | Общие вопросы Delphi | 3 | 27.11.2008 14:02 |
Путь к файлу | Баламут | Win Api | 12 | 14.05.2008 13:27 |
Путь к файлу | Terran | Общие вопросы Delphi | 3 | 13.04.2008 01:18 |
Путь к файлу | Лубышев | Общие вопросы Delphi | 2 | 10.02.2008 21:13 |