Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что не так, подскажите / 3 сообщений из 3, страница 1 из 1
18.10.2012, 21:53
    #38005000
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что не так, подскажите
Уважаемые, знатоки Excel, подскажите что не так в этих строках?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
    ActiveCell.EntireRow.Copy (Sheets("srts").Cells(Sheets("srts").Rows.Count, "A").End(xlUp).Offset(1))
        If Range("CR" & ActiveCell.Row) = "Регистрация" Then
            ActiveCell.EntireRow.Copy (Sheets("reg").Cells(Sheets("reg").Rows.Count, "A").End(xlUp).Offset(1))
                If Range("CR" & ActiveCell.Row) = "Перерегистрация" Then
                    ActiveCell.EntireRow.Copy (Sheets("per").Cells(Sheets("per").Rows.Count, "A").End(xlUp).Offset(1))
                End If
        End If


дело в том, что первую строку выполняет, а далее, строки
Код: vbnet
1.
2.
3.
4.
5.
6.
    If Range("CR" & ActiveCell.Row) = "Регистрация" Then
            ActiveCell.EntireRow.Copy (Sheets("reg").Cells(Sheets("reg").Rows.Count, "A").End(xlUp).Offset(1))
                If Range("CR" & ActiveCell.Row) = "Перерегистрация" Then
                    ActiveCell.EntireRow.Copy (Sheets("per").Cells(Sheets("per").Rows.Count, "A").End(xlUp).Offset(1))
                End If
        End If


пропускает и не производит копирование на нужные листы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2012, 22:02
    #38005010
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что не так, подскажите
При такой логике "Перерегистрация" никогда не будет скопирована. Следует так:
Код: vbnet
1.
2.
3.
4.
5.
6.
ActiveCell.EntireRow.Copy (Sheets("srts").Cells(Sheets("srts").Rows.Count, "A").End(xlUp).Offset(1))
If Range("CR" & ActiveCell.Row) = "Регистрация" Then
    ActiveCell.EntireRow.Copy (Sheets("reg").Cells(Sheets("reg").Rows.Count, "A").End(xlUp).Offset(1))
ElseIf Range("CR" & ActiveCell.Row) = "Перерегистрация" Then
    ActiveCell.EntireRow.Copy (Sheets("per").Cells(Sheets("per").Rows.Count, "A").End(xlUp).Offset(1))
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2012, 22:09
    #38005019
Татьяна...
Татьяна...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что не так, подскажите
Казанский, спасибо, большое.
работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что не так, подскажите / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 301ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175298]:
 0ms
get settings:
 5ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 23ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 211ms
total:  301ms
x
x
Закрыть


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