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

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