|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.05.2012, 02:15 | #1 |
Регистрация: 01.05.2012
Сообщений: 5
|
Block if without end if (error)
Помогите пжста дописать макрос, никак не могу с ним побороться
выдает ошибку Block if without end if в книге есть 2 листа - необходимо перенести данные из одного листа в другой со след. условиями: выбрать из второго листа (столбец A) только те строки, в которых есть нужная дата (ячейка AW2); добавлять строки из второго листа на пустую строку первого листа Private Sub CommandButton1_Click() Dim j As Integer j = 2 For i = 3 To 1000 work: While Trim(Sheets("1").Range("G" & CStr(j)).Text) <> "" j = j + 1 Wend If Sheets("2").Range("A" & CStr(i)).Value = Range("AW2").Value Then If Trim(Sheets("1").Range("G" & CStr(j + 1)).Text) = "" Then If Trim(Sheets("1").Range("G" & CStr(j + 2)).Text) = "" Then Sheets("1").Range("A" & CStr(j)) = Sheets("2").Range("A" & CStr(j)) MsgBox ("строка " & Sheets("2").Range("G" & CStr(j)) & " добавлена") Else j = j + 1 GoTo work End If Else j = j + 1 GoTo work End If j = 5 End Sub |
11.05.2012, 07:41 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
займитесь арифметикой--- сколько if\endif
----------------- не баланс угадать место вставки недостающего можете только вы сами --------------- Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
11.05.2012, 08:35 | #3 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
попробуйте выложить файл исходными с данными, а то непонятно, на каком из листов находится
Цитата:
Правильно поставленная задача - три четверти решения.
|
|
12.05.2012, 00:02 | #4 | |
Регистрация: 01.05.2012
Сообщений: 5
|
Цитата:
|
|
12.05.2012, 00:09 | #5 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
у вас оказывается и next i отсутствует
не заметила
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
12.05.2012, 00:11 | #6 |
Форумчанин
Регистрация: 24.02.2012
Сообщений: 160
|
Даа, беда не только с арифметикой.
Где Next для Код:
|
12.05.2012, 00:23 | #7 |
Регистрация: 01.05.2012
Сообщений: 5
|
сам файл..
|
12.05.2012, 00:29 | #8 |
Регистрация: 01.05.2012
Сообщений: 5
|
|
12.05.2012, 08:23 | #9 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
Код:
--отбор по дате --отбор по пустым записям +1 и +2 не поняла --пронумеровала ивановых, чтобы видеть кто есть кто --получила иванов1 пустая пустая иванов4 иванов5 иванов6 скажите по русски, что вы ищете
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
12.05.2012, 22:25 | #10 |
Регистрация: 01.05.2012
Сообщений: 5
|
макрос работает, именно такой и нужен, спасибо
только почему-то не делается выборка по дате - должно быть так: макрос ищет нужную дату (которая предварительно вводится в ячейку AW2 листа 2) в столбце A листа 1, далее копирует строки, в которых есть нужная дата в лист 2 а написанный макрос работает так: макрос ищет количество строк, которые занимает нужная дата в столбце А листа 1 и копирует начиная со 2-й строки листа 1 выбранное количество строк в лист 2 надеюсь понятно объяснила.. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ошибка - Run-time error '91' Object variable or With block variable not set | Артур Иваныч | Microsoft Office Excel | 13 | 12.09.2012 14:18 |
run-time error 91 (object variable or with block variable not set) | mrs.petrushina | Microsoft Office Access | 5 | 19.04.2011 12:59 |
run-time error 91 (object variable or with block variable not set) | mrs.petrushina | Microsoft Office Excel | 7 | 05.04.2011 00:22 |
Display block не block | mrgrudge | HTML и CSS | 2 | 25.12.2010 11:10 |