Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ошибка перед запуском, плодятся листы в редакторе VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ошибка перед запуском, плодятся листы в редакторе VBA (Макросы/Sub)
Ошибка перед запуском, плодятся листы в редакторе VBA
lFJl Дата: Четверг, 05.05.2016, 09:12 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Доброго дня!
С утра еще файле работал исправно, сейчас запустил. такая проблема.
Решения пока не нашел, но и проблему ни у кого такую не встречал, что может быть?
Прикрепил скриншот
Файл большей, не знаю, стоит ли его именно прикреплять?
К сообщению приложен файл: 8703321.jpg (96.4 Kb)
 
Ответить
СообщениеДоброго дня!
С утра еще файле работал исправно, сейчас запустил. такая проблема.
Решения пока не нашел, но и проблему ни у кого такую не встречал, что может быть?
Прикрепил скриншот
Файл большей, не знаю, стоит ли его именно прикреплять?
Автор - lFJl
Дата добавления - 05.05.2016 в 09:12
_Boroda_ Дата: Четверг, 05.05.2016, 09:24 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16672
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Какая прелесть!
У меня похожее было как-то. После перезагрузки компа само вылечилось.
Если перезагрузка не поможет (кстати, сначала попробуйте просто перезапустить Excel).
Есть ли в файле макросы?
Если да, то какие?
Покажите.
Больше никаких ругательств не было?
Не только при открытии, но и в предыдущей сессии.
На крайняк - есть ли возможность переустановки Офиса?
Кстати, как файл открывается на другой машине?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКакая прелесть!
У меня похожее было как-то. После перезагрузки компа само вылечилось.
Если перезагрузка не поможет (кстати, сначала попробуйте просто перезапустить Excel).
Есть ли в файле макросы?
Если да, то какие?
Покажите.
Больше никаких ругательств не было?
Не только при открытии, но и в предыдущей сессии.
На крайняк - есть ли возможность переустановки Офиса?
Кстати, как файл открывается на другой машине?
Автор - _Boroda_
Дата добавления - 05.05.2016 в 09:24
SLAVICK Дата: Четверг, 05.05.2016, 09:50 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата _Boroda_, 05.05.2016 в 09:24, в сообщении № 2
У меня похожее было как-то. После перезагрузки компа само вылечилось.

Да ... перезагрузка - большая сила.
У меня, на бывшей работе, была корпоративная заставка с подписью:
Цитата
Если что-то не работает - не спешите звонить администратору - сначала перезагрузите компьютер. :o

У меня, если что-то не работает, я всегда делаю два действия после закрытия офиса:
1. удаляю файлы (находиться в скрытых папках - нужно сначала их сделать видимыми)
"c:\Users\Пользователь\AppData\Roaming\Microsoft\Excel\Excel15.xlb"
все файлы из папки:"c:\Users\Пользователь\AppData\Local\Microsoft\Windows\WER\ReportQueue\"
2.если первое не помогло - опять закрываю офис - повторяю первое действие -- Перезагружаю комп

[offtop]Ну и по теме перезагрузки :D [/offtop]

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата _Boroda_, 05.05.2016 в 09:24, в сообщении № 2
У меня похожее было как-то. После перезагрузки компа само вылечилось.

Да ... перезагрузка - большая сила.
У меня, на бывшей работе, была корпоративная заставка с подписью:
Цитата
Если что-то не работает - не спешите звонить администратору - сначала перезагрузите компьютер. :o

У меня, если что-то не работает, я всегда делаю два действия после закрытия офиса:
1. удаляю файлы (находиться в скрытых папках - нужно сначала их сделать видимыми)
"c:\Users\Пользователь\AppData\Roaming\Microsoft\Excel\Excel15.xlb"
все файлы из папки:"c:\Users\Пользователь\AppData\Local\Microsoft\Windows\WER\ReportQueue\"
2.если первое не помогло - опять закрываю офис - повторяю первое действие -- Перезагружаю комп

