|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.09.2013, 01:52 | #1 |
Новичок
Джуниор
Регистрация: 23.09.2013
Сообщений: 3
|
Исправить макрос не хватает опыта.
Ситуацию на мой взгляд тяжело передать( ну или писать придётся страницы две) но я попытаюсь всё вкратце изложить. Копируем таблицу вставляем. нумерация начинается с цифры 2. Сейчас начальство изменило свои таблицы и нумерация начинается по правилам с 1. Но макрос пишет "ошибка в N-ой строке" И у меня никак не хватает ума его исправить. Буду благодарен за помощь с пояснением.
Вот сама часть макроса Sub 123 Dim a, logins, loginss, vse As Worksheet Set a = ActiveSheet Set logins = ThisWorkbook.Sheets("Ëîãèíû") Set loginss = ThisWorkbook.Sheets("Ëîãèíû Ñarg") Set vse = ActiveWorkbook.Sheets("Âñå ïîñòàâùèêè") If Selection.Cells.Count = 1 Then s = 2 e = a.Range("A1").CurrentRegion.Rows.Co unt Else s = Selection.Row e = s + Selection.Rows.Count - 1 End If l = logins.Range("A1").CurrentRegion.Ro ws.Count m = loginss.Range("A1").CurrentRegion.R ows.Count For i = s To e If a.Cells(i, 1) <> i Then If MsgBox("Îøèáêà â ñòðîêå: " & i & ". Ïðåðâàòü ðàáîòó?", vbYesNo) = vbYes Then End (вот на этом этапе мне выдаёт ошибку) End If И подскажите пожалуйста простым языком что значит "Count-Возвращает число объектов в наборе." Сижу изучаю макросы буду также рад рекомендованной литературе. |
23.09.2013, 01:53 | #2 |
Новичок
Джуниор
Регистрация: 23.09.2013
Сообщений: 3
|
Пожалуйста подскажите еще зачем нужны эти строки
For i = s To e If a.Cells(i, 1) <> i Then |
23.09.2013, 02:23 | #3 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А можно одним глазом глянуть на этот чудесный файл?
Анализ,обработка данных Недорого
|
23.09.2013, 11:47 | #4 |
Новичок
Джуниор
Регистрация: 23.09.2013
Сообщений: 3
|
Могу всё продемонстрировать в скайпе lllawlietll
|
23.09.2013, 20:13 | #5 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Может не тот форум "всё демонстрировать"?
Достаточно выложить файл. Последний раз редактировалось kalbasiatka; 23.09.2013 в 22:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как исправить макрос? | Nicolas_46 | Microsoft Office Excel | 2 | 07.01.2013 17:16 |
Пишу программы для повышения опыта | myposteriori | Фриланс | 1 | 20.05.2010 22:16 |