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

Страницы: 1
Создание папки макросом с именем ячейки
 
#
05.04.2019 22:55:21
Подскажите пожалуйста, есть макрос который создаёт папку при определённом условии и даёт ей имя из Листа1 (ячека N3)
но проблема в том, что если ячейка содержит текст с буквами Эстонского алфавита Ü, Ä, Ö, Š, Ž, Õ
то они заменяются в имени созданной папки на буквы U, A, O, S, Z, O
А этого делать нельзя так как затем макрос в эту папку сохраняет PDF файл и при этом происходит ошибка имени в сохраняемую папку.
Пожалуйста подскажите, возможно ли что бы буквы в названии папки не менялись, а сохранялись как в Эстонском оригинале Ü, Ä, Ö, Š, Ž, Õ ?
Возможно нужно как то подправить или дополнить макрос который создаёт папку?

Макрос который создаёт папку по условию:
Код
If Worksheets("SETTINGS").Cells(12, 15).Value = True Then
        papka = ThisWorkbook.Path & "\" & Trim(Sheets("ЛИСТ1").[N3].Value)
        If Dir(papka, vbDirectory) = "" Then MkDir papka
 
 
Перейти    
Поиск букв в предложении
 
#
02.04.2019 11:35:53
Добрый день!
Пожалуйста подскажите, задача в следующем:
Есть ячейка A1 в ней находится предложение состоящее из букв и цифр например A1=Hiello
Есть вторая ячейка A2 в ней расположены буквы (A,F,U,I,W,K,G,E,Z, P)
В ячейке А3 нужна формула которая бы искала в A1 буквы из ячейки  A2
и в случае совпадения хоть одной буквы выдавала 1, в противном случае 0
В данном примере A3 равнялось бы 1, так как в слове Hello (ячейка A1) имеется буква E
а ячейке A2 в списке букв данная буква есть.
Изменено: askgrupp - 02.04.2019 11:36:37
 
Перейти    
Создание папки макросом при совпадении имён ошибка, Ошибка при совпадении имени папок
 
#
30.03.2019 17:18:41
Добрый день!
Есть макрос который создаёт папку при условии с именем ячейки N2 листа ARX, но если имя уже существующей папки совпадает с тем именем что пытается создать макрос, то происходит ошибка. Скажите, пожалуйста, как сделать так, чтобы макрос проверял имена существующих папок и при совпадении имён, выдал сообщение что папка с таки именем уже существует.
Код
If Worksheets("SETTINGS").Cells(11, 15).Value = True Then 
MkDir ThisWorkbook.Path & "\" & Sheets("ARX").[N2]
Изменено: askgrupp - 30.03.2019 17:20:50
 
Перейти    
Макрос создаёт папку (с названием из ячейки) и в неё сохраняет PDF файл
 
#
30.09.2016 16:50:27
Здравствуйте!
Прошу помочь дополнить ниже приведённый макрос.
Нужно что бы данный макрос дополнительно создавал в директории где находится сам Excel файл новую папку с названием ячейки A1 и сохранил в эту папку PDF файл. Заранее большое спасибо!
Код
With Sheets("ABC")
            If .Cells(1, 10) > 0 Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .[s1] & ".pdf"
            If .Cells(1, 10) > 0 Then .PrintOut Copies:=1, Collate:=True
        
         End With
Изменено: askgrupp - 30.09.2016 17:21:38
 
Перейти    
Ячейка с именем папки с доработкой
 
#
04.04.2016 22:48:40
Здравствуйте!
Есть макрос который присваивает ячеке B24 имя папки в которой находится данная книга,
но хотелось бы если это возможно доработать данный макрос что бы он убирал последнее слово в имени
Пример : папка имеет имя: "16-0001 свободен", так вот нужно чтобы макрос прописал в ячейку B24 только 16-0001, а слово "свободен" отсекал.
А если папка имеет имя без слова "свободен" то отсекать ничего не нужно, в ячейку просто приписывается имя 16-0001
Помогите пожалуйста если это возможно реализовать.
Прошу прощение в первый раз дал не тот макрос, сейчас изменил на правильный:
Код
Worksheets("ГЛАВНАЯ").Range("B24").Value = Dir(ThisWorkbook.Path, vbDirectory)
Изменено: askgrupp - 04.04.2016 22:58:55
 
Перейти    
Имя папки в ячейку Excel
 
#
01.04.2016 11:05:47
Здравствуйте!
Подскажите возможно ли сделать макрос
который бы прописывал имя папки в которой лежит сам экселевский
документ в ячейку B23.
Тоесть при открытии екселевского документа который лежит например в папке с именем 16-0001 в ячейку B23 автоматом прописалось 16-0001
Зарание большое спасибо!  
 
Перейти    
Очистить заданные ячейки при закрытии книги
 
#
19.03.2016 18:35:03
Здравствуйте!
Имеется книга, в ней лист под названием  DB_ABC
Хотелось бы сделать макрос который при закрытии книги очистит в листе DB_ABC
ячейки с A3 по P3  и вниз до конца всех записей.
Подскажите пожалуйста, как это осуществить?
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 21:43:45
Здравствуйте!
Подскажите возможно ли сделать временный текстовый ввод
данныйх в ячейку содежащию формулу при этом не стереть
саму формулу?
Изменено: askgrupp - 17.03.2016 21:49:15
 
