Добрый день. Интересует такой вопрос. Имеется книга 1 "данные.xls". В ней один лист с числами и текстом. Так же имеется вторая книга "Шаблон расчета.xls" в ней несколько листов с формулами.

Необходимо макросом данные вставить в закрытую книгу "Шаблон расчета.xls" на лист данные и сохранить как новую книгу или
создать новую книгу на основе двух имеющихся, т.е. полностью скопировать (с формулами) листы из второй книги и из первой на соответствующие новые.
Подскажите пожалуйста как проще это сделать.

Идеальный вариант был бы такой:
1. Открываю первую книгу
2. Запускаю макрос
3. Листы из второй книги копируются в новые листы первой книги.

Буду благодарен за любую помощь.

Добрый день, товарищи. Прочитал несколько тем, но так и не смог разобраться. Прошу вас помочь
На первом листе имеются два столбца. В первом - имя клиента, упоряд. по алфавиту, в другом необходимо подставить дату последнего заказа. Ее нужно найти из столбца на втором листе. Как это проще всего сделать, помогите пожалуйста!

Добрый день. Хотелось бы этот вопрос решить с помощью формул. Имеется форма расчета, там есть требования к названиям позиций на первом листе в столбце №4. Я часть уже решил, таких как дописывание слова деталь и добавление это в кавычки и т.д.
Но остается важный момент, если название позиции уже имеет слова ( Деталь, табличка, подложка, мангал, флюгер ) то к ним слово Деталь не добавлять. Слова для сцепки находятся в правой части экрана на сером фоне.Лишние столбцы скрыл что бы не мешали вам. Импорт названий производится из листа Сalculation на страницу 1 в столбец 30.Конечный вариант должен быть в 4 столбце первого листа. Надеюсь объяснил доступно. Помогите пожалуйста.

Добрый день, уважаемые товарищи.
Имеется общая книга эксель (версия 2013). Необходимо что бы определенному пользователю (одному) :
1.  можно было редактировать только один единственный столбец на определенном листе (а именно менять статус заказа, в идеале - из выпадающего списка), а остальным сотрудникам (порядка 10 чел) что бы это никаким образом не мешало бы. У остальных пользователей должен быть полный доступ.
2*. На других  ячейках (определенных) возможность менять только цвет ячейки (цвет ячейки соответствует выполненной тех. операции)

*-требование не обязательное.

Добрый день товарищи. Помогите написать макрос который будет автоматически запускаться при открытии книги и будет искать знак "?", если он будет его находить, то вывести сообщение " найден знак", если не будет, то ничего не делать. Спасибо!  

Необходимо в экселе делать обратную транслитерацию. Макрос за основу взял этот http://www.planetaexcel.ru/techniques/7/32/ и поменял местами англ и рус буквы. Но есть известная проблема, с сочетаниями буквами sh, ch и так далее. Поэтому есть смысл в макросе сначала проверить сочетания букв, а потом по отдельности буквы. Я в макросах не силен, только изучаю. Вопрос : замена в тексте сначала сочетаний, а потом уже отдельных букв. Помогите поправить мой макрос. Спасибо!

Function Transliterr  (Txt As String) As String

1. Dim Eng As Variant
   
2. Eng = Array("shh", "aa", "yy", "kh", "ch", "sh", "ts", "ya", "yu", "jo", "zh", "SHH", "AA", "YY", "KH", "CH", "SH", "TS", "YA", "YU", _
   
3. "JO", "ZH", "'", "a", "b", "v", "g", "d", "e", "z", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "'", "A", "B", "V", _
   
4. "G", "D", "E", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F")
   
5. 
   
6. Dim Rus As Variant
   
7. Rus = Array("щ", "э", "ы", "х", "ч", "ш", "ц", "я", "ю", "ё", "ж", "Щ", "Э", "Ы", "Х", "Ч", "Ш", "Ц", "Я", "Ю", _
   
8. "Ё", "Ж", "а", "б", "в", "г", "д", "е", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", _
   
9. "ь", "А", "Б", "В", "Г", "Д", "Е", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф")
   
10. For i = 1 To Len(Txt)
    
11. с = Mid(Txt, i, 1)
    
12. 
    
13. flag = 0
    
14. For J = 0 To 64
    
15. If Eng(J) = с Then
    
16. outchr = Rus(J)
    
17. flag = 1
    
18. Exit For
    
19. End If
    
20. Next J
    
21. If flag Then outstr = outstr & outchr Else outstr = outstr & с
    
22. Next i
    
23. 
    
24.  Transliterr = outstr
    
25. End Function
    

Документ Pattern является шаблоном для программы аторассчета. Программа авторассчета на третий и четвертый лист данной книги забивает информацию о файлах, которые необходимо просчитать. На первом и втором листе есть форма ( с формулами) которая считает стоимость заказа исходя из того что вбито в третий и четвертый лист. Так как кол-во позиций при каждом  расчете разное -  пришлось итоговую сумму заказа перенести наверх. Но требование руководства что бы она была в конце расчета, на две строки ниже последней позиции, а именно так как я привел в примере выделил желтым цветом над шапкой таблицы (то что сейчас имеется), а под таблицей, после трех позиций жетым выделил желаемое местоположение итогов.. Надеюсь вариант решения имеется. Спасибо! Версия офиса 2013.
Файлы удалены - превышен максимально допустимый размер. Ознакомьтесь с Правилами.