Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » anshuba
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA выдает ошибку 1004 макрос не найден
 
#
18.06.2018 13:57:56
Есть набор макросов которые проверены и работают. Основной макрос должен вызывать поочередно все подпрограммы, при попытке его запустить VBA выдает ошибку 1004 макрос не найден. Хотя все макросы на месте в книге. Скрины прилагаю.
 
Перейти    
VBA перебор заданных номеров строк в цикле, Можно ли в VBA перебрать строки 1-10 потом 20-30 одним циклом и с использованием 1 переменной
 
#
14.06.2018 17:59:59
select case должно быть до цикла или после?
 
Перейти    
VBA перебор заданных номеров строк в цикле, Можно ли в VBA перебрать строки 1-10 потом 20-30 одним циклом и с использованием 1 переменной
 
#
14.06.2018 17:38:57
Понял. Спасибо.
 
Перейти    
VBA перебор заданных номеров строк в цикле, Можно ли в VBA перебрать строки 1-10 потом 20-30 одним циклом и с использованием 1 переменной
 
#
14.06.2018 17:27:42
У меня несколько таких переборов с разным шагом строк (строк 103), хочется уменьшить код. Опять таки условно следующий перебор будет 33-55. Хотя может оказаться что проще ввести новую переменную для следующего участка цикла и добавить тот же код, чем писать кучу ЕСЛИ в которых можно допустить ошибку. Спасибо.
Изменено: anshuba - 14.06.2018 17:48:18
 
Перейти    
VBA перебор заданных номеров строк в цикле, Можно ли в VBA перебрать строки 1-10 потом 20-30 одним циклом и с использованием 1 переменной
 
#
14.06.2018 16:21:21
Доброго времени суток.
Подскажите можно ли  в VBA перебрать строки условно 1-10 потом 20-30 одним циклом и с использованием 1 переменной
Фрагмент кода:
Код
    For lr = 2 To 14                                                                            
        Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ").Sheets("ÑÎ0Ï").Range("A" & lr & ":B" & lr).Copy
        Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("D2").PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("C2").Copy
        Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("K" & lr).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next lr
'    Dim ar As Long
'    For ar = 19 To 31
'        Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("A" & ar & ":B" & ar).Copy
'        Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("D2").PasteSpecial Paste:=xlPasteValues, _
'        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'        Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("C2").Copy
'        Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("K" & ar).PasteSpecial Paste:=xlPasteValues, _
'        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'    Next ar
Изменено: anshuba - 14.06.2018 16:34:57
 
Перейти    
Страницы: 1
Наверх