Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Обработка файлов из одной папки
 
Ребят, всем привет! Подскажите пожалуйста, как сделать
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'


Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc1.xlsx"
Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc2.xlsx"
Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc3.xlsx"

    Dim FilesToOpen
    Dim x As Integer
 
    Application.ScreenUpdating = False
     
   
  
Workbooks("doc1.xls").Worksheets("Лист1").Range("A2:D10").Copy
    Windows("doc1.xls").Activate
    Range("A2:D10").Select
    Selection.Copy
    Windows("glavdoc.xls").Activate
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("A6:C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("E8").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Range("F2:G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H8").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("G6:K14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("J8").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Sheets("Лист2").Select
    Range("C2:D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("F2").Select
    ActiveSheet.Paste
    Windows("doc3.xls").Activate
    Range("G2:G5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H2").Select
    ActiveSheet.Paste
    Sheets("Лист2").Select
    Windows("doc1.xls").Activate
    Sheets("Лист1").Select
    Range("K2:Q10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("A9").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("M6:M14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H9").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Range("S2:U10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("I9").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("D6:G14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("L9").Select
    ActiveSheet.Paste
    Windows("doc3.xls").Activate
    Range("A2:C5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("G2").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Sheets("Лист2").Select
    Range("G2:G5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("J2").Select
    ActiveSheet.Paste
     Application.ScreenUpdating = True
    Workbooks("doc1.xls").Close
    Workbooks("doc2.xls").Close
    Workbooks("doc3.xls").Close
End Sub
 
чтобы вот это обрабатывалось все время из одной и той же папки ( скидываем файлы с неизменным названием в папку которая может храниться в любом месте на диске, открываем главный документ, и все описанное в коде происходит без того, что мне приходится открывать эти документы). Видел подобную работу макроса для консолидации однородных данных, но  к сожалению он запоролен и проблема в том что мои документы имеют разные данные и разное построение таблиц..Помогите кто чем может пожалуйста!
Изменено: meshkale - 18.07.2014 09:59:26
Проверить содержимое ячейки на наличие в конце "0"
 
Ребята всем привет! Подскажите можно ли с помощью формулы проверить содержимое ячейки на наличие нуля? чтобы было понятно покажу на примере:
если в ячейке А1 содержится 11-1212-12312-0 то в ячейке В1 выдать что то типо " да " или "есть", а если в ячейке А2 содержится 12321-1232-123 то в В2 выдать "нет"  т.е. в конце ячейки А1 содержится "0" или "-0" а в А2 не содержится.Спасибо!
Создание общего доступа
 
Здравствуйте, столкнулся с проблемой создания общего доступа к документу путем защитить книгу и дать общий доступ, первое время все работает нормально но потом начинается паронормальное явление, то не могут сохранить редактированные данные так как общий доступ снялся причем сам хоть и пароль стоит, то общего доступа нет но в "защитить книгу и дать общий доступ" все нормально. Что я не так делаю подскажите инструкцию для создания рабочеспособного общего доступа (проблемы не только у одного документа, сеть в порядке), пользователи имеют доступ к полному редактированию данных но хотелось бы чтоб шапку таблицы они все таки не трогали. Гуглю второй день но ответа на вопросы так и не нашел(
Расстановка галок в chckbox по выбранной ячейке
 
Возможно ли сделать так, чтобы при выборе ячейки флажки расставленные в checkbox сохранялись на своих местах, а при выборе другой ячейки сбрасывались т.е. я всегда могу нажать на ячейку которую заполнял ранее а флажки были в расставлены так как я их заполнял? или хотя бы так, я ввожу id в edit или выделенную ячейку и таким же макаром мог видеть как я раньше расставлял флажки?
Помогите с формулой для подсчета строк с несколькими условиями
 
Здравствуйте еще раз, предыдущую тему закрыли скорее всего из за ошибок оформления или повторения темы но ответа на свой вопрос на форуме я к сожалению не нашел. Мне нужна помощь в приобразовании формулы =СУММПРОИЗВ (ПРОМЕЖУТОЧНЫЕ. ИТОГИ (3;СМЕЩ (A2;СТРОКА (A2:A15)-СТРОКА (A2);))*(A2:A15="саша")) которая подсчитывает количество ячеек с именем саша, а ак сделать эту формулу для нескольких условий ( саша и андрей к примеру)? обязательно нужно для промежуточных итогов
Изменено: meshkale - 03.02.2014 08:54:04
фильтрация с последующим переносом
 
Уважаемые эксперты подскажите пожалуйста как автоматизировать процесс фильтрации огромной таблицы с последующим копированием фильтрованных данных в другой документ?
Страницы: 1
Наверх