Или эти дни у вас уже будут проставлены?

что то не понял на счет "день когда начинаются лимиты", по какому принципу выбирается этот день?

У меня вывод есть. Может вы просто не там смотрите, так как у вас вывод идет в окно Debug. Можете конечно написать вместо debug.print, msgbox. Но лучше помоему все таки сделать вывод куда-нибудь на лист.

Есть такая функция в оракле как NVL, которая заменяет Null значения на то, что вам надо. Думаю и в вашей СУБД есть такая функция. Null это по сути ничего, и любая операция с Null, будет выводить опять же Null.  
 
SELECT SUM(NVL(Column1,0)) + SUM(NVL(Column2,0)) AS Итог FROM Table

Как вам уже подсказали.  
Private Sub CommandButton1_Click()  
Kill "C:\Documents and Settings\All Users\Рабочий стол\textfile.tri"  
Open "C:\Documents and Settings\All Users\Рабочий стол\textfile.tri" For Output As #1  
Close #1  
End Sub

Можно с помощью словарей (подключите библиотеку в tools-references-галку на "Microsoft Scripting Runtime")  
 
Sub myExample()  
Set arr1 = New Dictionary  
Set arr2 = New Dictionary  
arr1.Add 0, 1  
arr1.Add 12, 2  
arr1.Add 24, 3  
 
arr2.Add 1, 1  
arr2.Add 13, 2  
arr2.Add 25, 3  
Enter = InputBox("введите число") ' вводим число которое будет искаться в массивах  
If arr1.Exists(Val(Enter)) Then MsgBox "1st Massiv"  
If arr2.Exists(Val(Enter)) Then MsgBox "2nd Massiv"  
End Sub

Sub perenos()  
k = 7  
For i = 4 To 20  
   Cells(k, 3) = Cells(i, 7)  
   Cells(k, 4) = Cells(i, 8)  
   k = k + 5  
Next i  
End Sub

А у меня с этой строчкой, в вашем примере заменило значения нормально.  
Не знаю тогда

Set FoundRng = .Find(ZamenaSht.Cells(iRow, 1), LookIn:=xlFormulas, LookAt:=xlWhole)  
 
может так

Добрый вечер.  
 
Подскажите, какой-нибудь способ объединения(слияния) массивов.  
Есть ли способ отличный от перебора элементов массива в цикле?  
 
 
 
п.с. Пробовал API функцию CopyMemory, но она частенько вызывает виндовые ошибки, которая закрывает эксель файл с ошибкой (притом что операция копирования прошла успешно).

Лучше используйте этот файл.  
Кое что исправил

{quote}{login=wwizard}{date=05.01.2011 04:05}{thema=Re: }{post}{quote}{login=alec}{date=05.01.2011 03:45}{thema=}{post}Что то типа этого?{/post}{/quote}  
 
 
Ой спасибо большое, еще вопрос, оно может туда (в результат) еще дату проставлять которые в ячейке {B} стоит?{/post}{/quote}  
 
Да может. Поставьте формат ячеек "Дата"

Что то типа этого?

Ну в макросе можно выполнить проверку защищен ли лист/книга и программно указывать пароль. Думаю так  
 
ActiveSheet.Unprotect ("пароль")  
ActiveSheet.Protect ("парол")

Поставьте пароль на листы/книгу вручную, а макрос удалите.  
Вы наверное думайте что при закрытии книги все пароли слетают?  
Это не так. Один раз поставите и все.

А у вас каждое утро новые листы? Или новая книга? Не совсем понял суть...  
Можно запаролить один раз и всё.

Погуглил:  
 
http://excelvba.zbord.ru/viewtopic.php?p=2591  
 
Может поможет

или отсортируйте три столбца и пускайте цикл с соответствующими условиями (до тех пор пока встречаются дубликаты)

Немножко переделал макрос Казанского.  
 
