Спасибо.

Макрос работает около 20 сек, несколько раз запустил..

Касательно скрола, возврат
Нет в макросе этого
  ActiveWindow.ScrollRow = 1 'возвращаем вид страницы к началу скролом
  ActiveWindow.ScrollColumn = 1 'возвращаем вид страницы к началу скролом

Спасибо, но есть моменты
1. Макрос работает не стабильно,то 15 сек, то до 2 минут. С чем связано я не знаю, возможно с разным видом таблицы изначально
2. По итогу не возвращается в начало страницы (скролы сдвига страницы так остается как были ло макроса)
3. Ноль проставляется до диапазона 2000 строки, что делает лишними строки при при просмотре таблицы если опускаться быстро до последней строки таблицы.
В целом не смогу воспользоваться таким вариантом, прошу прощения.

Самое оптимально это к моему коду добавить "пару" строк вставки в видимые строки до последней в таблице, для этого есть функция определения последней строки в таблице

Стандартный у меня, записанный макрозаписью. Вот в него было бы здорово добавить вставку
Sub makros1()
   Application.ScreenUpdating = False
   On Error Resume Next
   'Windows("Сводная по товарам.xlsm").Activate
   'Sheets("Сводная").Select
   'Раскрыть строки и столбцы на листе, убрать отфильтрованное
   Sheets("Сводная").ShowAllData  'убрать отфильтрованное
   ActiveSheet.ShowAllData  'убрать отфильтрованное
   ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2  'раскрыть строки
   ActiveSheet.Outline.ShowLevels RowLevels:=2  'раскрыть столбцы
   ActiveSheet.Range("$A$4:$HR$2000").AutoFilter Field:=6, Criteria1:=Array("0", "=", "=-"), Operator:=xlFilterValues 'фильтр по значению
   ActiveSheet.Range("$A$4:$HR$2000").AutoFilter Field:=7, Criteria1:=Array("0", "=", "=-"), Operator:=xlFilterValues 'фильтp по значению
   ActiveSheet.Range("$A$4:$HR$2000").AutoFilter Field:=8, Criteria1:=Array("Нет"), Operator:=xlFilterValues 'фильтр по значению
   ActiveSheet.Range("$A$4:$HR$2000").AutoFilter Field:=10, Criteria1:=Array("Скоро в продаже", "Только наличный расчет!", "="), Operator:=xlFilterValues 'фильтр по значению
   ActiveWindow.ScrollRow = 1 'возвращаем вид страницы к началу скролом
   ActiveWindow.ScrollColumn = 1 'возвращаем вид страницы к началу скролом
   Range("B1").Select
End Sub

День добрый, прошу помочь.. не нашел поиском вставки конкретного значения МАКРОСОМ, в моем случае это значение 0 (ноль) в видимые ячейки конкретного столбца F
Есть исключение:
-в виде первых первых четырех строк
-диапазон строк меняется, в примере он заканчивается на строке 1416, но может быть последняя строка и другая..

У меня выведена функция последней ячейки, которая участвует в некоторых макросах, возможно ее применить к этому макросу.
Function LastRow(cell)
    LastRow = Cells(Cells.Rows.Count, cell.Column).End(xlUp).Row
End Function

Спасибо, выручили.  

День добрый, прошу облегчить мне решение. Подгружаются остатки по складам в виде текста (Мало, Много, Достаточно, Нет в наличии или пусто)
Задача вывести формулу: Если в диапазоне есть наличие (Мало, Много, Достаточно), то выводим общее 10 (десять). Если нет наличия, то пусто
PS Не соображу как сделать формулой, сейчас делаю через кучу доп столбцов...

скрин https://disk.yandex.ru/d/TrtRVOR1cBQ9cg

Во как... спасибо.

Привет, не могу сообразить, как вывести левую часть текста в виде трех или четырех чисел, те до значка "х"
Например есть ячейки с текстом (384х288 или 1280х1024)
Сейчас у меня при выражении =ЕСЛИ((ЛЕВСИМВ(B1;3))<0;(ЛЕВСИМВ(B1;3));(ЛЕВСИМВ(B1;4))) - выводится 384х, где значек х лишний
Скорее все просто, но не могу сообразить

New, как комент идет, так и должно быть ?

