Понятно. Сорри...  
 
Но решения проблемы я так понимаю никто не сможет подсказать?

Как так? 500 кб же разрешённый размер?

Вот сам файл.  
Серв не разрешил залить xlsb  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Доброго времени суток, Гуру Excel.  
 
Столкнулся с невиданной до сель мне проблемой, при использовании группировки столбцов вылетает Excel.  
 
А именно при открытие и закрытии ячеек по плюсу работает нормально, а если выбираешь открыть сразу все группировки на второй уровень вылетает?  
 
Кто сталкивался? есть ли лечение? использую 10 офис.  
Заранее спасибо, "сломанный" файл прикрепляю.  
Файл в xlsb, но от формата файла не зависит, уже тестил...

{quote}{login=R Dmitry}{date=29.11.2011 02:37}{thema=}{post}Sub Макрос1()  
With ActiveWorkbook.Connections("Запрос из Remedy").ODBCConnection  
.BackgroundQuery = True  
.CommandText = Array("SELECT ""TT ticket"".""Created date"", ""TT ticket"".""Customer phone no"", ""TT ticket"".""Entry ID"", ""TT ticket"".City, ""TT t" _  
, _  
"icket"".""Zip code"", ""TT ticket"".""Assigned group"", ""TT ticket"".Status, ""TT ticket"".Notes, ""TT ticket"".""Created by""" & Chr(13) & "" & Chr(10) & "F" _  
, _  
"ROM ""TT ticket"" ""TT ticket""" & Chr(13) & "" & Chr(10) & "WHERE ((""TT ticket"".""Created by""='olgaarab') OR (""TT ticket"".""Created by""='radialma') " _  
, _  
"OR (""TT ticket"".""Created by""='elenaiva') OR (""TT ticket"".""Created by""='PVyskrebentsev') OR (""TT ticket"".""Created by" _  
, _  
"""='sofiosip') OR (""TT ticket"".""Created by""='nikivere') OR (""TT ticket"".""Created by""='irinivan1') OR (""TT ticket"".""C" _  
, _  
"reated by""='nellglad') OR (""TT ticket"".""Created by""='nonabedz') OR (""TT ticket"".""Created by""='darikame') OR (""TT ti" _  
, _  
"cket"".""Created by""='yulisami1') OR (""TT ticket"".""Created by""='annasuhi') OR (""TT ticket"".""Created by""='viktpshe') O" _  
, _  
"R (""TT ticket"".""Created by""='irinkuro') OR (""TT ticket"".""Created by""='marguz')) AND (""TT ticket"".""Created date"">{ts" _  
, _  
" '" & Format(DateAdd("s", -1200, Now()), "yyyy-mm-dd hh:mm:ss") & "'}) AND (""TT ticket"".""Created by group""='RU-L1-ROS') AND (""TT ticket"".Status<>'Closed')" & Chr(13) & "" & Chr(10) & "ORDER" _  
, " BY ""TT ticket"".""Created date""")  
.CommandType = xlCmdSql  
.Connection = _  
"ODBC;DSN=Remedy;ARServer=kung.tele2.se;ARServerPort=49000;UID=yaroleno;ARAuthentication=;SERVER=NotTheServer"  
.RefreshOnFileOpen = False  
.SavePassword = False  
.SourceConnectionFile = ""  
.SourceDataFile = ""  
.ServerCredentialsMethod = xlCredentialsMethodIntegrated  
.AlwaysUseConnectionFile = False  
End With  
With ActiveWorkbook.Connections("Запрос из Remedy")  
.Name = "Запрос из Remedy"  
.Description = ""  
.Refresh  
End With  
End Sub{/post}{/quote}  
 
СПААААААААААААААААССССИСССССССИИИИИИИИБОООООООООООООО!!!! (Я прошу прощения за флуд!!!)  
Огромнейшее спасибо!

{quote}{login=R Dmitry}{date=29.11.2011 01:39}{thema=Re: Re: Re: }{post}До цитировался :)  
 
