Сбросила все настройки даты и во второго раза всё получилось.
Не знаю можно ли тему удалить
Не знаю можно ли тему удалить
|
22.05.2025 22:22:48
Андрей VG, спасибо!!
|
|
|
|
|
|
14.05.2025 17:33:51
Sanja, спасибо! поняла алгоритм, попробую что-то под себя сделать. Очень помогли. Не буду мучать гугл в поиске удаления.
|
|
|
|
|
|
14.05.2025 14:07:57
Sanja, спасибо. Работает. Но один раз, потом просто удаляет со всех страниц колонтитул.
И распечатать нельзя одну выбранную страницу, только весь лист |
|
|
|
|
|
14.05.2025 08:17:45
Sanja, пример. На листе тр.договор, страница 4
Изменено: - 14.05.2025 08:20:24
|
|
|
|
|
|
14.05.2025 08:13:31
Sanja, да, всё верно, именно страницы. Обычный эксель, на одном листе 4 страницы, надо чтобы на 1,2,3 страницах был нижний колонтитул, а на 4 не было
|
|
|
|
|
|
07.01.2025 22:42:10
Hugo, .Find(What:="Март", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate точно! так и выдал! не подумала про это . Спасибо! |
|
|
|
|
|
07.01.2025 22:40:12
Hugo, не знаю как записать именно это, но поищу. Спасибо что откликнулись
Ответ нашла прочитав про UsedRange.Find .Cells(Worksheets(N1).UsedRange.Find(What:="Март", LookAt:=xlWhole).Row, "R") |
|
|
|
|
|
30.12.2024 00:13:59
DANIKOLA, спасибо, СПАСИБО!
|
|
|
|
|
|
09.12.2024 15:01:56
Никита Дворец, огромное спасибо за отклик. Немного проясняется решение. Но насколько я понимаю, то цикл формула ищет по столбцу D, а если в строке Е > значений чем в С, то работает не так.
Закономерность именно в столбце С, что суммировать остальные надо от сумму до следующей суммы. Вот как задать цикл, если строка со значением, то далее суммируем до следующего значения... |
|
|
|
|
|
06.12.2024 13:58:51
Alex, супер! и радует что я тоже это придумала.
Sub SaveSheet() Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveSheet.Copy After:=Worksheets("акт") With ActiveSheet .Name = "Новый_Акт" .DrawingObjects.Delete With .UsedRange .Value = .Value End With .Move End With ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "Акт.xls", FileFormat:=xlWorkbookNormal Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Всем ОГРОМНОЕ спасибо за оперативную помощь! |
|
|
|
|
|
06.12.2024 13:27:49
Sanja, супер! так. Только в оригинальном файле остается лист не акт, в акт(2), я так понимаю тот, который создан для копирования
|
|
|
|
|
|
20.11.2024 13:59:12
Дмитрий(The_Prist) Щербаков, да, понимаю. Пока у меня нет доступа к компьютеру, где не срабатывает. Переписала код, проверю и напишу что помогло или наоборот.Спасибо, что откликнулись.
|
|
|
|
|
|
20.11.2024 11:29:17
Sanja, вот вот и проблема в том, что когда запускаю посмотреть где ошибка нажимаю F8 смотрю и нет ошибки, нажимаю тот же макрос через кнопку и ошибка есть
Буду пробовать Select убрать |
|
|
|
|
|
20.11.2024 10:54:11
Здравствуйте
Есть файл с макросом. Я запускаю у себя на компьютере и всё работает. Копируем на другой компьютер тот же файл и ошибка "Ошибка *1004* Метод Select из класса Range, но не у всех пользователей", удаленно захожу на этот компьютер запускаю макрос из Visual Basic и всё работает, через кнопку закускаю его же (проверила что именно он задан) и не работает, вот такая ошибка. Где вообще искать проблему? |
|
|
|
|
|
16.11.2024 23:06:15
Sergius, а если я данные из бокса потом использую для расчета?
|
|
|
|
|