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

Страницы: 1
Макрос для сохранения листов в книге в отдельные файлы
 
New, спасибо, что откликнулись, но не помогло, точнее ноль в конечном файле сохраняется, но даты перестали корректно отображаться, в принципе решил вопрос в исходном файле перед числом с первым нолем просто добавил ' (одинарную кавычку) и в конечном файле ноль стал сохраняться, но если все таки кто то поможет с макросом будет очень хорошо, не будет этого колхоза в одинарной кавычкой )
Макрос для сохранения листов в книге в отдельные файлы
 
Цитата
написал:
КодOption Explicit

Sub ForPavelSaveSheetsAsValues()
   Dim rng         As Range
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False

   ThisWorkbook.Worksheets(3).Copy
   
   With ActiveWorkbook.Sheets(1)
       .UsedRange.Value = .UsedRange.Value
   End With
   
   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Range("A1").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
   ActiveWorkbook.Close False

   ThisWorkbook.Worksheets(4).Copy
   
   With ActiveWorkbook
       ThisWorkbook.Worksheets(5).Copy After:=.Sheets(1)
       
       With .Sheets(1)
           .UsedRange.Value = .UsedRange.Value
       End With
       
       With .Sheets(2)
           .UsedRange.Value = .UsedRange.Value
       End With
   
   End With
   
   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Range("B1").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
   ActiveWorkbook.Close False

   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub
уважаемые форумчане помогите пожалуйста изменить этот макрос так чтобы при сохранении в новых файлах корректно отображались числа которые начинаются на ноль, а то в новых файла ноль пропадает если он первый стоит, сам пробовал через ИИ сделать, в итоге в новых файлах то даты начинают некорректно отображать, то формулы становится видно
Изменено: Павел - 02.11.2024 16:43:49
Объединение текста ячеек с #ЗНАЧ!
 
мужчины, всем спасибо за помощь, все получилось
Объединение текста ячеек с #ЗНАЧ!
 
bigorq, результат 1, а не 123
Объединение текста ячеек с #ЗНАЧ!
 
Hugo, нужно чтобы в ячейке A6 было значение 123
Объединение текста ячеек с #ЗНАЧ!
 
Здравствуйте, возможно ли объединить в одной ячейке текст из других ячеек если в них может быть #ЗНАЧ! ?
Макрос для сохранения листов в книге в отдельные файлы
 
MikeVol, Евгений Корнилов, мужчины, спасибо огромное, реально выручили
Макрос для сохранения листов в книге в отдельные файлы
 
Здравствуйте, помогите пожалуйста, с макросом, про макросы написано много но чтобы все нужное мне в одном макросе не нашел, а собрать все в кучу ума не хватает.
Имеется книга в ней 5 листов, нужно сохранить в отдельный файл третий лист только значения ячеек (без формул) и сохранить четвертый и пятый лист (два листа) в другой отдельный файл также только значения (без формул) все два файла сохранить в текущую папку, а название файлов берется из определенных ячеек, к примеру A1 и B1 со второго листа
Изменено: Павел - 11.10.2024 20:23:34
посчитать количество товара в зависимости от его названия, посчитать товар
 
surkenny, Ігор Гончаренко, спасибо, помогли оба варианта
посчитать количество товара в зависимости от его названия, посчитать товар
 
Ігор Гончаренко, к сожалению не считает, показывает ноль
посчитать количество товара в зависимости от его названия, посчитать товар
 
Здраствуйте, помогите пожалуйста, есть очень много заказов с разным товаром в формате:

****
2 x товар1
адрес 1 строка
адрес 2 строка
транспортная компания

****
4 x товар2
адрес 1 строка
адрес 2 строка
транспортная компания

необходимо чтобы автоматически посчитало сколько товара1 и сколько товара2

заранее спасибо за помощь
Изменено: Павел - 19.05.2022 19:00:33
До строки с отметкой оставить нужное количество строк
 
Kuzmich, Спасибо еще раз, макрос зашел как надо
До строки с отметкой оставить нужное количество строк
 
Евгений Смирнов, спасибо так лучше, но тут образовалась следующая проблема, этот макрос работает если ручками набрать все данные которые макросом обработать надо или скопировать и вставить текст с текстового файла, а если например берешь эти данные с другого листа в документе excel или просто их копируешь с другого листа то этот макрос уже неправильно работает, в результате не оставляет пустых ячеек между заказами

UPD: все разобрался, мой косяк был
Изменено: Павел - 23.02.2021 12:37:35
До строки с отметкой оставить нужное количество строк
 
Евгений Смирнов, респектую тебе от всей души) вообще то что надо было, спасибо отромное!!!
До строки с отметкой оставить нужное количество строк
 
Borrusale, Спасибо большое
До строки с отметкой оставить нужное количество строк
 
Borrusale,не нужны эти строчки просто
До строки с отметкой оставить нужное количество строк
 
Андрей VG, исправляюсь
Изменено: Павел - 21.02.2021 17:17:42
До строки с отметкой оставить нужное количество строк
 
Здраствуйте, возможно ли сделать следующее? есть информация в виде

строка 1
строка 2
строка 3
строка 4
строка 5
строка 6 ( с запятой)

строка 1
строка 2
строка 3
строка 4  ( с запятой)

СРОЧНО
строка 1
строка 2
строка 3
строка 4
строка 5  ( с запятой)

необходимо оставить только 4 строки вверх от строки с запятой, а если есть слово СРОЧНО то его не удалять, и не должно быть пустой строки между словом СРОЧНО и верхней строкой, должно выглядеть так

строка 3
строка 4
строка 5
строка 6 ( с запятой)

строка 1
строка 2
строка 3
строка 4  ( с запятой)
СРОЧНО
строка 2
строка 3
строка 4
строка 5  ( с запятой)  
удаление всех символов после двух пробелов
 
Kuzmich,круто! спасибо
удаление всех символов после двух пробелов
 
а как сделать что бы в тех ячейках где нет двух пробелов не было ошибки #ЗНАЧ! ?
удаление всех символов после двух пробелов
 
Jack Famous, спасибо, то что надо
удаление всех символов после двух пробелов
 
да
удаление всех символов после двух пробелов
 
Здравствуйте, есть содержимое ячейки - инфа1(два пробела)инфа2

как автоматически удалять все содержимое ячейки которое находится после 2 пробелов( инфа2)?
как удалить пробелы после запятых
 
Всем здравствуйте!

есть текст: слово1, слово2 слово3, слово4
как убрать только те пробелы которые находятся после запятых, между словами пробелы убирать не надо

заранее благодарю!
Страницы: 1
Наверх