Apr 08 2021 07:56 AM - edited Apr 08 2021 11:02 AM
I want to create a spreadsheet where information from some selected cells is duplicated on a second sheet simultaneously. Is there a way to do this?
For example, I want to enter property addresses in column A Sheet 1 and have the same information populate in column A Sheet 2 simultaneously. Is this enough explanation to get some answers? Sorry. New to this.
Apr 08 2021 09:52 AM
Apr 08 2021 11:02 AM
Apr 08 2021 11:21 AM
Assuming you have two sheets called Sheet1 and Sheet2 in the file and you want to duplicate what you input in column A on Sheet1 on to the Sheet2, then follow the steps given below...
To test the code, now enter some values in column A on Sheet1 and those values will be copied to the Sheet2 automatically.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsDest As Worksheet
Dim Cel As Range
Set wsDest = ThisWorkbook.Worksheets("Sheet2") 'The changes on Sheet1 will be copied to Sheet2, Change the name of the destination sheet if required
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For Each Cel In Target
wsDest.Range(Cel.Address).Value = Cel.Value
Next Cel
End If
End Sub
Apr 08 2021 11:26 AM
And if you don't want a macro based solution, you may also place the following formula on Sheet2
On Sheet2
In A1
=IF(Sheet1!A1="","",Sheet1!A1)
and copy it down the rows.
Apr 08 2021 04:00 PM