Перейти    
Перенос текста по ячейкам
 
#
16.03.2016 15:01:58
Здравствуйте!
Подскажите пожалуйста, возможно ли сделать так, чтобы
текст переносился по условию?
Пример:
Ячейка A1: Текст: Вася Пупкин / Иваново / 567893
Нужно чтобы этот текст переносился таким оразом
A1 так и остаётся Вася Пупкин
B1 Иваново
С1 567893

То есть что бы условие для переноса был например слеш /
 
Перейти    
Поиск позиции значения (только макросом)
 
#
12.03.2016 01:01:57
Всем доброго времени суток!
Помогите с макросом, пример в прикреплённом файле

Нужно сделать подобие функции ВПР только макросом.
Суть такова нужно чтобы введя данные в жёлтую ячейку (Лист1) и нажав на кнопку макрос должен найти точное совпадение  по столбцу N  (Лист1) и
вывести число этой же строки только со столбца А в Лист2 в ячейку F4

Спасибо!
 
Перейти    
Метод вставки ЛОЖЬ ИСТИНА
 
#
11.03.2016 17:27:04
Здравствуйте!
Имеется такая проблема  две формы с возможностью установки галочек
Кликаю по одной форме соответственно в связанной ячейке появилась надпись "ИСТИНА"
Ко второй форме прикрутил макрос который в связанную ячейку первой формы прописывает "ЛОЖЬ"
Таким образом галочка с первой формы должна исчезнуть, но она к сожалению не исчезает.
Если вручную прописать слово "ЛОЖЬ" в данную ячейку и нажать Enter то калочка исчезает
Почему с помощью макроса она не исчезает? Возможно нужно другой макрос, подскажите пожалуйста.
Файл с примером прикрепил ниже
Код
Sub Flag1()
Range("G5") = "ЛОЖЬ"
End Sub
 
Перейти    
Ввод последнего числа в ячейку из одного листа в другой
 
#
11.03.2016 14:55:08
Всем Доброго дня!
Загружаю файл с примером того что нужно сделать с помощью макроса.
Вкратце нужно по нажатию кнопки вставить число из одного листа в другой
Спасибо!
 
Перейти    
[ Закрыто] Авто ввод числа в ячейку по условию
 
#
11.03.2016 11:31:12
Здравствуйте!
Имеется книга с листами, в листе 1 есть таблица в столбце A идут номера: A1 - 100, A2 -101, A3 103 и так далее.
Задача в том, чтобы  в лист 2 в ячейку  B8  макрос вставлял последнее существующее число из листа 1, столбца А.
Например если в листе2 в столбце A последняя запись в ячейке A89 , то это число из ячейки А89 вставлялось
в лист1 в ячейку B8
Заранее большое спасибо!
 
Перейти    
Очистка формы ComboBox1
 
#
09.03.2016 11:29:50
Здравствуйте!
Подскажите пожалуйста код, который убирает текст введённый в форме ComboBox1
 
Перейти    
Сохранение листа в формат xls, Помогите допилить
 
#
08.03.2016 19:40:06
Здравствуйте!
Пожалуйста помогите допилить макрос, нужно что бы он по условию ячейки (1 сохраняет, 0 не сохраняет) сохранял лист из общей книги в отдельный файл  в формате .xls
но этот макрос не сохраняет, уже и так и сяк а он не вкакую
Код
With Sheets("Лист5")
   If .Cells(1, 10) = 0 Then ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & .[s1] & ".xls"
End With
Изменено: askgrupp - 12.03.2016 09:31:16
 
Перейти    
Обнуление заданных ячеек
 
#
08.03.2016 15:58:14
Здравствуйте!
Подскажите пожалуйста макрос который обнулит данные введённые в определённые ячейки.
Например ячейки A1, B1, C10, J8
 
Перейти    
Сохранение листа из книги (добавить строку в имеющийся код)
 
#
07.03.2016 23:53:23
Здравствуйте!
Есть макрос который сохраняет файлы в PDF и отправляет в на печать
Нужно добавить ещё сохранение листа из книги в формате Excel
Подскажите пожалуйста код чтобы сохранялось в PGF и листы из книги в отдельный файл Excel
только не активные листы а листы с определёнными именами (Имя листа)
Спасибо!

Код
With Sheets("4 МЕС")
            If .Cells(1, 10) > 0 Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .[s1] & ".pdf"
            If .Cells(1, 10) > 0 Then .PrintOut Copies:=2, Collate:=True
        End With
        
With Sheets("3 МЕС")
            If .Cells(1, 10) > 0 Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .[s1] & ".pdf"
            If .Cells(1, 10) > 0 Then .PrintOut Copies:=2, Collate:=True
        End With
        
With Sheets("2 МЕС")
            If .Cells(1, 10) > 0 Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .[s1] & ".pdf"
            If .Cells(1, 10) > 0 Then .PrintOut Copies:=2, Collate:=True
        End With


End Sub
 
