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

Страницы: 1
Запуск макроса после сохранения книги
 
Добрый день! Макрос - автозапуск не работает.

Книга Ексель имеет 10 листов
На десятом листе прописан макрос, который должен при изменении на том же листе автоматом записывать новую информацию в блокнот (с первой по 28 строчку):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Sub V_Bloknot()
 Dim i&, j&, TextLine As String
     Open "D:\export.txt" For Output Lock Write As #1
    For i = 1 To 28
        TextLine = ""
        For j = 1 To 4
            TextLine = TextLine & Cells(i, j).Value & " "
        Next j
        Print #1, TextLine
    Next i
    Close #1
End Sub
 Пытался сделать автозапуск макроса после сохранения, к сожалению тоже не работает, выдает ошибку Expected End Sub:
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sub V_Bloknot()
  Dim i&, j&, TextLine As String
     Open "D:\export.txt" For Output Lock Write As #1
    For i = 1 To 28
        TextLine = ""
        For j = 1 To 4
            TextLine = TextLine & Cells(i, j).Value & " "
        Next j
        Print #1, TextLine
    Next i
    Close #1
 End Sub
End Sub
также пробовал:
1. В книге пишу:
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 V_Bloknot
 End Sub
А в листе 10:
Код
Sub V_Bloknot()  Dim i&, j&, TextLine As String
     Open "D:\export.txt" For Output Lock Write As #1
    For i = 1 To 28
        TextLine = ""
        For j = 1 To 4
            TextLine = TextLine & Cells(i, j).Value & " "
        Next j
        Print #1, TextLine
    Next i
    Close #1
 End Sub
Кто знает, помогите с вопросом. Предпочтительнее запускать макрос именно после сохранения.
Скопировать данные с ячейки по найденному слову, Скопировать данные с ячейки по найденному слову
 
Добрый день!

Есть строки с разным текстом, но только в одной строке будет прописано слово "(основний).
Как-то можно сделать так, чтобы формула находила строку с таким словом и ее содержимое копировало в ячейку.

Столкнулся с проблемой, когда даже просто использую =НАЙТИ("(основний)";B:B)   эта функция находит мне 49 символ по содержанию ячейки, но только в том случае если формула написана на соседней строчки.  Если ячейка строчкой выше или ниже, пишет ошибку (в примеру есть).
Помогите.  
Найти в тексте слово из списка
 
Добрый день! Не могу вытащить слово из текста.
Есть две фразы:
1. ТОВАРИСТВО З ОБМЕЖЕНОЮ ВІДПОВІДАЛЬНІСТЮ (Нужно в отдельную ячейку вытащить слово "Товариство")
2. МАЛЕ ПРИВАТНЕ ПІДПРИЄМСТВО (Нужно в отдельную ячейку вытащить слово "Підприємство")

В зависимости от вписанной фразы, формула должна вытаскивать конкретное слово.
Опыта в построении формул 0. Помогите плиз!
Автовыбор данных (связь между ячейками)
 
Добрый день!
Есть список работников, у каждого свой код и банковский счет.


1. В Ексель будет загружаться (с 1с) ФИО работников, нужно сделать так, чтобы по ФИО автоматом проставлялся личный код и банковский счет. (то есть нужно сделать прямую связь в зависимости от ФИО работника).


2. На другом листе в автоматическом режиме должна формироваться ведомость, через "=" получается выбрать необходимые данные, но как сделать что бы автоматически добавлялась/удалялась строчка в зависимости от количества работников (+в первой колонке должна проходить нумерация по порядку)?  
Страницы: 1
Наверх