shooreek (Автор тем)

Копирование значения в последнюю непустую ячейку другого листа, Run-time error '9': Subscript out of range

Пользователь

Сообщений: 12 Регистрация: 31.01.2018

20.05.2019 15:42:00

Добрый день!
Был у меня рабочий макрос, но после отпуска перестал реагировать на команды.
Вы не могли бы подсказать по какой причине сейчас выскакивает ошибка Run-time error '9': Subscript out of range?
Текст упрощенного макроса (Задача: скопировать ячейку A1 из вкладки "1" в последнюю непустую ячейку строки A вкладки "2".):

Скрытый текст
Sub Ìàêðîñ1() Sheets("1").Select Range("A1").Select Selection.Copy ColumnsCount = Workbooks("1").Worksheets("2").Cells(1, Columns.Count).End(xlToLeft).Column + 1 Workbooks("1").Worksheets("1").Cells(1, ColumnsCount).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub

файл прикрепил.
Заранее спасибо!

Перейти

Вставка данных в первую пустую ячейку 2-й строки

shooreek

Пользователь

Сообщений: 12 Регистрация: 31.01.2018

11.04.2019 10:34:03

Добрый день!
Помогите, пожалуйста, с макросом. Второй день пытаюсь решить простецкую задачу, но интернет предлагает не совсем то, что мне нужно. Поиск по форуму тоже не помог.
В общем, необходимо из сводной таблицы копировать значения из диапазона C56:C155 в другой лист, чтобы первая ячейка этих данных была в первой непустой ячейке строки 2. Дело в том, что каждую неделю данные будут пополняться.
Записал макрос, но он копирует данные в активную ячейку. Я полагаю, что не хватает строки для выбора нужной ячейки.
Заранее спасибо!

Код

Sub Macro()
    Sheets("Cone Pivot").Select
    With ActiveSheet.PivotTables("Ñâîäíàÿ òàáëèöà2").PivotFields("parameter_id")
        .PivotItems("SROD_LMC").Visible = False
        .PivotItems("SROD_Mean").Visible = False
        .PivotItems("SROD_MMC").Visible = False
        .PivotItems("SROD_OOR").Visible = False
        .PivotItems("Upper_LROD").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=21
    Range("C56:C155").Select
    Selection.Copy
    Sheets("Cone Width").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Перейти

Гистограмма с предельными значениями

shooreek

Пользователь

Сообщений: 12 Регистрация: 31.01.2018

31.01.2018 11:40:09

Доброго дня!
Вы не могли бы помочь с визуализацией данных двух измерений BI и BO?
На графике (ось х - размер с шагом 0,001, ось у - количество значений, попавших в интервал) необходимо показать количество значений по обоим измерениям в каждом интервале, а также границу (149,982) вертикальной линией.
Постарался от руки нарисовать что-то похожее на то, что пытаюсь сделать.
Заранее спасибо!

Перейти