Excel VBA Macro - метод копирования класса диапазона не удалось и метод Insert класса класса диапазона не удалось

Question

Я написал макрос для копирования и вставки строк или столбцов в разных местах в зависимости от входной строки. Место расположения копий и вставки определяется в поле «Именованные диапазоны» в электронной таблице.

Если я хочу добавить несколько столбцов в том же разделе, все будет отлично. Если добавить еще один столбец в одной секции, то нужно добавить столбец в другой секции, я получаю один из двух ошибок: метода копирования класса Range неудавшихся ИЛИ Вставить метод класса Range не удался

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

Код:

Sheets("TL Master").Range("Insert" & strAddType).Copy 

     'Offset for row/column 
     If strRowColumn = "row" Then 
      'Row = add value above 
      Range("Insert" & strAddType).Insert Shift:=xlDown 
      Range("Add" & strAddType & "ButtonCell").Offset(-4, 0).Value = strNewName 
     Else 
      'Column = add value left 
      Sheets("TL Master").Range("Insert" & strAddType).Insert Shift:=xlToRight 
      Range("Add" & strAddType & "ButtonCell").Offset(0, -4).Value = strNewName 
      If strAddType = "Machine" Then Range("Add" & strAddType & "ButtonCell").Offset(0, -4).Interior.Color = clrComplexityColor 

     End If 

Answer 1

Вы код отсутствует имя листа. Например -

Sheets("TL Master").Range("Insert" & strAddType).Copy 

    'Offset for row/column 
    If strRowColumn = "row" Then 
     'Row = add value above 
     Sheets("TL Master").Range("Insert" & strAddType).Insert Shift:=xlDown 
     Sheets("TL Master").Range("Add" & strAddType & "ButtonCell").Offset(-4, 0).Value = strNewName 
    Else 
     'Column = add value left 
     Sheets("TL Master").Range("Insert" & strAddType).Insert Shift:=xlToRight 
     Sheets("TL Master").Range("Add" & strAddType & "ButtonCell").Offset(0, -4).Value = strNewName 
     If strAddType = "Machine" Then Range("Add" & strAddType & "ButtonCell").Offset(0, -4).Interior.Color = clrComplexityColor 

    End If 

Другая вещь, которую я хотел бы сделать к сведению, если ваши данные Offset силы должны быть наклеены снаружи листа это вызовет ошибку. Например, если ваш именованный диапазон равен A1: A10, и вы делаете, а Offset (0, -1), это отключено от листа и вызывает ошибку.

Надеюсь, это поможет.