Marco run-time error 2147417848 (80010108) Method 'Paste of Object'_worksheet' failed

H

Hungcl

New Member
Joined
Feb 18, 2021
Messages
4
Office Version
  1. 2019
Platform
  1. Windows
I am having an issues running this Marco tool, When I click on "Run" this is the error I keep getting:
run-time error 2147417848 (80010108)
Method 'Paste of Object'_worksheet' failed

I have attached the screen shot of the error and debug quote

Any help - at all - is most appreciated

Thank you
 

Attachments

  • Capture.PNG
    Capture.PNG
    21.3 KB · Views: 29
  • 11111.PNG
    11111.PNG
    196.7 KB · Views: 29

Excel Facts

Whats the difference between CONCAT and CONCATENATE?
The newer CONCAT function can reference a range of cells. =CONCATENATE(A1,A2,A3,A4,A5) becomes =CONCAT(A1:A5)
Sort by date Sort by votes
welcome to the MrExcel
Copy your code ... click on VBA icon ... paste code between the tags which appear ... do not try to format it in any way
thanks

[ CODE=vba ]
Sub MyCode()
MsgBox "Hello"
End Sub
[ /CODE ]

and it will appear in the reply like this
VBA Code: 
Sub MyCode()
    MsgBox "Hello"
End Sub
 