Перейти    
Сохранение и печать нужных листов по правилу
 
#
06.03.2016 18:09:43
Здравствуйте.
Собрал вот такой макрос, он должен выводить на печать и сохранять
листы из книги в которых в ячейках A1 стоит значение 1, если стоит 0 то пропускать этот лист.
Вроде бы всё работает, но к сожалению сохранение в PDF не всегда отрабатывает на всех нужных листах,
Тоесть просто пропускает некоторые листы и не сохраняет , хотя в ячейке A1 стоит значение 1

Помогите пожалуйста разобраться, я думаю что этот код можно написать более коротким и что бы он не пропускал сохранение.
Код
Sub Save2()

If Sheets("СЧЁТ 1").Cells(1, 1) = 1 Then Sheets("СЧЁТ 1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"
If Sheets("СЧЁТ 2").Cells(1, 1) = 1 Then Sheets("СЧЁТ 2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"
If Sheets("СЧЁТ 3").Cells(1, 1) = 1 Then Sheets("СЧЁТ 3").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"
If Sheets("СЧЁТ 4").Cells(1, 1) = 1 Then Sheets("СЧЁТ 4").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"
If Sheets("СЧЁТ 5").Cells(1, 1) = 1 Then Sheets("СЧЁТ 5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"
If Sheets("СЧЁТ 6").Cells(1, 1) = 1 Then Sheets("СЧЁТ 6").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"

If Sheets("СЧЁТ 1").Cells(1, 1) = 1 Then Sheets("СЧЁТ 1).PrintOut Copies:=2, Collate:=True
If Sheets("СЧЁТ 2").Cells(1, 1) = 1 Then Sheets("СЧЁТ 2).PrintOut Copies:=2, Collate:=True
If Sheets("СЧЁТ 3").Cells(1, 1) = 1 Then Sheets("СЧЁТ 3).PrintOut Copies:=2, Collate:=True
If Sheets("СЧЁТ 4").Cells(1, 1) = 1 Then Sheets("СЧЁТ 4).PrintOut Copies:=2, Collate:=True
If Sheets("СЧЁТ 5").Cells(1, 1) = 1 Then Sheets("СЧЁТ 5).PrintOut Copies:=2, Collate:=True
If Sheets("СЧЁТ 6").Cells(1, 1) = 1 Then Sheets("СЧЁТ 6).PrintOut Copies:=2, Collate:=True

 End Sub
Изменено: askgrupp - 06.03.2016 18:10:26
 
Перейти    
Печать по условию
 
#
06.03.2016 14:45:56
Здравствуйте!
Имеется вот этот макрос:
Код
    Sheets("ЛИСТ1").PrintOut Copies:=2, Collate:=True
    Sheets("ЛИСТ2").PrintOut Copies:=2, Collate:=True
    Sheets("ЛИСТ3").PrintOut Copies:=1, Collate:=True
End Sub

Он печатает определённые листы из книги,
нужно сделать всё тоже самое, только добавить что бы макрос  проверял в этих листах условия в ячейках A1
например если A1=1 то лист печатается, если A1=0 то этот лист пропускается и не печатается.
Пожалуйста, помогите!
Изменено: askgrupp - 06.03.2016 14:46:49
 
Перейти    
Сохранение несколько лиcтов из книги в PDF
 
#
06.03.2016 14:10:25
Здравствуйте!
Есть вот такой макрос:
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [s1] & ".pdf"

Он сохраняет активную страницу в PDF с именем ячейки s1
Пожалуйста, подскажите как сделать чтобы дынный макрос сохранял несколько заданных листов
например (лист1), (лист2)  и имена файлов были также из ячеек S1 своего листа.

Пример:
Лист1  в этом листе в ячейке S1 написано имя Вася, соответсвенно  это лист сохраняется Вася.pdf
Лист2   в этом листе в ячейке S1 написано имя Петя, соответсвенно  это лист сохраняется Петя.pdf

Заранее  спасибо за помощь!
Изменено: askgrupp - 12.03.2016 09:27:38
 
Перейти    
Создание SQL запроса в базу данных Acces
 
#
20.02.2016 11:48:25
Здравствуйте уважаемые знатоки!
Пожалуйста помогите!
Есть книга в книге я создал кнопку которая вызывает форму для записи данных (в форме 5 ячеек для записи данных и один выпадающий список), в этой форме есть кнопочка "Сохранить"
так вот нужно что бы после нажатия на кнопку "СОХРАНИТЬ" данные введённые в форму автоматически сохранились
в базе данных Acces.
База данных уже создана, путь к ней: ‪D:\BAZA\ABC_Database.accdb

Спасибо огромное! Помогите очень нужно реализовать данную весчь.
 
Перейти    
Создание PDF файла в текущую папку с именем ячейки
 
#
20.02.2016 04:07:35
Здравствуйте!
Прошу помочь написать макрос который создавал бы из книги Excel файл листа в PDF и обязательно
сохранял в текущую папку в которой запущена Excel книга и название имя  PDF файла совпадало с ячейкой A1 активного листа.
Заранее большое спасибо!
 
Перейти    
Страницы: 1
Наверх