Исправить макрос, вроде бы сбился в связи с добавкой листов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Исправить макрос, вроде бы сбился в связи с добавкой листов (Макросы/Sub)

lebensvoll

Дата: Суббота, 20.02.2016, 12:57 | Сообщение № 1

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

Репутация: 30 ±

Замечаний: 0% ±

Excel 2010

Добрый день форумчане!!! МУЗСЧИНЫ С НАСТУПАЮЩИМ НАС ПРАЗДНИКОМ!!! Прошу вас помочь разобраться с макросом (((( он рабочий все нормально работает. Но я лишь добавил листы (выделенные желтым цветом ярлычки) и почему то в данные листы данные при активации макроса не переносятся. Данная тема была
My WebPage
в данной теме мне объясняли что нужно было сделать:

Цитата

Добавьте здесь названия добавленных листов.

[vba]

Код

Sub Macro()

    Application.ScreenUpdating = False
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("М75"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В15"))
    Call ttt1(Sheets("М150"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub

[/vba]
Но я что то не могу найти и понять где я должен дополнить данные листы (((( ПОМОГИТЕ!!!!
Пришлось удалить не которые листы (((( прошу вас учесть что классы бетонной и растворной смеси (а также вкладки листов дат будут от 1 до 31) а классы будут от В5 до М350 (выделенные на листе корректировка столбец Q3:23) больше листов ни каких дополнятся не будет.

К сообщению приложен файл: ____3_.zip (98.2 Kb)

Кто бы ты ни был, мир в твоих руках

Ответить

_Boroda_

Дата: Суббота, 20.02.2016, 13:11 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А вот так?
[vba]

Код

Sub Macro()

    Application.ScreenUpdating = False
'    Call ttt1(Sheets("В5"))
'    Call ttt1(Sheets("В7,5"))
    Call ttt1(Sheets("В10"))
'    Call ttt1(Sheets("В12,5"))
'    Call ttt1(Sheets("В15"))
'    Call ttt1(Sheets("В20"))
    Call ttt1(Sheets("В22,5"))
    Call ttt1(Sheets("В25"))
    Call ttt1(Sheets("В30"))
    Call ttt1(Sheets("В35"))
    Call ttt1(Sheets("В40"))
    Call ttt1(Sheets("В45"))
    Call ttt1(Sheets("М75"))
'    Call ttt1(Sheets("М100"))
'    Call ttt1(Sheets("М150"))
'    Call ttt1(Sheets("М200"))
'    Call ttt1(Sheets("М250"))
'    Call ttt1(Sheets("М300"))
    Application.ScreenUpdating = True
    MsgBox "готово!", vbInformation

End Sub

[/vba]

К сообщению приложен файл: ____3__1.xlsb (95.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995