в книге 3 макроса(условно "мак1","мак2","мак3")и несколько кнопок.  
нужно чтобы при нажатии на первую кнопку выполнялся    
сначала "мак1",    
потом "мак2",    
потом "мак3",    
а на второй кнопке чтобы выполнялся    
сначала "мак3",    
потом "мак1",    
потом "мак2"  
возможно???

в таблице есть заказы, каждый заказ на своём листе. чтобы напечатать заказ есть такой макрос:  
Sub печать()  
x = InputBox("введите номер страницы", "печать")  
If x = "" Then GoTo ennds  
If x <> "0" Then ExecuteExcel4Macro "PRINT(2," & x & "," & x & ",1,,,,,,,,2,,,TRUE,,FALSE)"  
ennds:  
End Sub  
 
вводим номер листа на котором расположен заказ, и печатаем его, но проблема в том, что некоторые заказы расположены на нескольких страницах. как исправить этот макрос, чтобы он печатал несколько листов. например при вводе 23-25 печатал с 23 по 25 страницы, а при вводе 23 только 23. чтото типа если есть "-", то до "-" это Х, а после У и потом  ...."PRINT(2," & Х & "," & У & ".........

есть книга, которая обновляется раз в день из рабочего файла(чтобы пользователи не могли ничего попортить). пользователям она нужна только для просмотра, т.е. первый кто её открывает может её править, а все остальные, только для чтения, в т.ч. и я когда хочу её обновить. как можно обойти эту проблему?

Здравствуйте!  
как можно защитить книгу или хотябы лист, чтобы править его мог только я, а все остальные пользователи только смотреть. общий доступ в ней отключен и когда у меня книга открыта, то всё понятно, а вот когда она у меня закрыта, получается что все ей могут пользоваться.  
попробовал сделать так    
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
End Sub  
но он просто защищает её, без пароля. что нужно сюда дописать чтобы задавался пароль. И можно сделать так, чтобы этот макрос выполнялся, когда только я открываю эту книгу???? как-нибудь привязать, например, к имени пользователя....

надоело переключать раскладку с рус на анг и обратно  
в книге, в разные ячейки данные вводятся на разных языках.  
т.е. название вводится на русском, номер содержит латинские буквы, потом заказчик опять на русском, потом его номер..... и т.д.    
можно какнибудь на подобии ActiveCell.NumberFormat =  задавать для ячеек язык ввода?????

как вычислить номер последней страницы чтобы поставить в скобки Set ActiveSheet.HPageBreaks(3).Location = Range("A1")????

здравствуйте.  
количество повторяющихся ячеек неизвестно, но диапазоны одинаковых ячеек отделены друг от друга пустой ячейкой.  
как найти адрес, например, последней "22" или пробела после неё? или сосчитать сколько "22" в столбце?? известен адрес первой "22"  
 
т.е. чтото типа  
 
for x = 0 to 1000  
if cells(x,1) = "" then  
kol=x  
goto sled  
end if  
sled:  
 
только покороче....

здравствуйте!  
нужно заполнить столбец  
пишу  
Range(ActiveCell, ActiveCell.Offset(3)).value = Array("данные1", "данные2", "данные3")  
заполняется столбец, но все три строки = "данные1"    
если пишу Range(ActiveCell.offset(3), ActiveCell.Offset(,3)) = Arra("данные1", "данные2", "данные3")  
заполняется первый столбец тримя "данные1" второй тримя "данные2" и т.д.  
как их вывести в столбец???

Здасьте всем!  
вот не пойму я зачем такое количество строк и столбцов в экселе если при заполнении 10 столбцов (5 з них формулы) и 300 строк он тачинает ТАК тупить...... или это рассчитано на какието супер компьютеры???? если в нем отключить авто пересчет можно потом пересчитывать только один столбец???

Здравствуйте!  
есть общая книга, которой пользуются 3-6 человек одновременно, в ней примерно 1000 рабочих строк и 16 столбцов. размер файла при этом ок 750кб. периодически книга прибавляет в весе до 5-10 Мб изза того что "рабочая область" растягивается до максимального размера 2007-го экселя..... какбудто ктото из пользователей уснул на энтере или правой стрелке... изза чего такое может быть и как с этим бороться????

Доброго всем времани суток.  
есть макрос добавляющий шаблон на лист. сначала он выполнялся примерно пару сеунд, постепено он совершенствовался и рос, теперь он выполняется примерно минуту, а то и две.... подскажите что в нем можно поменять чтобы он работал побыстрее или что для этого сделать???