__________  
запишите рекордером все ваши действия с подключением и получением данных, затем полученый код  предоставьте сюда, Вам его поправят  и применят если надо необходимую функцию.  
Затем создатите кнопку или еще чего, полученый код будет вызываться с помощью данной кнопки и данные будут загружаться как надо, а ваш запрос будет обрабатываться VBA что уже имеет прямое отношение к excel и данному форуму.{/post}{/quote}  
 
Вот так вот получается:  
Sub Макрос1()  
'  
' Макрос1 Макрос  
'  
 
'  
   With ActiveWorkbook.Connections("Запрос из Remedy").ODBCConnection  
       .BackgroundQuery = True  
       .CommandText = Array( _  
       "SELECT ""TT ticket"".""Created date"", ""TT ticket"".""Customer phone no"", ""TT ticket"".""Entry ID"", ""TT ticket"".City, ""TT t" _  
       , _  
       "icket"".""Zip code"", ""TT ticket"".""Assigned group"", ""TT ticket"".Status, ""TT ticket"".Notes, ""TT ticket"".""Created by""" & Chr(13) & "" & Chr(10) & "F" _  
       , _  
       "ROM ""TT ticket"" ""TT ticket""" & Chr(13) & "" & Chr(10) & "WHERE ((""TT ticket"".""Created by""='olgaarab') OR (""TT ticket"".""Created by""='radialma') " _  
       , _  
       "OR (""TT ticket"".""Created by""='elenaiva') OR (""TT ticket"".""Created by""='PVyskrebentsev') OR (""TT ticket"".""Created by" _  
       , _  
       """='sofiosip') OR (""TT ticket"".""Created by""='nikivere') OR (""TT ticket"".""Created by""='irinivan1') OR (""TT ticket"".""C" _  
       , _  
       "reated by""='nellglad') OR (""TT ticket"".""Created by""='nonabedz') OR (""TT ticket"".""Created by""='darikame') OR (""TT ti" _  
       , _  
       "cket"".""Created by""='yulisami1') OR (""TT ticket"".""Created by""='annasuhi') OR (""TT ticket"".""Created by""='viktpshe') O" _  
       , _  
       "R (""TT ticket"".""Created by""='irinkuro') OR (""TT ticket"".""Created by""='marguz')) AND (""TT ticket"".""Created date"">{ts" _  
       , _  
       " '2011-11-29 00:00:00'}) AND (""TT ticket"".""Created by group""='RU-L1-ROS') AND (""TT ticket"".Status<>'Closed')" & Chr(13) & "" & Chr(10) & "ORDER" _  
       , " BY ""TT ticket"".""Created date""")  
       .CommandType = xlCmdSql  
       .Connection = _  
       "ODBC;DSN=Remedy;ARServer=kung.tele2.se;ARServerPort=49000;UID=yaroleno;ARAuthentication=;SERVER=NotTheServer"  
       .RefreshOnFileOpen = False  
       .SavePassword = False  
       .SourceConnectionFile = ""  
       .SourceDataFile = ""  
       .ServerCredentialsMethod = xlCredentialsMethodIntegrated  
       .AlwaysUseConnectionFile = False  
   End With  
   With ActiveWorkbook.Connections("Запрос из Remedy")  
       .Name = "Запрос из Remedy"  
       .Description = ""  
   End With  
   ActiveWorkbook.Connections("Запрос из Remedy").Refresh  
End Sub