[offtop]Ну и по теме перезагрузки :D [/offtop]
Автор - SLAVICK
Дата добавления - 05.05.2016 в 09:50
lFJl Дата: Четверг, 05.05.2016, 09:59 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Перезагрузка ПК, перезапуск Excel файла не помогли
В других файлах с макросами все работает как часы.
В файле есть макросы, в основном это копирование с листа на лист, создание и удаление листов
Например:

[vba]
Код

Sub Счет1()
        On Error Resume Next
    
    MsgBox ("Нужно скопировать поступление, как на скрине")
    
    Range("Сравн_цен").Select
    ActiveSheet.ShowAllData
    Selection.EntireRow.Delete
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Лист1").Select
    ActiveSheet.Name = "test"
    
    'Sheets.Add Before:=Sheets("Лист1")
    'Sheets("Лист1").Select
    'ActiveSheet.Name = "test"
    ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:= _
        False
        
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:N").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

    'Rows("2:2").Select
    'Selection.Delete Shift:=xlUp
        
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Copy
    Sheets("цены").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("test").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Sheets("цены").Select

    Range("Сравн_цен[@[цена_(1С)]]").Select

    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "=ROUND([@[цена_(1С)]]*1.18,1)"
    Selection.Copy
    Range("Сравн_цен[*]").Select
    Selection.PasteSpecial
    Selection.Copy
    Range("Сравн_цен[цена_(1С)]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Сравн_цен[*]").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
[/vba]

Макрос функции:
[vba]
Код
Function ФайлСущ(s$) As Boolean
    On Error Resume Next
    ФайлСущ = Dir(s) <> ""
End Function
[/vba]
Макрос для фильтра:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    var_ = Range("E1").Text
    var_ = "*" + var_ + "*"
    ActiveSheet.ListObjects("Сравн_цен").Range.AutoFilter Field:=1, Criteria1:= _
        var_, Operator:=xlAnd
            
    var1_ = Range("J1").Text
    var1_ = "<>" + var1_
    ActiveSheet.ListObjects("Сравн_цен").Range.AutoFilter Field:=10, Criteria1:= _
        var1_, Operator:=xlAnd
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

lLastRow = Cells(30, 1).End(xlUp).Row
If Target.Row > lLastRow Then
    Range("E1").Select
End If

End Sub
[/vba]

Остальные макросы похожи на первый

Ругательства были, когда выполнял например первый макрос, но перезагрузкой ПК все решалось.
Переустановка офиса к сожалению не возможна.
На другом компе та же проблема.
Мне этот файл служил верой и правдой больше полугода, в нем ничего не менял последние пару месяцев, почему такие дела происходят иногда, я понять не могу.
 
Ответить
СообщениеПерезагрузка ПК, перезапуск Excel файла не помогли
В других файлах с макросами все работает как часы.
В файле есть макросы, в основном это копирование с листа на лист, создание и удаление листов
Например:

[vba]
Код

Sub Счет1()
        On Error Resume Next
    
    MsgBox ("Нужно скопировать поступление, как на скрине")
    
    Range("Сравн_цен").Select
    ActiveSheet.ShowAllData
    Selection.EntireRow.Delete
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Лист1").Select
    ActiveSheet.Name = "test"
    
    'Sheets.Add Before:=Sheets("Лист1")
    'Sheets("Лист1").Select
    'ActiveSheet.Name = "test"
    ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:= _
        False
        
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:N").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

    'Rows("2:2").Select
    'Selection.Delete Shift:=xlUp
        
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Copy
    Sheets("цены").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("test").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Sheets("цены").Select

    Range("Сравн_цен[@[цена_(1С)]]").Select

    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "=ROUND([@[цена_(1С)]]*1.18,1)"
    Selection.Copy
    Range("Сравн_цен[*]").Select
    Selection.PasteSpecial
    Selection.Copy
    Range("Сравн_цен[цена_(1С)]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Сравн_цен[*]").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
[/vba]

Макрос функции:
[vba]
Код
Function ФайлСущ(s$) As Boolean
    On Error Resume Next
    ФайлСущ = Dir(s) <> ""
