none
shifting a range of columns over (and deleting the rightmost column) RRS feed

  • Question

  • I was hoping to be able to shift a set of column ranges over , and drop the rightmost column while adding a new 1st column

    here is what i have so far it is stored in a module thats why i have insertered the page that the ranges are on.

    However when  I run this i get.

    Runtime error '438':

    Object doesn't support this property or method...any ideas?

    this is on row 1

    Sub shiffty()
     Worksheets("Financial Analysis").IncomeStatement.Cut Worksheets("Financial Analysis").IncomeStatement.Cells(1).Offset(0, 1)
     Worksheets("Financial Analysis").FundsAvailable.Cut Worksheets("Financial Analysis").FundsAvailablet.Cells(1).Offset(0, 1)
     Worksheets("Financial Analysis").CashFlow.Cut Worksheets("Financial Analysis").CashFlow.Cells(1).Offset(0, 1)
     Worksheets("Financial Analysis").BalanceSheet.Cut Worksheets("Financial Analysis").BalanceSheet.Cells(1).Offset(0, 1)
     Worksheets("Financial Analysis").Analysis.Cut Analysis.Cells(1).Offset(0, 1)
    End Sub

    IncomeStatement,FundsAvallable, etc.. are all nmed ranges on that worksheet

    • Edited by rm99 Tuesday, September 11, 2018 4:55 PM
    Tuesday, September 11, 2018 4:50 PM

Answers

  • Try

     Worksheets("Financial Analysis").Range("IncomeStatement").Cut Worksheets("Financial Analysis").Range("IncomeStatement").Cells(1).Offset(0, 1)

    etc.


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Marked as answer by rm99 Tuesday, September 11, 2018 10:36 PM
    Tuesday, September 11, 2018 8:25 PM

All replies

  • Try

     Worksheets("Financial Analysis").Range("IncomeStatement").Cut Worksheets("Financial Analysis").Range("IncomeStatement").Cells(1).Offset(0, 1)

    etc.


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Marked as answer by rm99 Tuesday, September 11, 2018 10:36 PM
    Tuesday, September 11, 2018 8:25 PM
  • Hey great thanks Hans that got me going!
    Tuesday, September 11, 2018 10:36 PM