{quote}{login=R Dmitry}{date=29.11.2011 01:08}{thema=}{post}RenniW, Excel то многое может, но чужие языки он не знает :(  
в excel Вы вводите только текст команды которая обрабатывается в другом приложении, и возвращается Вам набор данных согласно Вашему запросу.  
В данном случае Excel корректно отправляет команду и получает то что выдает ему другое приложение, в Вашем случае MSSQL.  
Так как команда не правильная Вы получаете ошибку, которую excel Вам любезно показывает.  
К Excel вопросы есть?{/post}{/quote}  
 
Есть:  
 
Public Function ByTimeOffset(ByVal Seconds As Double) As String  
Const oldSQL As String = "(""TT ticket"".""Created date"">{ts '2011-11-23 00:00:00'})"  
Const findStr As String = "2011-11-23 00:00:00"  
ByTimeOffset = Replace(oldSQL, findStr, Format$(DateAdd("s", Seconds, Now), "yyyy-mm-dd hh:nn:ss"))  
End Function  
 
Вот эта функция автоматически будет обрабатывать существующий SQL код, или его как то необходимо передавать?  
Спасибо

{quote}{login=Юрий М}{date=29.11.2011 11:45}{thema=Re: Re: }{post}{quote}{login=RenniW}{date=29.11.2011 07:39}{thema=Re: }{post}{quote}{login=R Dmitry}{date=28.11.2011 07:49}{thema=}{post}RenniW, а речь вообще об VBA ?{/post}{/quote}нет, SQL запрос. Подключение через ODBC протокол, и возврат данных в Excel.{/post}{/quote}Тогда почему задаёте вопрос на форуме по EXCEL?{/post}{/quote}  
 
потому что речь идёт о возможностях excel, и стандартном методе получения данных через "источник данных" в excel

{quote}{login=anvg}{date=28.11.2011 04:30}{thema=}{post}А Replace не пробовали?  
newSQL = Replace(oldSQL, "'2011-11-23 00:00:00", Format$(DateAdd("s", -1200, NOW()),"yyyy.mm.dd hh:mm:ss")){/post}{/quote}  
 
Я не такой мастер(((  
Можете пояснить как правильно написать запрос, с учётом указанного в первом посте.???

{quote}{login=R Dmitry}{date=28.11.2011 07:49}{thema=}{post}RenniW, а речь вообще об VBA ?{/post}{/quote}  
 
нет, SQL запрос. Подключение через ODBC протокол, и возврат данных в Excel.

{quote}{login=GIG_ant}{date=25.11.2011 03:49}{thema=}{post}пробуйте так:  
 
"TT Ticket.Created.Date > " &  DateAdd("s", -1200, NOW()){/post}{/quote}  
 
Неа, все выходные по форум облазил. Не могу найти решения проблемы.

{quote}{login=egonomist}{date=25.11.2011 02:33}{thema=}{post}Такие вещи "TT Ticket.Created.Date" > (NOW() - INTERVAL 1200 SECONDS) нигде не проходят. Для прибавления, вычитания времени - используйте функцию Dateadd  
http://msdn.microsoft.com/ru-ru/library/ms186819.aspx  
 
"TT Ticket.Created.Date" > DateAdd(second, -1200, NOW()){/post}{/quote}  
 
 
К сожалению таже самая ошибка...

{quote}{login=GIG_ant}{date=25.11.2011 01:03}{thema=}{post}помоему здесь имеет место ошибка в синтаксисе:  
попробуйте так:  
 
"TT Ticket.Created.Date > " & NOW()    
 
Для меня не понятна конструкция: (NOW() - INTERVAL 1200 SECONDS){/post}{/quote}  
 
 
" & NOW() а где именно указать временной отрезок?

Всем доброго времени суток.  
 
Помогите пожалуйста решить проблемку.  
 
Использую подключение через ODBC. SQL запрос следующий:  
 
SELECT "TT ticket"."Created date", "TT ticket"."Customer phone no", "TT ticket"."Entry ID", "TT ticket".City, "TT ticket"."Zip code", "TT ticket"."Assigned group", "TT ticket".Status, "TT ticket".Notes, "TT ticket"."Created by"  
FROM "TT ticket" "TT ticket"  
WHERE (("TT ticket"."Created by"='olgaarab') OR ("TT ticket"."Created by"='radialma') OR ("TT ticket"."Created by"='elenaiva') OR ("TT ticket"."Created by"='PVyskrebentsev') OR ("TT ticket"."Created by"='sofiosip') OR ("TT ticket"."Created by"='nikivere') OR ("TT ticket"."Created by"='irinivan1') OR ("TT ticket"."Created by"='nellglad') OR ("TT ticket"."Created by"='nonabedz') OR ("TT ticket"."Created by"='darikame') OR ("TT ticket"."Created by"='yulisami1') OR ("TT ticket"."Created by"='annasuhi') OR ("TT ticket"."Created by"='viktpshe') OR ("TT ticket"."Created by"='irinkuro') OR ("TT ticket"."Created by"='marguz')) AND ("TT ticket"."Created date">{ts '2011-11-23 00:00:00'}) AND ("TT ticket"."Created by group"='RU-L1-ROS') AND ("TT ticket".Status<>'Closed')  
ORDER BY "TT ticket"."Created date"  
 
Но мне нужно поменять статическую дату ("TT ticket"."Created date">{ts '2011-11-23 00:00:00'}) на динамическую.  
Если я указываю вместо этого вот такой код "TT Ticket.Created.Date" > (NOW() - INTERVAL 1200 SECONDS) то возникает ошибка (прикладываю скрин).  
 
Заранее спасибо!

{quote}{login=GIG_ant}{date=02.11.2011 05:31}{thema=}{post}Применил к области данных,при добавлении данных все работает. см файл{/post}{/quote}  
 
Не работает, вот пример, на вашем же файле.

{quote}{login=GIG_ant}{date=02.11.2011 05:31}{thema=}{post}Применил к области данных,при добавлении данных все работает. см файл{/post}{/quote}  
 
Можно ещё раз? не совсем понял какой диапазон задавался для форматирования?

Всем добрый день!  
 
Вопрос следующий:  
 
У меня создан динамический массив функцией: =СМЕЩ(Поствызов!$B$5;0;0;СЧЁТЗ(Поствызов!$B$5:$B$400)-1;СЧЁТЗ(Поствызов!$B$4:$Z$4))  
 
Этот динамический массив получается на сводной таблице (в её области)  
 
Я хочу применить это форматирование, к динамической области. Так как каждый день файл обновляется и таблица расширяется. Но, когда в условном форматировании указываешь к чему применить это форматирование, то есть эту формулу, выделяется текущий диапазон и он становится статическим далее не красится при следующем обновлении. Пример не могу кинуть книга очень тяжёлая. Кидаю скрин.  
 
Заранее спасибо.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=MCH}{date=11.10.2011 11:59}{thema=}{post}Вариант.  
формулы массива вводятся нажатием ctrl+shift+enter{/post}{/quote}  
 
Просто нереально круто!  
 
А можно вопрос?  
 
Где идёт, поиск перерыва, так указаны первые десять строк, что это означает? не могу понятно для себя прочитать формулу.

{quote}{login=Юрий М}{date=11.10.2011 10:54}{thema=Re: учёт проведенного времени}{post}{quote}{login=RenniW}{date=11.10.2011 10:51}{thema=учёт проведенного времени}{post}Если сотрудник два раза зашёл или вышел, то в эту дату необходимо написать что нарушил правила работник.{/post}{/quote}Какой работник? Тут наказывать нужно того, кто фиксирует :-){/post}{/quote}  
 
это, дааа. но всё же есть идеи?

На первом листе исходные данные.  
На втором  данные, которые я преобразовал (но это необязательное условие, быть может вам оно не понадобится).  
 
Смысл задачи таков, есть сотрудники все они приходят и уходят на работу.  
Так вот на третий лист необходимо с первого собрать следующие данные.  
 
ВО сколько пришёл и ушёл за каждый день. Если между уходом и приходом на работу есть ещё выходы/вхоеды (перекуры) то это время неоьходимо так же посчитать.  
 
Если сотрудник два раза зашёл или вышел, то в эту дату необходимо написать что нарушил правила работник.  
 
Ума не могу приложить как найти минимальную и максимальную дату и время в каждый день, и соответственно перерывы.  
 
За корректное решение всей задачи, ребят готов отблагодарить материально!  
Поверьть очень нужно.  
Спасибо!

{quote}{login=KukLP}{date=02.10.2011 12:15}{thema=}{post}Правильно возникает. nerv писал: "в модуль листа1". А Вы куда вставили? Если в общий модуль, то надо явно указывать лист:  
       For Each v In Sheets("Есть").UsedRange.Columns(1).Cells{/post}{/quote}  
 
Спасибо, уверен был что вставил туда, куда нужно, но не тут то было.  
Интересно сколько будет выполняться макрос? уже 10 минут висит 843 заполненные строки.?

{quote}{login=nerv}{date=02.10.2011 09:28}{thema=}{post}\в модуль листа1  
   
Sub io()  
Dim v, x, i&  
With Sheets(2)  
   For Each v In UsedRange.Columns(1).Cells  
       If v.Value <> "" Then  
           For x = CDate(Format(v.Item(1, 2).Value, "DD.MM.YYYY")) To CDate(Format(v.Item(1, 3).Value, "DD.MM.YYYY"))  
               i = i + 1: .Cells(i, "A").Value = CDate(x): .Cells(i, "B").Value = v.Value: .Cells(i, "C").Value = v.Item(1, 4).Value  
           Next  
       End If  
   Next  
   .Range(.Cells(1, "A"), .Cells(i, "C")).Sort Key1:=.Cells(1, "A"), Header:=xlNo  
End With  
End Sub{/post}{/quote}  
 
 
For Each v In UsedRange.Columns(1).Cells  
возникает ошибка object required

Ребята, есть таблица с шапкой из дат, а в ней в столбцах данные, данные так и надо оставить в столбцах, но перенести без пустот. А справа ещё и соответствующую дату прокопипастить. Как сделать?:(  
Прикреплён файл, с листами соответственно есть и надо  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Ребята битый час бьюсь с проблемой не приходит решение.  
Кидаю файл сразу.  
Ситуация следующая, на листе "есть" даны исходные данные. Столбец А и D не несут смысловой нагрузки это данные которые необходимо перенести на лист "Надо" но по условию. В столбце B - начало процесса, а в столбце С конец процесса. Так вот если процесс начался первого числа а закончился третьего то на листе "Надо" должен отображаться вот так  
01.05.2011 Процесс 1  
02.05.2011 Процесс 1  
03.05.2011 Процесс 1  
 
Данных таких порядка 5000 строк, с разбросом дат от 01.05.2011 до 30.09.2011 (и 01.05.2010 до 30.09.2010)  
 
Главное укажите путь или хотябы логику, не могу сам дойти.  
Заранее огромное спасибо.

{quote}{login=GIG_ant}{date=27.09.2011 01:57}{thema=}{post}Макросом{/post}{/quote}  
 
Огромное спасибо, чуть чуть подковырял под себя макрос. То что нужно.

{quote}{login=}{date=27.09.2011 01:31}{thema=}{post}http://www.planetaexcel.ru/tip.php?aid=87{/post}{/quote}  
 
Спасибо, но не то.  
 
Макрос не учитывает, что могут быть пустые значения. А мне пустые значения надо исключать.

Ребята, ГУРУ, подскажите пожалуйста, как сделать, не могу понять.  
 
Всё описано в файле.

{quote}{login=nerv}{date=14.09.2011 04:54}{thema=}{post}=НАИБОЛЬШИЙ(A2:A8;1){/post}{/quote}  
 
Спасибо.  
 
А если есть два одинаковых элемента, как сделать что б он вывел их оба?

Добрый день.  
 
Имеется массив из m значений.  
необходимо взять n первых наибольших чисел.  
 
Хотелось бы формулами, но если нет такой возможности, то макрос.  
 
Пример в файле.  
 
Заранее большое спасибо.

{quote}{login=webley}{date=15.07.2011 08:27}{thema=}{post}В модуль ЭтаКнига добавить  
 
Private Sub Workbook_Open()  
   'имя вашей функции  
End Sub{/post}{/quote}  
 
Большое спасибо.