New, спасибо. Более чем. Наверно все), всем остальным то же спасибо. Я думаю многим полезно будет.

Если вручную, то так но лишние движения и можно зацепить лишнее где это нужно. Я лично этим переносом пользуюсь

Не сработало(  Это перенос строки в ячейке

Массив очень большой, все не увидишь

А в засаде может быть что числа в самой ячейке могут быть сдвинуты вверх или низ. Это касается прайсов поставщиков, которые делают менеджеры например, мне такие приходят
Тогда тут вопрос не решается

New, протестировал
3000 строк - 2сек
формулы - сохраняет
ссылки на цифры сохраняет
Пробелы, запятые и точки убирает
вид цифр идеальный

Огромное спасибо, это идеально!

PS Даже не знаю что еще там может быть в "засаде")

Msi2102, протестировал. 5000 строк 2 сек, все четко. Удивительно)
Спасибо. Внедряю.

Можно попросить усложнить чуть. А если в моем файле будут точки вместо запятой, можно дополнить Ваш макрос. Ну до крастоты убрать разрядность и сделать в формате вида 1 234 (те с видимым пробелом для удобства)
Сейчас макрос точки не обрабатывает

Ma_Ri и Sanja - Ваши макросы отлично отработали. Огромное спасибо.

Почему наезд? Сказал спасибо. У меня код отработал на 5000 строк более 5 минут и не стал ждать. Поэтому и вопрос не решен.Все остальные 500 макросов у меня все работают на строках от 1000 до 3000 за 2-3 секудны

PS Сам код (кроме первой стройки от Hugo) выдернут из той же PLEX старых версий что в интернете болтаются. Скорее всего это не полный код по факту

Господа, вопрос не решен)
PS Hugo спасибо за промежуточное решение

Оригинальный файл 5000 строк. В PLEX надстройке этот момент решается на 5000 строках ровно 2 сек.
Засек на 5000 строках, более 5 минут.. далее не стал ждать. Не пойдет..

сам код, он у меня работает 60 секунд на 500 строках, это долго. Оригинальный файл 5000 строк. В PLEX надсройке этот момент решается на 5000 строках ровно 2 сек.

Set DataRng = Intersect(ActiveSheet.UsedRange, Selection)
засек, 70 секунд 500 строк.

Этот  несколько Set DataRng = ActiveSheet.Columns("P:Q"), но не рабочий

Тут надо выделять (это не удобно, мне надо этот макрос интегрировать в общую систему автоматизации и нужно именно задать столбик) и потом очень долго работает почему то (секунд 15-20 на 500 строках, а сам файл в оригинале имеет 5000 строк). У меня купленная надстройка PLEX от Павлова, у него этот код отрабатывает 2 секунды.



Ничего из этого не работает касательно именно моего файла, я пробовал ранее все и более

Если сделать так к макросу что внутри, то у меня получается все равно текст\

Заработало, но по всему листу, для меня не удобно. Как сделать только по столбцам P и Q ?

PS внутри в принципе уже есть почти готовый макрос

Всем привет, перепробовал кучу с интернета макросов не помогло черт пабери)
Прошу помочь решить вопрос.
Макрос правки этих чисел как текст в числа превратить.
Сам файл присылает бухгалтер и хрен знает как его обработать

Muxa K, спасибо. Вроде понял.

1. У меня таких таблиц на листе несколько и флажков несколько. Надо что бы каждый флажок считал свой диапазон


2. Не совсем понял как и куда вставлять формулу =ЕСЛИ(E$3=ЛОЖЬ;СУММ(H4:I4);H4)
что бы мог править ее на свое усмотрение. В оригинале диапазоны другие

День добрый, прошу помочь. Не пойму как применить один Флажок в Excel что бы пересчитывал формулы соседних столбцов в определенном диапазоне строк
Правильней сказать что бы пересчитывал только при включенном флажке, при убранном формула в E оставалась по умолчанию как есть.
Теоритически наверно нужно создать диапазон ячеек в E и Н но как их подвесить на флажок формулу E "диапазон"=H "диапазон"я не понимаю

Статья про файл и его изменение, но в последних постах добавилось еще и решение, от куда он появляется) и получилось законченное решение вопроса по всей теме.