End Function
[/vba]
Макрос для фильтра:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    var_ = Range("E1").Text
    var_ = "*" + var_ + "*"
    ActiveSheet.ListObjects("Сравн_цен").Range.AutoFilter Field:=1, Criteria1:= _
        var_, Operator:=xlAnd
            
    var1_ = Range("J1").Text
    var1_ = "<>" + var1_
    ActiveSheet.ListObjects("Сравн_цен").Range.AutoFilter Field:=10, Criteria1:= _
        var1_, Operator:=xlAnd
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

lLastRow = Cells(30, 1).End(xlUp).Row
If Target.Row > lLastRow Then
    Range("E1").Select
End If

End Sub
[/vba]

Остальные макросы похожи на первый

Ругательства были, когда выполнял например первый макрос, но перезагрузкой ПК все решалось.
Переустановка офиса к сожалению не возможна.
На другом компе та же проблема.
Мне этот файл служил верой и правдой больше полугода, в нем ничего не менял последние пару месяцев, почему такие дела происходят иногда, я понять не могу.
Автор - lFJl
Дата добавления - 05.05.2016 в 09:59
SLAVICK Дата: Четверг, 05.05.2016, 10:09 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
У Вас после макрорекордера - осталось много мусора.
Ну например, зачем:
[vba]
Код
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
[/vba]
и зачем столько select ов?
к примеру:
[vba]
Код
Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
[/vba]
можно записать:
[vba]
Код
Columns("B:B").Delete Shift:=xlToLeft
[/vba]
Почистите код от мусора- будет и видно лучше и ошибок возможно избежите... тем более что этот файл работает
Цитата lFJl, 05.05.2016 в 09:59, в сообщении № 4
больше полугода

Не ленитесь потратить несколько минут, чтобы его "причесать"

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеУ Вас после макрорекордера - осталось много мусора.
Ну например, зачем:
[vba]
Код
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
[/vba]
и зачем столько select ов?
к примеру:
[vba]
Код
Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
[/vba]
можно записать:
[vba]
Код
Columns("B:B").Delete Shift:=xlToLeft
[/vba]
Почистите код от мусора- будет и видно лучше и ошибок возможно избежите... тем более что этот файл работает
Цитата lFJl, 05.05.2016 в 09:59, в сообщении № 4
больше полугода

Не ленитесь потратить несколько минут, чтобы его "причесать"
Автор - SLAVICK
Дата добавления - 05.05.2016 в 10:09
lFJl Дата: Четверг, 05.05.2016, 10:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
SLAVICK,
Там около ста таких макросов? А это само собой много времени, потому что нужно в каждый вникнуть, проще будет заново написать! :)
Тем более, думаю это не уберет эту ошибку, и только время заря потрачено будет.
Может есть решение данной проблемы, менее трудозатратное и наиболее быстрое.
 
Ответить
СообщениеSLAVICK,
Там около ста таких макросов? А это само собой много времени, потому что нужно в каждый вникнуть, проще будет заново написать! :)
Тем более, думаю это не уберет эту ошибку, и только время заря потрачено будет.
Может есть решение данной проблемы, менее трудозатратное и наиболее быстрое.
Автор - lFJl
Дата добавления - 05.05.2016 в 10:18
lFJl Дата: Четверг, 05.05.2016, 10:24 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Взял недельный бэкап, работает исправно, в этом файле только база данных пополняется.
но если вдруг найдется решение, как это убрать, или из-за чего это происходит, то напишите пожалуйста.
Тем более, макросы я причесать могу, а вот куча листов, которые появились лишние, с ними-то что делать?
 
