Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Art1989
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Запуск макроса после сохранения книги
 
#
02.02.2021 18:21:32
Дмитрий(The_Prist) Щербаков  Спасибо! Ваши рекомендации помогли. Все работает как надо.
 
Перейти    
Запуск макроса после сохранения книги
 
#
02.02.2021 17:43:47
Добрый день! Макрос - автозапуск не работает.

Книга Ексель имеет 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
Кто знает, помогите с вопросом. Предпочтительнее запускать макрос именно после сохранения.
 
Перейти    
Скопировать данные с ячейки по найденному слову, Скопировать данные с ячейки по найденному слову
 
#
18.04.2019 09:10:40
Спасибо! :)
 
Перейти    
Скопировать данные с ячейки по найденному слову, Скопировать данные с ячейки по найденному слову
 
#
17.04.2019 18:05:09
Добрый день!

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

Столкнулся с проблемой, когда даже просто использую =НАЙТИ("(основний)";B:B)   эта функция находит мне 49 символ по содержанию ячейки, но только в том случае если формула написана на соседней строчки.  Если ячейка строчкой выше или ниже, пишет ошибку (в примеру есть).
Помогите.  
 
Перейти    
Найти в тексте слово из списка
 
#
15.11.2018 22:43:54
Catboyun   Огромное спасибо! То что нужно!
 
Перейти    
Найти в тексте слово из списка
 
#
15.11.2018 22:30:22
Пусть на отдельном листе будет список необходимых слов, как мне связать это все вместе?

Формула должна искать в тексте: "ТОВАРИСТВО З ОБМЕЖЕНОЮ ВІДПОВІДАЛЬНІСТЮ"     Нужное мне слово  "Товариство" и прописывать в отдельную ячейку.
 
Перейти    
Найти в тексте слово из списка
 
#
15.11.2018 22:11:38
Может знаете как вытащить слова до определенного симовола. К примеру " (кавычки) ?  
 
Перейти    
Найти в тексте слово из списка
 
#
15.11.2018 21:47:45
Добрый день! Не могу вытащить слово из текста.
Есть две фразы:
1. ТОВАРИСТВО З ОБМЕЖЕНОЮ ВІДПОВІДАЛЬНІСТЮ (Нужно в отдельную ячейку вытащить слово "Товариство")
2. МАЛЕ ПРИВАТНЕ ПІДПРИЄМСТВО (Нужно в отдельную ячейку вытащить слово "Підприємство")

В зависимости от вписанной фразы, формула должна вытаскивать конкретное слово.
Опыта в построении формул 0. Помогите плиз!
 
Перейти    
Автовыбор данных (связь между ячейками)
 
#
03.08.2018 15:03:03
Спасибо Вам за помощь!!  :)  
 
Перейти    
Автовыбор данных (связь между ячейками)
 
#
03.08.2018 12:34:20
a.i.mershik Спасибо за помощь, все так как я хотел!


Цитата
a.i.mershik написал:
если будут ФИО будет полностью совпадать
Такое может быть, но шанс очень маленький. В любом случае Вы мне очень помогли с основой, думаю смогу переделать привязку по личному коду, а не по ФИО.
Цитата
a.i.mershik написал:
ФИО разные там на украинском и русских языках
На украинском.





Еще момент, на Листе "Ведомость" 19 строк, если добавиться еще один сотрудник (будет 20 ФИО), можно ли настроить Excel так, что бы добавилась соответственно строка, а при уменьшении количества работников - строки удалялись)
 
Перейти    
Автовыбор данных (связь между ячейками)
 
#
03.08.2018 11:12:37
Добрый день!
Есть список работников, у каждого свой код и банковский счет.


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


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