paste method of worksheet failed

**Theodjinn** · 08-25-2008, 08:37 AM

I wonder if anyone can help me with this problem...

I keep getting the error 'paste method of worksheet failed'. I can't figure it out.

Any help much appreciated.

Sub ComponentBrag(bragCol, weekNum)

Dim bragRow As Integer

    bragRow = 2

    Sheets("Component template").Select
    Range("Z2:AB37").Select
    Selection.Copy
    
    With Sheets("BRAG Status")
        .Select
        .Cells(bragCol, bragRow).Select
        .Paste
        .Cells(bragCol, bragRow).Select
        .ActiveCell.Value = "Week " & weekNum
    End With
End Sub

**davesexcel** · 08-25-2008, 09:03 AM

Hi,
What is bragcol ??

**Theodjinn** · 08-25-2008, 09:26 AM

It's an integer variable...

' ***********************************************
    ' Creates BRAG tables
    With frmTestingStartDate
        startDate = .txtStartDate
        Select Case .txtWeeks.Value
            ' Creates 1 week's BRAG status
            Case Is = 1
            goHere_row = 1
            goHere_col = 1
            Call CreateOverallBrag(startDate, goHere_row, goHere_col)
            Call PopulateBragFormulae
            
            ' Creates 2 weeks' BRAG status
            Case Is = 2
            goHere_row = 1
            goHere_col = 1
            Call CreateOverallBrag(startDate, goHere_row, goHere_col)
            startDate = startDate + 7
            goHere_row = 1
            goHere_col = 9
            Call CreateOverallBrag(startDate, goHere_row, goHere_col)
            
            ' Set column start for component BRAG table creation
            ' and enter week number, and create table
            bragCol = 20
            weekNum = 1
            Sheets("BRAG Status").Cells(bragCol, 2).Value = weekNum
            Call ComponentBrag(bragCol, weekNum)
            bragCol = bragCol + 3
            weekNum = weekNum + 1
            Sheets("BRAG Status").Cells(bragCol, 2).Value = weekNum
            Call ComponentBrag(bragCol, weekNum)

**davesexcel** · 08-26-2008, 12:11 AM

Very interesting, you have now supplied two different codes....

**shg** · 08-26-2008, 12:27 AM

Maybe like this:

Sub ComponentBrag(bragCol As Long, weekNum As Long)
    Const bragRow As Long = 2

    Worksheets("Component template").Range("Z2:AB37").Copy
    With Worksheets("BRAG Status")
        .Select             ' optional (not necessary)
        With .Cells(bragCol, bragRow)
            .PasteSpecial Paste:=xlPasteAll
            .Value = "Week " & weekNum
        End With
    End With
End Sub

**Theodjinn** · 08-26-2008, 07:36 AM

Hi,

Sorry I took so long to get back to you, had other jobs that took priority!

Tried your revised code and getting the following:

Run-time error '1004':

PasteSpecial method of Range class failed

I'm stumped.....

paste method of worksheet failed

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

paste method of worksheet failed

Thread Information

Users Browsing this Thread

Similar Threads

Copy and paste unique values to another worksheet

Excel Run time Error 1004: Copy method of Worksheet Class failed

select method of range class failed error

Error - copy method of range class failed

1004 Select Method Of Range Class Failed

Bookmarks

Bookmarks

Posting Permissions