Доброго времени суток.  
в книгу вводятся артикулы и по ним через смещ(поискпоз()) проставляется цена в зависимости от выбранного прайса. проблема в том, что прайсы примерно по 40000строк, это сильно увеличивает размер книги и время её открытия и сохранения. будет ли работать смещ(поискпоз()) из другой книги???  
=(СМЕЩ(ДВССЫЛ("'прайс " & M1& "'!R1C1";ЛОЖЬ);ПОИСКПОЗ(ПОДСТАВИТЬ(B1;СИМВОЛ(45);"");ДВССЫЛ("'прайс " & M1& "'!R2C1:R50000C1";ЛОЖЬ);0);1))  
в формуле в ячейке М1 указывается имя прайса.  
 
Какнибудь так нельзя сделать??? только с синтаксисом запутался  
имяфайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "прайс")  
ActiveCell.Offset(0, 2) = "=indirect(""'[" & имяфайла & "RC[9]& "".xls]ЛИСТ1'!$C$4"",false)"

если в искомых значениях содержится хоть одна буква, то всё отлично, а если только числовое значение, то не работает. изменение формата на текстовый и обратно не помогает.    
=СМЕЩ('прайс 1'!A1;ПОИСКПОЗ(ПОДСТАВИТЬ(B30;СИМВОЛ(45);"");'прайс1'!A2:A50000;0);2))