Upvote 0
Hello, Thank you for the reply, here are the code of my Macro,
VBA Code: 
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+r
'
   

    Sheets("HCR Match Audit Report").Select
    Range("M:M").Cut Range("N:N")
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Match/Mismatch"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(EXACT(RC[-12],RC[-3]),""Match"",""Mismatch"")"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M" & Range("E" & Rows.Count).End(xlUp).Row)
    Range(Selection, Selection.End(xlDown)).Select
    Range("M1").Select
    Selection.AutoFilter
    Range("M1").Select
    ActiveSheet.Range("A:N").AutoFilter Field:=13, Criteria1:= _
        "Mismatch"

    Range("A:N").Select
    Range("M1").Activate
    Selection.Copy
    Sheets("Incorrect Req Title").Select
    Range("A1").Select
    ActiveCell.Select
    ActiveSheet.Paste
    Sheets("HCR Match Audit Report").Select
    Range("M1").Select
    ActiveSheet.ShowAllData
   
    Worksheets("Sch. Appt 4 Report").Range("N2:N25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Pending"",J2)),ISNUMBER(SEARCH(""Pending"",L2))),""Invalid"",""Valid"")"
    Worksheets("Sch. Appt 4 Report").Range("O2:O25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Pending"",K2)),ISNUMBER(SEARCH(""Pending"",M2))),""Invalid"",""Valid"")"
    Worksheets("Sch. Appt 4 Report").Range("P2:P25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Complete"",K2)),ISNUMBER(SEARCH(""Complete"",M2)),ISBLANK(K2),ISBLANK(M2)),""Valid"",""Invalid"")"
    Worksheets("Sch. Appt 4 Report").Range("Q2:Q25000").Formula = "=IF(AND(N2=""valid"",O2=""Valid"",P2=""Valid""),""Schedule"",""Do Not Schedule"")"
    Worksheets("Sch. Appt 4 Report").Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Worksheets("Sch. Appt 4 Report").Select
    ActiveSheet.Range("A:Z").AutoFilter Field:=17, Criteria1:="Do Not Schedule"
    Rows("2:25000").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter

    Sheets("Sch. Appt 4 Report").Select
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Timeslot"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Timeslot ID"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "Timespan ID"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Status"
   
    Sheets("Timeslotspan Report").Select
    Range("I1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:J").AutoFilter Field:=9, Criteria1:="="
    Range("A:J").Select
    Selection.Copy
    Sheets("Timeslots - Missing Alias").Select
    Range("A1").Select
    ActiveCell.Select
    ActiveSheet.Paste
    Sheets("Timeslotspan Report").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("A:J").AutoFilter Field:=9
    Selection.AutoFilter
   
    Sheets("Sch. Appt 4 Report").Select
    Range("J2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-5],'HCR Match Audit Report'!C[-8]:C[-1],8,FALSE)"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    Range("K2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Timeslotspan Report'!C[-10]:C[-9],2,FALSE)"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-21
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2],'Timeslotspan Report'!C[-11]:C[-8],4,FALSE)"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-3],'Timeslotspan Report'!C[-12]:C[-7],6,FALSE)"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
   
    Range("M1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:M").AutoFilter Field:=13, Criteria1:="Open"
    Range("H:I").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("File to be uploaded").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sch. Appt 4 Report").Select
    Application.CutCopyMode = False
   
    Range("K:L").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("File to be uploaded").Select
    Range("C1").Select
    ActiveSheet.Paste
End Sub
 
Upvote 0
VBA Code: 
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+r
'
    

    Sheets("HCR Match Audit Report").Select
    Range("M:M").Cut Range("N:N")
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Match/Mismatch"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(EXACT(RC[-12],RC[-3]),""Match"",""Mismatch"")"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M" & Range("E" & Rows.Count).End(xlUp).Row)
    Range(Selection, Selection.End(xlDown)).Select
    Range("M1").Select
    Selection.AutoFilter
    Range("M1").Select
    ActiveSheet.Range("A:N").AutoFilter Field:=13, Criteria1:= _
        "Mismatch"

    Range("A:N").Select
    Range("M1").Activate
    Selection.Copy
    Sheets("Incorrect Req Title").Select
    Range("A1").Select
    ActiveCell.Select
    ActiveSheet.Paste
    Sheets("HCR Match Audit Report").Select
    Range("M1").Select
    ActiveSheet.ShowAllData
    
    Worksheets("Sch. Appt 4 Report").Range("N2:N25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Pending"",J2)),ISNUMBER(SEARCH(""Pending"",L2))),""Invalid"",""Valid"")"
    Worksheets("Sch. Appt 4 Report").Range("O2:O25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Pending"",K2)),ISNUMBER(SEARCH(""Pending"",M2))),""Invalid"",""Valid"")"
    Worksheets("Sch. Appt 4 Report").Range("P2:P25000").Formula = "=IF(OR(ISNUMBER(SEARCH(""Complete"",K2)),ISNUMBER(SEARCH(""Complete"",M2)),ISBLANK(K2),ISBLANK(M2)),""Valid"",""Invalid"")"
    Worksheets("Sch. Appt 4 Report").Range("Q2:Q25000").Formula = "=IF(AND(N2=""valid"",O2=""Valid"",P2=""Valid""),""Schedule"",""Do Not Schedule"")"
    Worksheets("Sch. Appt 4 Report").Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Worksheets("Sch. Appt 4 Report").Select
    ActiveSheet.Range("A:Z").AutoFilter Field:=17, Criteria1:="Do Not Schedule"
    Rows("2:25000").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter

    Sheets("Sch. Appt 4 Report").Select
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Timeslot"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Timeslot ID"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "Timespan ID"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Status"
    
    Sheets("Timeslotspan Report").Select
    Range("I1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:J").AutoFilter Field:=9, Criteria1:="="
    Range("A:J").Select
    Selection.Copy
    Sheets("Timeslots - Missing Alias").Select
    Range("A1").Select
    ActiveCell.Select
    ActiveSheet.Paste
    Sheets("Timeslotspan Report").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("A:J").AutoFilter Field:=9
    Selection.AutoFilter
    
    Sheets("Sch. Appt 4 Report").Select
    Range("J2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-5],'HCR Match Audit Report'!C[-8]:C[-1],8,FALSE)"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    Range("K2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Timeslotspan Report'!C[-10]:C[-9],2,FALSE)"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-21
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2],'Timeslotspan Report'!C[-11]:C[-8],4,FALSE)"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-3],'Timeslotspan Report'!C[-12]:C[-7],6,FALSE)"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
    
    Range("M1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:M").AutoFilter Field:=13, Criteria1:="Open"
    Range("H:I").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("File to be uploaded").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sch. Appt 4 Report").Select
    Application.CutCopyMode = False
    
    Range("K:L").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("File to be uploaded").Select
    Range("C1").Select
    ActiveSheet.Paste
End Sub
 
Upvote 0
Hello, Any ideas how to solve this issues?

Thank you!
 
Upvote 0
You must log in or register to reply here.

Similar threads

T
  • Question
Copying and pasting chart
Replies
7
Views
419
tiredofit
T
franklin_m
  • Solved
Learning arrays ... error when trying to read from range using cells property
Replies
4
Views
62
Fluff
Fluff
mumps
  • Question
Union of named ranges not working
2
Replies
13
Views
478
mumps
mumps
E
  • Solved
VBA fails when worksheet is protected?
Replies
1
Views
152
EssKayKay
E
P
  • Solved
VBA Help - Runtime error -2147417848 (80010108) - Method has failed
Replies
8
Views
312
PTSD
P

Forum statistics

Threads
1,215,029
Messages
6,122,757
Members
449,094
Latest member
dsharae57

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top