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

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

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

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

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

[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 цикла по каждой колонке?)
файл выложить не могу( так как похоже стоит ограничение на выгрузку с рабочего компа, не дает((

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

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

Скрытый текст
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 - то файл не открывает.
подскажите как правильно поступить?

создавая новый отчет по стандартному для меня скрипту - во время выполнения макроса не захотели копироваться как значения в новую книгу таблицы выгруженные с 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'
невозможно скопировать или переместить группу листов, содержащих таблицу

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

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

Доброго дня, первый раз на вашем ресурсе(та и в принципе первый раз задаю вопрос на просторах).
вопрос скорее всего тривиальный, но на русскоязычных источниках ответа не нашел,
есть таблица, в которой в одной из вкладок задается месяц отчета, после чего нажимается кнопка Start и как бы пользователь должен облокотится на стул и подождать пару минут. тем временем макрос обновляет sql запросы на трех вкладках (даты в нем), после чего с использованием query обращается в oracle, вытягивает информацию, вставляет ее во вкладки с названием data_..., к которым справа прикреплена формула создающая ключ из нескольких ячеек строки, который в последующем используется для суммесли и впр во вкладке "отчет", которая по итогу вырезается и как значение сохраняется в папке для просмотра правления.

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

Sub Make_Reports() Dim sql$, path$, mycontrol$    Application.Calculate    '-----баланс-----------------------------------    sql = requery_get_sql("bs";)    requery_sql sql, "bs"        '-----доходы/расходы---------------------------    sql = requery_get_sql("pl";)    requery_sql sql, "pl"    '-----план-------------------------------------    sql = requery_get_sql("plan";)    requery_sql sql, "plan"      Application.Calculate    path = ThisWorkbook.Sheets("Start";).Cells(14, 4).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$) Dim sql$, s As Worksheet, r%  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        End With      End Sub Sub Format_save_zvit(path$) Dim BookOut As Workbook dat_end = ThisWorkbook.Worksheets("Start";).Cells(7, 4).Value ThisWorkbook.Sheets("zvit";).Calculate Application.Calculate  Sheets("zvit";).Copy  Cells.Select  Selection.Copy  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _                  False, Transpose:=False  Set BookOut = ActiveWorkbook  Rows("1:3";).Delete Shift:=xlUp  Columns("A:A";).Delete Shift:=xlUp    ActiveSheet.Cells(1, 1).Select    Application.DisplayAlerts = False  BookOut.SaveAs path & "MSB_1131_1280_" & dat_end & ".xlsx"  Application.DisplayAlerts = True  BookOut.Close End Sub

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