Results 1 to 2 of 2

Thread: move sheets to a new wb w/ criteria
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular
    Join Date
    Apr 2017
    Posts
    95
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default move sheets to a new wb w/ criteria

    Hi Guys,

    I need ideas on how to move sheets from 1 db based on a criteria in 1 sheet to a new wb. Below is my code.
    The challenge with the below code is it is not sustainable, if there's a new condition, I would copy over the whole code to create another If and Then command. Thanks!

    HTML Code:
    Option Explicit
    Sub movesheets()
    
    If Sheets("A").Range("A1").Value Then 'A1,A2,A3,A4,A5.... value is true or false.
        Worksheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I")).Copy 'Based on the conditions in Sheet A, Cells A1 to A5....,
            Set wbNew = ActiveWorkbook
    Else
        Worksheets(Array("B", "C", "D", "E", "F", "G", "H", "I")).Copy 'for example removed A
            Set wbNew = ActiveWorkbook
    
    
    End Sub

  2. #2
    Board Regular
    Join Date
    Apr 2017
    Posts
    95
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: move sheets to a new wb w/ criteria

    up

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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