Multi Worksheets get Columns to match

Purfleet · #2 10-22-2020, 10:28 AM

Depends on if you want formulas or VBA. you could just reference the cell on sheet 1 with and if blank so something like =IF(Sheet1!A1="","",Sheet1!A1)

or you coud have vba do it as a 1 off process with

Code:

Sub UpdateNames()

Dim NameList As Range
Dim I As Integer
Dim R As Integer

    R = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

    Set NameList = Worksheets("Sheet1").Range("a1:a" & R)

    For I = 2 To 4
        NameList.Copy Worksheets("Sheet" & I).Range("a1")
    Next I

 End Sub

Or you could have VBA do it as new items are added

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Set Target = Range("a:a")

Dim I As Integer

    For I = 2 To 4
        Worksheets("Sheet1").Range("a:a").Copy
        Worksheets("Sheet" & I).Range("a:a").PasteSpecial xlValues
    Next I

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Comparing between 2 worksheets and retreiving data if a match	FUGMAN	Excel Programming	8	02-18-2017 09:47 AM
Counting only the unique names in 3 columns on separate worksheets.	Ryga38	Excel	1	04-15-2016 07:21 AM
Match Multi Cells	gdavey	Excel Programming	1	09-06-2015 11:09 AM
Index Match Function across different worksheets	shay_mt	Excel	2	04-27-2015 06:04 AM
Multi Level Subtotals w 2 Grand Totals That Don't Match	DavidW	Excel	3	10-09-2014 07:08 AM