move sheets to a new wb w/ criteria

gerald24

Board Regular
Joined
Apr 28, 2017
Messages
95
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:
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
 

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

Watch MrExcel Video

Forum statistics

Threads
1,096,191
Messages
5,448,878
Members
405,537
Latest member
muh6323

This Week's Hot Topics

Top