Sanja,
ОГРОМНЕЙШЕЕ СПАСИБО,
продолжу трудится, все отрабатывает отлично.

Доброго дня, необходимо посчитать количество заполненных и пустых ячеек в нескольких диапазонах.
с пустыми ячейками вроде получилось, но с фиксированным диапазоном
N = [COUNTBLANK(F17:V17)]
но никак не выходит добавить изменяемый диапазон, если у меня есть адресс второй его части (первая часть F17 неизменна)
B = Rows(17).Find("After planning period").Address
с подчсетом заполненных ячеек не выходит даже с фиксированным диапазоном
использовал несколько вариантов
CC = Application.CountA(Range("I21:X21"))
СС = [COUNTIF(I21:X21;"<>")]
, выдает ошибку
и также необходимо делать вторую часть диапазона динамичной.

количество ячеек необходимо для того что бы сравнить количество и при разнице значений добавить недостающие колонки

пробовал использовать поиск, но находит все что угодно, кроме нужного
файл выложить не могу, на работе блокирует выгрузку

Фродо, СПАСИБО!!!
тему можно закрыть, версию которую я пока прописал у себя ниже, все прекрасно работает))

Фродо,
я не правильно выразился, что бы цикл был не до 999 строки, а до слова "end" (что бы цикл прекратился как дойдет до этого слова)

Фродо, большое спасибо,
простите, но есть еще вопрос, значение в справочнике может добавляться, как сделать цикл опускания по строчке вниз? например до слова end (Range("O"&a)= "end"), на котором цикл завершается?

Юрий М, исправил, особенности сайта, я с начала создал спойлер, а потом скопировал туда текст, и не обратил внимание что он каждую строку спойлернул