Ответить
СообщениеВзял недельный бэкап, работает исправно, в этом файле только база данных пополняется.
но если вдруг найдется решение, как это убрать, или из-за чего это происходит, то напишите пожалуйста.
Тем более, макросы я причесать могу, а вот куча листов, которые появились лишние, с ними-то что делать?
Автор - lFJl
Дата добавления - 05.05.2016 в 10:24
_Boroda_ Дата: Четверг, 05.05.2016, 10:30 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16672
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Обычно порядок действий такой - убиваем все макросы (просто сохранив файл в xlsx), закрываем - открываем - смотрим, если все в порядке, то косяк в макросах, возвращаемся к предыдущей версии и убиваем половину макросов вручную, закрываем - открываем - смотрим, если все в порядке, то косяк в том, что мы убили, возвращаемся к предыдущей версии и убиваем половину макросов из той половины, что убили раньше, и так далее, пока не найдем врага. Не забывайте про макросы в модулях книги и листов.
Конечно, можно предварительно глазами выявить наиболее вероятных косячников, но для этого нужен некоторый опыт.

Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
куча листов, которые появились лишние, с ними-то что делать?
У Вас листы реально в книге появились или только в VBA Вы их видите?
А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеОбычно порядок действий такой - убиваем все макросы (просто сохранив файл в xlsx), закрываем - открываем - смотрим, если все в порядке, то косяк в макросах, возвращаемся к предыдущей версии и убиваем половину макросов вручную, закрываем - открываем - смотрим, если все в порядке, то косяк в том, что мы убили, возвращаемся к предыдущей версии и убиваем половину макросов из той половины, что убили раньше, и так далее, пока не найдем врага. Не забывайте про макросы в модулях книги и листов.
Конечно, можно предварительно глазами выявить наиболее вероятных косячников, но для этого нужен некоторый опыт.

Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
куча листов, которые появились лишние, с ними-то что делать?
У Вас листы реально в книге появились или только в VBA Вы их видите?
А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы.
Автор - _Boroda_
Дата добавления - 05.05.2016 в 10:30
SLAVICK Дата: Четверг, 05.05.2016, 10:32 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата lFJl, 05.05.2016 в 10:18, в сообщении № 6
Там около ста таких макросов? ..... проще будет заново написать! :)

Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.
Цитата lFJl, 05.05.2016 в 10:18, в сообщении № 6
около ста таких макросов

Это не показатель продуктивности программы - правильно НАписанный макрос - может заменять много ЗАписанных

Проводим расследования дедуктивным методом:
Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
Взял недельный бэкап, работает исправно,

Значит что-то произошло(поменялось) за последнюю неделю.
Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
в этом файле только база данных пополняется.

Если больше ничего не менялось - смотрите что именно добавилось в базу данных... может ошибка, или текст "влез" в колонку с числами ...

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата lFJl, 05.05.2016 в 10:18, в сообщении № 6
Там около ста таких макросов? ..... проще будет заново написать! :)

Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.
Цитата lFJl, 05.05.2016 в 10:18, в сообщении № 6
около ста таких макросов

Это не показатель продуктивности программы - правильно НАписанный макрос - может заменять много ЗАписанных

Проводим расследования дедуктивным методом:
Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
Взял недельный бэкап, работает исправно,

Значит что-то произошло(поменялось) за последнюю неделю.
Цитата lFJl, 05.05.2016 в 10:24, в сообщении № 7
в этом файле только база данных пополняется.

