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

Страницы: 1
[ Закрыто] При выполнении макроса происходит глюк, Может сработать - может выдавать разные ошибки
 
#
13.09.2016 13:05:05
Выполняю макрос - все хорошо - закрываю файл, пробую потом снова -  ошибка... и бывают разные - пишет типа: то не удалось открыть книгу, то  копирование низя то сбрасывается выделенный диапазон... вообщем - не  пойму в чем дело - если кто-то сталкивался с подобным - разъясните  плиз... мб криво эксель установлен или руки не те... Эксель 2007. Винда  7.
ЗЫ: раз случилось - что каким-то образом в окне где прописывал  макрос - появились как бы дублированные листы... - их нет на самом деле,  но в них есть прописанные макросы, а в настоящих - оказывалось пусто..

[CODE][/CODE]
Sub КВмельница()
     Dim LastRow As Long
     LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по   столбцу А
     Range(Cells(4, 2), Cells(LastRow, 3)).Select
     Selection.Copy
ChDrive   "C:\Users\Dok\Documents"
     Workbooks.Open Filename:= _
         "C:\Users\Dok\Documents\ХОРОШИЕ РЕШЕНИЯ\Готовые   примеры\Мельница\Реал2016проба.xlsm"
Worksheets("ПРОБА_ОТЧЕТА   ").Select
Dim EmptyCell As Range
Const StartCell = "a4"
If Len(Range(StartCell)) = 0 Then
     Set EmptyCell = Range(StartCell)
Else
     Set EmptyCell = Range(StartCell).End(xlToRight).Offset(0, 1)
End If
EmptyCell.Select
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,   SkipBlanks:= _
         True, Transpose:=False
End Sub
Поспешай медленно
 
Перейти    
[ Закрыто] При выполнении макроса - не понимаю: то ли глюк, то ли моя криворукость - может кто сталкивался..., Выполняю макрос - все хорошо - закрываю файл, пробую потом снова - ошибка... и бывают разные
 
#
13.09.2016 12:56:36
Выполняю макрос - все хорошо - закрываю файл, пробую потом снова - ошибка... и бывают разные - пишет типа: то не удалось открыть книгу, то копирование низя то сьрасывается выделенный диапазон... вообщем - не пойму в чем дело - если кто-то сталкивался с подобным - разъясните плиз... мб криво эксель установлен или руки не те... Эксель 2007. Винда 7.
ЗЫ: раз случилось - что каким-то образом в окне где прописывал макрос - появились как бы дублированные листы... - их нет на самом деле, но в них есть прописанные макросы, а в настоящих - оказывалось пусто...
Код
[/CODE]Sub КВмельница()[/TD][/TR][TR][TD]      Dim LastRow As Long[/TD][/TR][TR][TD]      LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по   столбцу А[/TD][/TR][TR][TD]      Range(Cells(4, 2), Cells(LastRow, 3)).Select[/TD][/TR][TR][TD]      Selection.Copy[/TD][/TR][TR][TD]
[/TD][/TR][TR][TD]ChDrive   "C:\Users\Dok\Documents"[/TD][/TR][TR][TD]      Workbooks.Open Filename:= _[/TD][/TR][TR][TD]          "C:\Users\Dok\Documents\ХОРОШИЕ РЕШЕНИЯ\Готовые   примеры\Мельница\Реал2016проба.xlsm"[/TD][/TR][TR][TD]Worksheets("ПРОБА_ОТЧЕТА   ").Select[/TD][/TR][TR][TD]  [/TD][/TR][TR][TD] Dim EmptyCell As Range[/TD][/TR][TR][TD] Const StartCell = "a4"[/TD][/TR][TR][TD] If Len(Range(StartCell)) = 0 Then[/TD][/TR][TR][TD]      Set EmptyCell = Range(StartCell)[/TD][/TR][TR][TD] Else[/TD][/TR][TR][TD]      Set EmptyCell = Range(StartCell).End(xlToRight).Offset(0, 1)[/TD][/TR][TR][TD] End If[/TD][/TR][TR][TD] EmptyCell.Select[/TD][/TR][TR][TD]      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,   SkipBlanks:= _[/TD][/TR][TR][TD]          True, Transpose:=False[/TD][/TR][TR][TD]        [/TD][/TR][TR][TD]End Sub[/TD][/TR][/TABLE][CODE]ЗЫ: извините если что ни так...:)
Поспешай медленно
 
Перейти    
Макрос вставки и очистки в одной ячейке (или нескольких ячейках столбца)
 
#
15.09.2015 23:27:28
Приветствую! Возник вопрос - записан макрос который вставляет "1" в активную ячейку столбца А. Можно ли при повторной активации  - эта единица удалялась? и соответственно активируя еще раз опять появлялась "1"... по типу "флажка", "переключатель", да/нет...
Вот что у меня есть - макрос ввода "1".
Код
Sub ку()
[a5].Value = 1
End Sub
Sub ку1()
[a6].Value = 1
End Sub
Sub ку2()
[a7].Value = 1
End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$A$5" Then: Call Module1.ку
 If Target.Address = "$A$6" Then: Call Module1.ку1
 If Target.Address = "$A$7" Then: Call Module1.ку2
Поспешай медленно
 
Перейти    
Некорректное закрытие файла, в шаблон копируется инфа и закрываю старый файл - не всегда срабатывает
 
#
30.08.2015 10:12:22
Всех приветствую! Возникла такая проблемка - в Экселе 2003 работало без проблем, а в Экселе 2007 - "как карта ляжет" - то работает, то старый файл остается - мб подскажите где и из-за чего такое может быть...:) с открытого файла копирую инфу и вставляю в шаблон. Закрываю старый(первый) файл:
Код
Cells.Select
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\Администратор\Мои документы\Малява\ШАБЛОН.xlsm"
Cells.Select
    Range("B1").Activate
    ActiveSheet.Paste
    Workbooks(2).Activate
    Application.DisplayAlerts = False ' выключаем все предупреждения
    Workbooks(2).Close

вот здесь не всегда и срабатывает...
Поспешай медленно
 
Перейти    
Выборка данных из таблицы согласно выпадающему списку
 
#
23.11.2013 16:02:56
Всем доброго дня! Есть проблема - ибо только пользователь. Есть таблица - один столбец список трав, второй - построчно к какой фармгруппе принадлежит трава. Вопрос - можно как-то согласно выпадающему списку - вызвать перечень не одной травы, а списка трав к коей фармгруппе они принадлежат? Интересуют формулы (фильтр не надо, а в макросах - "0" ) Сорь если нуп - в любом случае спасибо!  :)
Поспешай медленно
 
Перейти    
Страницы: 1
Наверх