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

Страницы: 1 2 3 След.
Создание папки макросом с именем ячейки
 
#
06.04.2019 01:58:30
Возможно кто-то подскажет как создать формулу которая будет искать в тексте ячейки A1  буквы  Ü, Ä, Ö, Š, Ž, Õ
и менять уже в другой ячеке (например A2) cсоставив тот-же текст только с заменой букв:
Ü на U
Ä на A
Ö на O
Š на S
Ž на Z
Õ на O

Если такое возможно?
 
Перейти    
Создание папки макросом с именем ячейки
 
#
06.04.2019 00:09:50
При сохранении фала PDF макросом в имени PDF фала буквы не меняются, PDF сохраняет с Эстонскими буквами
Так почему-же меняются буквы в имени папки? Непонятно
Вот макрос сохранения в PDF
Код
With Sheets("Лист1")
Sheets("Лист1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("Лист1").[N3] & "\" & .[N2] & ".pdf"
End With
 
Перейти    
Создание папки макросом с именем ячейки
 
#
05.04.2019 23:50:39
Hugo, Спасибо, посмотрел Ваш файл, но там для меня всё сложно, к сожалению ничего не понял.
Мне бы что попроще как можно обойти эту проблему.
Что самое интересное, что если папка создаётся макросом на флешку с форматом FAT32 то хоть и в имени папки всё равно меняются буквы Эстонские на Английские,
но сохранение в неё PDF файла макросом происходить без проблем. А на компьютере сохранение с жёстким диском в формате NTFS происходит ошибка из-за несовпадении имени папки.
Изменено: askgrupp - 05.04.2019 23:52:05
 
Перейти    
Создание папки макросом с именем ячейки
 
#
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 12:00:20
Сергей, В принципе для меня разницы нет как написать эти буквы, могу сплошняком, могу через запятую.
Ваша формула работает так как нужно.
Спасибо Вам Сергей за помощь! Очень выручили!
 
Перейти    
Поиск букв в предложении
 
#
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 18:54:00
ocet p, Большое, человеческое спасибо за помощь!
 
Перейти    
Создание папки макросом при совпадении имён ошибка, Ошибка при совпадении имени папок
 
#
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 файл
 
#
01.10.2016 12:26:56
Разобрался, вот что у меня получилось, теперь нужно что бы имя папки PDF файла брались с ячейки А1 не с активного листа, а с листа ITOGO
Помогите пожалуйста дополнить этот макрос:
Код
With Sheets("ЧЕК ABC")
            If .Cells(1, 10) > 0 Then
                 
                 MkDir ThisWorkbook.Path & "\" & .[A1]
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .[A1] & "\" & .[A1] & ".pdf"
                .PrintOut Copies:=1, Collate:=True
            End If
             
        End With
 
Перейти    
Макрос создаёт папку (с названием из ячейки) и в неё сохраняет PDF файл
 
#
01.10.2016 11:38:46
Спасибо! Только как изменить эту строку что бы у созданной папки было имя из листа ITOGO, ячейка A1
Код
 MkDir (ThisWorkbook.Path & "\Новая папка")
 
Перейти    
Макрос создаёт папку (с названием из ячейки) и в неё сохраняет PDF файл
 
#
30.09.2016 17:08:25
Спасибо большое, только один момент остался, нужно что бы имя папки было не "Новая папка", а имя папки автоматом присваивалось бы из листа " ITOGO "  ячейка A1
Изменено: askgrupp - 30.09.2016 17:20:27
 
Перейти    
Макрос создаёт папку (с названием из ячейки) и в неё сохраняет 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 23:46:16
Sanja,
Вот это супер! То что нужно!!! Спасибо огромное!!!
 
Перейти    
Ячейка с именем папки с доработкой
 
#
04.04.2016 23:35:38
Sanja,
Спасибо, всё отлично, только вот если пака с именем просто 16-001 (тоесть без дополнителного слова) то тогда выдаёт ошибку
Возможно это как то доработать?
 
Перейти    
Ячейка с именем папки с доработкой
 
#
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 12:16:47
Сергей,
Спасибо за ваш вариант, но нужно было именно макросом.
 
Перейти    
Имя папки в ячейку Excel
 
#
01.04.2016 11:33:15
Ёк-Мок,
Ваш пример показывает не имя папки а  путь к папке.
Этот вариант тоже может пригодиться. Спасибо!
Изменено: askgrupp - 01.04.2016 11:39:49
 
Перейти    
Имя папки в ячейку Excel
 
#
01.04.2016 11:29:50
Karataev,
Спасибо большое, это то что нужно!
 
Перейти    
Имя папки в ячейку Excel
 
#
01.04.2016 11:05:47
Здравствуйте!
Подскажите возможно ли сделать макрос
который бы прописывал имя папки в которой лежит сам экселевский
документ в ячейку B23.
Тоесть при открытии екселевского документа который лежит например в папке с именем 16-0001 в ячейку B23 автоматом прописалось 16-0001
Зарание большое спасибо!  
 
Перейти    
Очистить заданные ячейки при закрытии книги
 
#
19.03.2016 19:05:42
vikttur,
Всё отлично! Ещё раз большое спасибо!
 
Перейти    
Очистить заданные ячейки при закрытии книги
 
#
19.03.2016 18:56:35
vikttur,
Спасибо огромное!!
То что нужно!
 
Перейти    
Очистить заданные ячейки при закрытии книги
 
#
19.03.2016 18:35:03
Здравствуйте!
Имеется книга, в ней лист под названием  DB_ABC
Хотелось бы сделать макрос который при закрытии книги очистит в листе DB_ABC
ячейки с A3 по P3  и вниз до конца всех записей.
Подскажите пожалуйста, как это осуществить?
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 22:56:59
МВТ,
Спасибо! Нет, я уже реализовал свою мысль черех формулу ЕСЛИ
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 22:33:29
МВТ,
Спасибо большое за отклик.
Попробую сделать через формулу =ЕСЛИ
по типу если соседняя ячейка пустая то показывается один текст, если введу данные в соседнию ячейку то будут отображаться данные с соседней ячейки
Всем спасибо!
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 22:12:07
kuklp,
Это понятно просто я не один работаю с данным листом и может случиться так, что кто нибуть сохранит по привычке лист и затрет формулу
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 22:03:19
kuklp,
Ясно, спасибо.
Просто думал может через форму ввода данных это можно реализовать по типу связи с ячейкой
А данные нужно временно ввести для распечатки на принтере в том случае если клиента нет в базе данных
что бы его не заводить в базу (левый разовый клиент) просто хотел разово ввести в ячейку с формулой и распечать чек с координтатами клиента.
Изменено: askgrupp - 17.03.2016 22:09:20
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 21:58:05
kuklp,Текст нужно не добавить к существующему тексту, а напечатать новый не затерев формулу
Изменено: askgrupp - 17.03.2016 22:01:08
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 21:55:45
bedvit,
Тут немного все бонально, нужно просто ввести текст в ячеку с формулой
и распечатать лист с веденными данными. Затем оставить лист с формулой кторая была до ввода текста.
Я понимаю что можно стереть формулу, ввести текст, распечатать и не сохранять лист, при новом открытии этого листа формула останется.
Но хочется что бы формула не стиралась при вводе даныых, так как есть возможность случайного сохранение листа с стертой формулой
 
Перейти    
Ввод данных в ячейку с формулой
 
#
17.03.2016 21:43:45
Здравствуйте!
Подскажите возможно ли сделать временный текстовый ввод
данныйх в ячейку содежащию формулу при этом не стереть
саму формулу?
Изменено: askgrupp - 17.03.2016 21:49:15
 
Перейти    
Перенос текста по ячейкам
 
#
16.03.2016 15:25:18
Sanja,
Спасибо большое!
 
Перейти    
Страницы: 1 2 3 След.
Наверх