Sub Yelisey()  
Dim i As Long, iHdrRow As Long, iLastRow As Long  
iHdrRow = 1  
iLastRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row  
With Sheets(1)  
For i = 2 To iLastRow + 1  
   If Trim(UCase(.Cells(i, 1))) = UCase("MlabelGrup") Or Trim(UCase(.Cells(i, 1))) = UCase("MkartSclad") Or i > iLastRow Then  
       Worksheets.Add after:=Sheets(Sheets.Count)  
       .Range(.Cells(iHdrRow, 1), .Cells(i - 1, 7)).Copy [A1]
       iHdrRow = i  
   End If  
Next  
End With  
End Sub

Выложите все варианты, которые могут попадаться в заголовке.  
Т.е.  MkartSclad, MlabelGrup - это всё? Или есть еще что-нибудь?

Sub Перенести()  
Dim iDate As Date  
Dim iLastRow As Long  
Dim i As Long  
Dim j As Long  
Dim sh As Integer  
Dim iFoundRng As Range  
Dim iName As String  
Dim Ws As Worksheet  
 
iLastRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row  
Range(Sheets(1).Cells(1, 2), Sheets(1).Cells(iLastRow, 255)).ClearContents  
For i = 2 To iLastRow  
iDate = Sheets(1).Cells(i, 1)  
j = 2  
For sh = 2 To Sheets.Count  
Set iFoundRng = Sheets(sh).Columns(1).Find(What:=iDate, LookIn:=xlFormulas, lookat:=xlWhole)  
If Not iFoundRng Is Nothing Then  
Sheets(1).Cells(1, j) = Sheets(sh).Name  
Sheets(1).Cells(i, j) = Sheets(sh).Cells(iFoundRng.Row, 5)  
End If  
j = j + 1  
Next  
Next  
End Sub  
 
 
 
на случай если лист "пример" переименует и запускать макрос будет не с первого листа:)

Set iFoundRng = .Columns(1).Find(What:=iDate, LookIn:=xlFormulas, _ lookat:=xlWhole)  
 
Думаю нужно убрать нижнее подчеркивание:  
 
Set iFoundRng = .Columns(1).Find(What:=iDate, LookIn:=xlFormulas,lookat:=xlWhole)

Поискал по англ. сайтам и наткнулся на решение, подобное вашему.  
 
http://www.jkp-ads.com/Articles/WorkbookOpenBug.asp  
 
p.s. там написано что ms признал этот баг...

Спасибо! сейчас попробую.  
 
Вообще я много гуглил по этой теме, и только в двух местах встречал подобные темы. И нигде небыло конкретного решения данной проблемы. Только описание, что это какая то "офисная" фишка...  
 
Ладно если накопаю ещё что-нибудь, то отпишусь здесь.  
 
Ещё раз спасибо

Сделал пример.  
В архиве файл stat.xls(из него запускать макрос) и папка test(там файл testfile.xls который будет открываться макросом). В папке test сделай по больше копий файла testfile.xls чтобы макросу было с чем работать.  
 
В общем пример ничего интересного не считает, так как в данном случае это неважно.  
Во время того как макрос будет выполнятся по нажимай кнопку shift, и макрос остановится. На работе мне хватает одного нажатия, дома раза с четвертого:)  
 
Заранее благодарю за помощь:)

я думаю главное здесь чтоб clearcontents работал один раз

lr = Cells(65535, 2).End(xlUp).Row  
Range("B3:E" & lr & "," & "G3:I" & lr).Select

Выложу вечером.  
 
Тыкать приходится так как макрос пробегает по больше чем 10 000 файлам. И не пользоваться компом как то неудобно:)

Добрый день.  
 
У меня есть макрос который пробегает по файлам папки. Каждый файл он открывает и собирает там нужную информацию. Но не суть.  
Суть в том что если при выполнении макроса нажать клавишу shift, то макрос открывает следующий по циклу файл и прерывается, как будто он закончился.  
Гуглил по этой теме и нашел что shift вроде как прерывает макросы или что то вроде того.  
Может кто сталкивался с таким. Если да, то можно ли это обойти?

Нет мне собственно все равно, просто интересно было, можно ли вообще это провернуть без активации книги. Как я понял, ответ - нельзя :)