драсьте всем!  
в таблице есть огромный прайс (примерно 40000строк)в первом столбце артикул, во втором цена. к нему приходит обновление цен примерно 200 строк. сделал вложенными циклами: беру первый артикул из обновления и сравниваю со всеми строками прайса, если совпадение, обновляю цену, если нет, добавляю строку в конец прайса. проблема в том, что выполняется всё это оооочень долго:( както можно это сделать через FIND???? немогу разобраться с синтаксисом этого find`а...

Здравствуйте!  
нужно чтобы по артикулу формула =(СМЕЩ('прайс столы'!R1C1;ПОИСКПОЗ(RC[-2];'прайс столы'!R2C1:R10000C1;0);1)) искала цену. но в книге ещё есть листы "прайс стулья", "прайс табуретки" и т.д. как написать формулу, чтобы в зависимости от значения в ячейке формула искала цену на нужном листе(чтобы в формулу, в ссылку на лист подставлялось "прайс" и значение из ячейки)?? т.е. чтото типа =(СМЕЩ('прайс & rc[-1]!R1C1;ПОИСКПОЗ(RC[-2];'прайс rc[-1]'!R2C1:R10000C1;0);1))
через если(rc[-1]="столы";(СМЕЩ('прайс столы!R1C1;ПОИСКПОЗ(RC[-2];'прайс rc[-1]'!R2C1:R10000C1;0);1));если(rc[-1]="стулья";";(СМЕЩ('прайс стулья......... получается громоздко...

Добрый День!  
есть макрос, который вставляет на лист шапку бланка, одну за другой. как сделать так, чтобы макрос вставлял ячейку с выпадающим списком в этот бланк??? на ум приходит только копирование из первого бланка типа ActiveCell.Offset(2, 1) = cells(2,2), но тогда вставляется и значение первого бланка.... есть каконибудь метод кроме такого копирования?

Здравствуйте!  
что нужно написать после Workbooks.OpenText Filename:= чтобы открывался файл из тойже папки в которой лежит файл из которого выполняется макрос?????

Здравствуйте.  
в первом столбце таблице артикулы(цыфры в текстовом формате), во второй столбец макрос преобразует эти артикулы в числа с помощью STR:  
For x = 2 To 10  
   Cells(x, 2) = str(Cells(x, 1))  
Next  
в третий столбец вписываются наименования через смещ(поискпоз()).  
проблема в том, что в артикулах попадаются не только числа, но и буквы. появляется ошибка. если не преобразовывать через str, то смещ(поискпоз()) выдаёт #Н/Д... изменение фориата на числовой не помогает. как обойти эту ошибку? можно как-то посмотреть есть ли в ячейки буквы и если есть то просто скопировать, а если нет, то скопировать с str???

большая таблица, макрос просматривает её и при несовпадении ячеек всплывает msgbox и спрашивает какое значение оставить. что сделать чтобы можно было посмотреть данные во  всей строке и вернуться к msgbox для выбора???

Здраствуйте.  
в столбцах сумма задана в таком формате: 12.345,67  
записал макрорекордером выделение ячеек и замену в них "." на ""  
получилось:  
Columns("D:I").Select  
   Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
проблема в том что если сумма меньше 1000 ,т.е. "."в ней нет, то убирается запятая. например 234,78 превращается в 23478  
изза чего такое может быть????

Доброго времени суток.  
в эксель заполняется шаблон в формате .CSV (разделители запятые) и экспортируется в другую программу(Microsoft busines solutions). проблема в том, что все числа експортируются нормально, а буква "п" становится ">", а "П" в "Я"(((( причем если копировать данные из программы в эксель через ctrl+c при английской раскладке, то в эксель вместо русских букв вставляется какаято чепуха, а если копировать с русской раскладкой, то всё отлично, но при экспорте переключение раскладок не помогает:( ктонибудь знает что можно сделать????

в таблице на листе 1 список заказанного товара, красным помечается пришедший товар. на листе 2 в столбце В(заказ) через СЧЕТЕСЛИ() считается сколько строк(наименований товара) в каждом заказе. как в столбце С сосчитать сколько строк(наименований товара) уже пришло, т.е. закрашено красным. всё это нужно для того, чтобы понять готов заказ или нет, если значения в столбце В и С совпадают, значит заказ пришел целиком.

а можно сделать так, чтобы изменения вносимые макросом тоже можно было отменить???

макрос проверяет сколько пришло товара и если пришло меньше чем заказывали пишет в ячейку "пришло только * шт", но перед тем как написать это, он с помощью LIKE по маске проверяет нет ли уже в этой ячейке "пришло только * шт"(не приходил ли уже этот товар). как выделить число которое ставится вместо звездочки чтобы сложить его с "новым" числом.  
например в ячейке написано "пришло только 4 шт", вот как выделить эту четверку чтобы сложить её со следующим числом???

Поможите люди добрые! знаю что тема популярная, но админы на работе вредностные притесняют свободу юзверей, обрезают безкрайние просторы интернета:(  
как переделать iLastRow = Cells(Rows.Count, ref).End(xlUp).Row чтобы работало не по столбцу, а по строке???  
в поиске видел несколько тем, но открыть их не получилось:( если кому не лень, напишите пожалуйста:)

Доброго времени суток!  
как можно проверить цвет ячейки??? и как залить ячейку? например если ячейка А1 красная, залить ячейку B2 зеленым?

Здравствуйте!  
есть список, в который забивают заказанный товар. каждый заказ имеет свой номер. позже приходит товар и человек ВРУЧНУЮ выделяет строки с товаром который пришел.  
товар который пришел в примере выделен желтым. выделенные/пришедшие строки после приёмки удаляются. если какойто товар не пришел, строка остается не выделенной и он может прийти в следующий раз, со следующей накладной...  
вопрос как можно всё это автоматизировать?????

Здравствуйте!  
В таблице есть список товара и материала из которого этот товар можно сделать. в столбце С список материалов необходимых для изготовления изделия, а в столбце D полученый со склада материал. в столбец D добавлено условное форматирование которое сравнивает полученое количество с необходимым и если они совпадают, выделяет зеленым цветом, а если получено больше чем надо, то красным. над каждой табличкой суммируются количества материала чтобы было выдно когда материал есть и можно приступать изготовлению товара. В первых двух случаях всё работает корректно, но в третьем, когда итоговые суммы совпадают за счет того,что один материал не получен вообще, а другого взяли больше и итоговая сумма "зеленеет". как сделать чтобы в 3-м случае сумма всёравно краснела???

Что влияет на размер книги???  
вчера в книгу с данными добавил условное форматирование и выпадающие списки, она весила 270Кб. вернул в общий доступ, в неё добавили строк 20, в основном пользователи изменяют значения в ячейках, перемещают/удаляют строки. сегодня книга стала весить уже 5.5Мб!!! открывается очень медленно. выделяю весь лист, нажимаю "очистить содержимое" уменьшается до 4,5Мб.... Изза чего может так увеличивается книга???

Здравствуйте.    
в приёмах нашел макрос  
Sub Backup_Active_Workbook()  
   Dim x As String  
   strPath = "c:\TEMP"  
   On Error Resume Next  
   x = GetAttr(strPath) And 0  
   If Err = 0 Then ' если путь существует - сохраняем копию книги  
       strDate = Format(Now, "dd/mm/yy hh-mm")  
       FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name,  _  
            Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xls"  
       ActiveWorkbook.SaveCopyAs Filename:=FileNameXls  
   Else 'если путь не существует - выводим сообщение  
       MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical  
   End If  
End Sub  
 
а как сделать чтобы книга сохранялась раз в день?? Private Sub Workbook_BeforeClose не подходит потому что книга может открываться и закрываться несколько раз в день. и как будет работать этот макрос если книга в общем доступе??? будет сохраняться каждому открывшему её???