Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос печати листов по условию, с помощью цикла
 
#1
07.02.2019 08:32:04
Добрый день.

Стал выдавать макрос ошибку. Хотя раньше работал.В чём может быть причина?

Код
Sub MyPrint()
Dim sh As Worksheet, s
With ThisWorkbook
For Each sh In .Worksheets
If Not sh.[P5].Value = 0 Then s = s & sh.Name & ","
Next sh
s = Split(Left(s, Len(s) - 1), ",")
.Worksheets(s).PrintOut Copies:=1
End With
End Sub
 
 
 
#2
07.02.2019 08:56:00
С картинками  - к экстрасенсам.
Могу предположить, что нет данных. И проверки нет. Попробуй так
Код
If Len(s) > 1 Then s = Split(Left(s, Len(s) - 1), ",")
И на какой строку ошибка? может с принтером что?
Изменено: Александр Моторин - 07.02.2019 08:56:17
 
 
 
#3
07.02.2019 08:58:47
Такое может быть, если присутствуют 2 макроса с одинаковым именем.
(один - ваш макрос, другой - из какой-либо надстройки или файла)
 
 
 
#4
07.02.2019 09:02:14
Александр Моторин, возможно. Попробую название макроса поменять .

Принтер исправлен. Спасибо.
 
 
 
#5
07.02.2019 09:24:42
Александр Моторин,  на первой картинке выдаёт ошибку без вашей строки, а на второй с вашей строкой
 
 
 
#6
07.02.2019 09:42:17
Как может вполне корректная строка, написанная ниже, влиять на код выше?
 
 
 
#7
07.02.2019 09:52:44
Hugo, точно не знаю
 
 
 
#8
07.02.2019 10:02:44
Файл бы увидеть ошибочный, что там за имя листа такое , что даже переменная не хочет его себе брать.
Глянул быстренько код а в чем вообще фишка цикла? У Вас во второй строке цикла переменная s становится массивом, а затем в первой строке вы с ней работаете как со строковой вот в этом и ошибка скорее всего. Ошибка в коде после цикла скорее всего возникает потому, что в строковая переменная s не содержит  запятой.
Изменено: Nordheim - 07.02.2019 10:08:46
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#9
07.02.2019 10:12:48
Вот и объяснение как строка ниже влияет на строку выше :)
А я слепой...:(
 
 
 
#10
07.02.2019 10:21:17
На сколько я понял логику программы. вот этот код повторяет ее без всяких заморочек с доп переменными.
Код
Sub MyPrint_2()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.[p5].Value <> 0 Then sh.PrintOut Copies:=1
    Next sh
End Sub
Изменено: Nordheim - 07.02.2019 10:22:22
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#11
07.02.2019 11:43:35
Nordheim, к сожалению сюда размер не позволяет загрузить. а так если в не напряг можно посмотреть тут https://yadi.sk/i/UgQdAm5XW4_Dzw.
Пробовал вариант от Nordheim, к сожалению не сработал. Макрос привязаен к кнопке Печать учётных листов.
Спасибо всем откликнувшимся.
 
 
 
#12
07.02.2019 12:28:09
Заплатка конечно сомнительная , но ничего лучше не придумал  :(
Код
Sub MyPrint_2()
Dim sh As Worksheet, s$
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
    If  sh.[P5].Value <> 0 Then
        sh.Activate
        ActiveWindow.SelectedSheets.PrintOut copies:=1
    End If
    Next sh
    Application.ScreenUpdating = True
End Sub
Изменено: Nordheim - 07.02.2019 12:28:32
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#13
07.02.2019 12:51:26
Nordheim, ошибку даёт. Буду ручками печатать каждый лист  :) . Всем спасибо.  
 
 
 
Страницы: 1
Наверх