Если больше ничего не менялось - смотрите что именно добавилось в базу данных... может ошибка, или текст "влез" в колонку с числами ...
Автор - SLAVICK
Дата добавления - 05.05.2016 в 10:32
lFJl Дата: Четверг, 05.05.2016, 10:54 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Понял, походу я нашел виновника!
[vba]
Код
'Function ФайлСущ(s$) As Boolean
'    On Error Resume Next
'    ФайлСущ = Dir(s) <> ""
'End Function
[/vba]
Этой функцией я проверяю наличие файла
Код
=ЕСЛИ(ФайлСущ(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg"));
ГИПЕРССЫЛКА(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg");[@[у_акт]]);
"Нет заявки от ОСО!")

Вот формула к ней
Странно, что я ее как написал, все работало исправно больше пары месяцев, и только сегодня "выстрельнуло", что скажите?

Цитата SLAVICK, 05.05.2016 в 10:32, в сообщении № 9
Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.

Я не перепутал, имел в виду написать.

Кстати, старый файл так же перестал работать!

Сегодня у нас в организации обновилась винда, может что-то новое в этом обновлении, только как это понять...
Но там не менее до этого все работало!
 
Ответить
Сообщение_Boroda_, Понял, походу я нашел виновника!
[vba]
Код
'Function ФайлСущ(s$) As Boolean
'    On Error Resume Next
'    ФайлСущ = Dir(s) <> ""
'End Function
[/vba]
Этой функцией я проверяю наличие файла
Код
=ЕСЛИ(ФайлСущ(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg"));
ГИПЕРССЫЛКА(СЦЕПИТЬ("D:\Заявка от ОСО\";[@[у_акт]];".msg");[@[у_акт]]);
"Нет заявки от ОСО!")

Вот формула к ней
Странно, что я ее как написал, все работало исправно больше пары месяцев, и только сегодня "выстрельнуло", что скажите?

Цитата SLAVICK, 05.05.2016 в 10:32, в сообщении № 9
Не путайте понятие НАписать и ЗАписать - то что у Вас(большая часть) - записано ... т.е. макрорекодер записал Ваши действия.

Я не перепутал, имел в виду написать.

Кстати, старый файл так же перестал работать!

Сегодня у нас в организации обновилась винда, может что-то новое в этом обновлении, только как это понять...
Но там не менее до этого все работало!
Автор - lFJl
Дата добавления - 05.05.2016 в 10:54
lFJl Дата: Четверг, 05.05.2016, 11:26 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Цитата _Boroda_, 05.05.2016 в 10:30, в сообщении № 8
А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы.

Эти листы только в редакторе ВБА отображаются. Не могу удалить их там и через архиватор их найти не получается, можете подробней описать?
 
Ответить
Сообщение
Цитата _Boroda_, 05.05.2016 в 10:30, в сообщении № 8
А удалить лишние листы быстро можно или в том же VBA, или открыв файл любым архиватором и там уже удалить их как обычные файлы.

Эти листы только в редакторе ВБА отображаются. Не могу удалить их там и через архиватор их найти не получается, можете подробней описать?
Автор - lFJl
Дата добавления - 05.05.2016 в 11:26
_Boroda_ Дата: Четверг, 05.05.2016, 12:18 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16672
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата lFJl, 05.05.2016 в 10:54, в сообщении № 10
что скажите?
Вы сами уже все сказали -
Цитата lFJl, 05.05.2016 в 10:54, в сообщении № 10
Сегодня у нас в организации обновилась винда

Цитата lFJl, 05.05.2016 в 11:26, в сообщении № 11
Эти листы только в редакторе ВБА отображаются
Тогда не верьте - их фактически нет и удалять нечего.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата lFJl, 05.05.2016 в 10:54, в сообщении № 10
что скажите?
Вы сами уже все сказали -
Цитата lFJl, 05.05.2016 в 10:54, в сообщении № 10
Сегодня у нас в организации обновилась винда

Цитата lFJl, 05.05.2016 в 11:26, в сообщении № 11
Эти листы только в редакторе ВБА отображаются
Тогда не верьте - их фактически нет и удалять нечего.
Автор - _Boroda_
Дата добавления - 05.05.2016 в 12:18
lFJl Дата: Четверг, 05.05.2016, 12:29 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Цитата _Boroda_, 05.05.2016 в 12:18, в сообщении № 12
Вы сами уже все сказали -

Ну может ошибку видите :)
Или подскажите другую аналогичную функцию?

Цитата _Boroda_, 05.05.2016 в 12:18, в сообщении № 12
Тогда не верьте - их фактически нет и удалять нечего.

Создают неудобство своим количеством :)
 
Ответить
Сообщение
Цитата _Boroda_, 05.05.2016 в 12:18, в сообщении № 12
Вы сами уже все сказали -

Ну может ошибку видите :)
Или подскажите другую аналогичную функцию?

Цитата _Boroda_, 05.05.2016 в 12:18, в сообщении № 12
Тогда не верьте - их фактически нет и удалять нечего.

Создают неудобство своим количеством :)
Автор - lFJl
Дата добавления - 05.05.2016 в 12:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ошибка перед запуском, плодятся листы в редакторе VBA (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!