Results 1 to 2 of 2

Macro Error (Selection.End(xlDown).Offset(1, 0).Select)

Threaded View

Sultan1994 Macro Error... 03-14-2022, 04:14 AM
WideBoyDixon Re: Macro Error... 03-14-2022, 05:30 AM
  1. #1
    Forum Contributor
    Join Date
    02-20-2022
    Location
    Indonesia
    MS-Off Ver
    Excel 2016
    Posts
    118

    Lightbulb Macro Error (Selection.End(xlDown).Offset(1, 0).Select)

    Sub Feedmaster01()
    '
    ' Feedmaster01 Macro
    '
    ' Keyboard Shortcut: Ctrl+Shift+F
    '
        Windows("Feedmaster#.xls").Activate
        Range("D8:T8").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
        Sheets("NA01").Select
        Range("E5").Select
        Selection.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Windows("Feedmaster#.xls").Activate
        Range("D9:T9").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
        Sheets("NA02").Select
        Range("E5").Select
        Selection.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Windows("Feedmaster#.xls").Activate
        Range("D10:T10").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
        Sheets("NA03").Select
        Range("E5").Select
        Selection.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Windows("Feedmaster#.xls").Activate
        Range("D10:T10").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
        Sheets("NA03").Select
        Range("E5").Select
        Selection.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Windows("Feedmaster#.xls").Activate
        Range("D11:T11").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("BUKU BESAR SQUARE CAGE 2022.xlsm").Activate
        Sheets("NA04").Select
        Range("E5").Select
        Selection.End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
    Guys, I used to copy paste a data from one file to another but the code always say error in that specific area.
    Selection.End(xlDown).Offset(1, 0).Select
    Is that because I merge the column in E2:E4 di BUKU BESAR SQUARE CAGE 2022?, I already try to make the code to E2, but still didn't run.
    There is a way to run the code without change my data format?

    Thanks
    Attached Files Attached Files

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. “Selection.Insert Shift:=xlDown” gets Run-time error '1004'
    By watsonea4 in forum Excel Programming / VBA / Macros
    Replies: 6
    Last Post: 01-02-2023, 07:07 AM
  2. [SOLVED] Vba offset xldown assistance
    By Sintek in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 09-04-2016, 08:04 AM
  3. [SOLVED] Copy Data Range & Paste at Selection.End(xlDown).Select
    By batchy in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 07-07-2014, 06:15 AM
  4. [SOLVED] Range(Selection, Selection.End(xlDown)).Select goes to 65536 instead of last filled row
    By looney in forum Excel Programming / VBA / Macros
    Replies: 10
    Last Post: 06-12-2013, 10:51 AM
  5. Replies: 2
    Last Post: 04-20-2012, 12:23 PM
  6. Selection.End(xlDown).Select
    By Zaheds in forum Excel General
    Replies: 1
    Last Post: 03-10-2010, 06:53 AM
  7. Finding a date & Selection.End(xlDown)
    By Clivey_UK in forum Excel Programming / VBA / Macros
    Replies: 8
    Last Post: 04-26-2006, 01:40 PM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1