Доброго дня,
задача тривиальная, но пока я не могу осилить(((
пишу скрипт через рекордер и гуглпомощь,
в таблице эксель необходимо заменить названия по справочнику, часть этого скрипта такая

Скрытый текст

[C:C].Replace Sheets("start").Range("O2").Value2, Sheets("start").Range("P2").Value2: [C:C].Replace Sheets("start").Range("O3").Value2, Sheets("start").Range("P3").Value2: [C:C].Replace Sheets("start").Range("O4").Value2, Sheets("start").Range("P4").Value2:         [A:A].Replace Sheets("start").Range("K2").Value2, Sheets("start").Range("L2").Value2: [A:A].Replace Sheets("start").Range("K3").Value2, Sheets("start").Range("L3").Value2: [A:A].Replace Sheets("start").Range("K4").Value2, Sheets("start").Range("L4").Value2: [A:A].Replace Sheets("start").Range("K5").Value2, Sheets("start").Range("L5").Value2: [A:A].Replace Sheets("start").Range("K6").Value2, Sheets("start").Range("L6").Value2: [A:A].Replace Sheets("start").Range("K7").Value2, Sheets("start").Range("L7").Value2: [A:A].Replace Sheets("start").Range("K8").Value2, Sheets("start").Range("L8").Value2: [A:A].Replace Sheets("start").Range("K9").Value2, Sheets("start").Range("L9").Value2: [A:A].Replace Sheets("start").Range("K10").Value2, Sheets("start").Range("L10").Value2: [A:A].Replace Sheets("start").Range("K11").Value2, Sheets("start").Range("L11").Value2: [A:A].Replace Sheets("start").Range("K12").Value2, Sheets("start").Range("L12").Value2: [A:A].Replace Sheets("start").Range("K13").Value2, Sheets("start").Range("L13").Value2: [A:A].Replace Sheets("start").Range("K14").Value2, Sheets("start").Range("L14").Value2: [A:A].Replace Sheets("start").Range("K15").Value2, Sheets("start").Range("L15").Value2: [B:B].Replace Sheets("start").Range("M2").Value2, Sheets("start").Range("N2").Value2, MatchCase:=True [B:B].Replace Sheets("start").Range("M3").Value2, Sheets("start").Range("N3").Value2, MatchCase:=True [B:B].Replace Sheets("start").Range("M4").Value2, Sheets("start").Range("N4").Value2, MatchCase:=True [B:B].Replace Sheets("start").Range("M5").Value2, Sheets("start").Range("N5").Value2, MatchCase:=True

как повесить эту задачу на цикл? (3 цикла по каждой колонке?)
файл выложить не могу( так как похоже стоит ограничение на выгрузку с рабочего компа, не дает((

запишите себе через макрекордер замену * на 1 как на писали выше и запускайте при необходимости

Hugo, Юрий М, - большое спасибо
Hugo, - вариант хьюго мне подходит великолепно, у Юрия, простите, не разобрался

Юрий М,не имеет значения, я отредактирую потом как нужно (в оригинале - одна новая книга, где по вкладкам - все регионы)

Sanja,Спасибо, так и подумал, благодарю
думаю что вопрос можно считать закрытым

Очень упрощенная форма файла - вот.
мне необходимо понять как макросом заставить производить поочередный выбор из ниспадающего списка (вкладка "отчетный файл", ячейка А2)

Доброго дня,
возникла ситуация когда существует отчетный файл, в котором есть одно поле выбора регионов (ниспадающим списком созданным с помощью проверки данных), на основании которого происходит пересчет отчета под данный регион.
Проблема - каждый регион необходимо сохранить в одной новой книге во вкладках (каждый регион - отдельная вкладка)
я нигде не могу найти команду для VBA, что бы он производил поочередный выбор из списка, макрекордер эту операцию вообще не отображает.

MedvedevAV,а чем вас не устраивает в ленте во вкладке вид, в группе "показать или скрыть", снять галочку с пункта "заголовки" ?

все, сам разобрался,
нужно в значении FileFormat:= установить xlOpenXMLWorkbook и все нормально сохраняет

прошу закрыть тему

JayBhagavan,та понял уже что не поможет(глянул файл) сейчас на sql сижу, бывает сложно переключиться, что в excell отсутствует like

пробуйте условное форматирование

Доброго времени суток.
в процессе формирования отчетности был написан макрос для ускорения обработки, нарезки и сохранения файлов.
процесс сохранения расписан через

Скрытый текст
ActiveWorkbook.SaveAs path & "top100_äåïîçèòè_ÞÎ_" & dat_end & ".xls", FileFormat:=xlNormal _        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _        CreateBackup:=False Application.CutCopyMode = False Application.DisplayAlerts = True Application.DisplayAlerts = False ActiveWorkbook.Close

если в тупую поменять на xlsx - то файл не открывает.
подскажите как правильно поступить?

таки действительно пользуйтесь аксесс и sql запросами

либо разбейте по каким-то параметрам на несколько вкладок

в общем, реализовал, если кому интересно - то выглядит это так (добавил только последнюю часть кода, которая отвечает за сохранение):

Скрытый текст

Sub Format_save_zvit(path$) Dim BookOut As Workbook, dat_end Dim BookIn As Workbook     Set BookIn = ActiveWorkbook     dat_end = ThisWorkbook.Worksheets("Start").Cells(8, 4).Value Sheets("data_top100").Select Sheets("data_top100").Copy Cells.Select    Application.CutCopyMode = False    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False Set BookOut = ActiveWorkbook         BookIn.Activate Sheets("data_clnt_dle_proc").Select Sheets("data_clnt_dle_proc").Copy after:=BookOut.Sheets(BookOut.Sheets.Count)        Cells.Select    Application.CutCopyMode = False    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False ActiveWorkbook.SaveAs path & "top100_" & dat_end & ".xls", FileFormat:=xlNormal _        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _        CreateBackup:=False     Sheets("data_top100").Activate Application.DisplayAlerts = False ActiveWorkbook.Close End Sub

согласен что смотрится криво - но пока лучше написать не могу

JeyCi - прошу прощения но я вас не совсем понял.
код - маленький и неполное его отображение не даст понятие картины.
непродуманность вопроса так же не понятна - старался максималь прямо описать проблему.
проблему выделил под кодом
да, мне необходимо группу листов. зачем? поясняю: - есть екселевский файл с задаваемыми параметрами (в основном дата) эти параметры динамически меняют sql запросы на отдельных страницах. после чего используя microsoft query по запросу обращаются в oracle вытягиваются данные (в 2007 офисе они вытягиваются в формате таблица что накладывает некоторые ограничения), на каждый запрос - своя выгрузка на свою страницу экселя, сохраняются на лист (на котором происходит дополнительная обработка информации). после чего обработанные страницы как значения должны быть скопированы в новую книгу для работы рядовым пользователям
 

вопрос звучал - как бы их скопировать потом в одну и туже книгу (с учетом того что название присваиваевается потом) а именно работа с активными не активными книгами - я тут очень плаваю

з.ы. но просто копировать сейчас попробую - а чем черт не шутит - вдруг пойдет

я понимаю что вопрос возможно на столько банальный что даже отвечать всем лень.
но ведь и на более простые вопросы отвечали.
будьте людьми - помогите

никто не подскажет?

Ёк-Мок, я тоже о этом подумал - подскажите пожалуйста как оптимальнее всего написать копипаст по одному в другую книгу как значение?

создавая новый отчет по стандартному для меня скрипту - во время выполнения макроса не захотели копироваться как значения в новую книгу таблицы выгруженные с microsoft query

вот скрипт

Скрытый текст

Sub Make_Reports() Dim sql$, path$, mycontrol$    Application.Calculate    '-----top100-----------------------------------    sql = requery_get_sql("top100")    requery_sql sql, "top100"        '-----clnt_dle_proc---------------------------    sql = requery_get_sql("clnt_dle_proc")    requery_sql sql, "clnt_dle_proc"    Application.Calculate    path = ThisWorkbook.Sheets("Start").Cells(13, 2).Value            On Error Resume Next            MkDir path    On Error GoTo 0    Format_save_zvit path          MsgBox ("Done!") End Sub Private Function requery_get_sql(pp$)    Set s = ThisWorkbook.Worksheets("sql_" & pp)  If Application.Calculation = xlCalculationManual Then _    s.Calculate  r = 1  Do    r = r + 1  Loop While (s.Cells(r - 1, 2).Text <> "SQL Start")  sql = ""  Do While s.Cells(r, 2).Text <> "SQL End"    If s.Cells(r, 2).Text <> "" Then _      sql = sql & s.Cells(r, 2).Text & " "    r = r + 1  Loop  requery_get_sql = sql End Function Sub requery_sql(ByVal sql$, r$) Worksheets("data_" & r).Select With ActiveSheet.ListObjects(1).QueryTable .CommandText = sql .Refresh Application.CalculateUntilAsyncQueriesDone End With                   End Sub       Sub Format_save_zvit(path$) Dim BookOut As Workbook, dat_end dat_end = ThisWorkbook.Worksheets("Start").Cells(8, 4).Value Sheets(Array("data_top100", "data_clnt_dle_proc")). _        Select    Sheets(Array("data_top100", "data_clnt_dle_proc")).Copy    Selection.Copy    Sheets(Array("data_top100", "data_clnt_dle_proc")). _        Select    Cells.Select    Application.CutCopyMode = False    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False ActiveWorkbook.SaveAs path & "top100_C" & dat_end & ".xls", FileFormat:=xlNormal _        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _        CreateBackup:=False     Sheets("data_top100").Activate Application.DisplayAlerts = False ActiveWorkbook.Close End Sub

ошибка возникает на строке
   Sheets(Array("data_top100", "data_clnt_dle_proc")).Copy

ошибка
run-time error '1004'
невозможно скопировать или переместить группу листов, содержащих таблицу

подскажите как можно обойти ошибку и что использовать для копирования такого типа "таблиц"?

у меня все файлы находятся в сети и собственно из сети и запускаются
помогло на "зараженном компе переустановить образ винды с нормальным офисом"
потом создал новый файл (чистый, пустой), на не зараженном компе (в той же сетевой папке). скопировал в него все вкладки и сам по себе макрос. сохранил как xlsm - все заработало, везде

Слэн,Спасибо, именно то))
с телефона тоже не дало загрузить фото, так как на сайте ограничение размера файла в 100кб((

сразу
встречный вопрос, можно делать только прямую ссылку на ячейку? так как
пробовал в формуле сделать объединение двух ячеек через сцепить (& - ругнулось что не является правильной ссылкой (пока реализовал через сцепить в отдельной ячейке и связь на нее, но есть опасение что рядовые пользователи могут случайно убить эту техническую ячейку для объединения, где бы я ее не сохранил)


Юрий М, оригинальный эксель файл был 37кб
проблема с отправкой любого сообщения на форуме. вот это например отправлял свыше 5 раз

обрывает на загрузке/ срываюсь на ошибку и только одно сообщение из 10/15 попыток загружается на форум(( похоже ограничение админов моего учереждения. попробую с телефона загрузить

Слэн,  это не обязательная просьба, не более того как

Всем доброго времени суток.
во время работы возникла необходимость в
большем количестве графиков добавить объекты (фигуры) с текстом, в
котором будет указана определенная (динамическая) процентная ставка не
привязанная к таблице из которой строится график.
сделал пример.
на
примере есть года и определенные значения, сверху добавлены процентные
ставки за квартал, есть ли возможность связать данные в окошке фигурки с второй табличкой (необходимость вызвана тем, что в оригинальном файле свыше 30 графиков с такими фигурами и периодически необходимо вносить изменение, что забирает очень много времени)
было бы конечно очень неплохо, если существует возможность сделать это без VBA (что бы не утяжелять файл- макросов и так хватает)