Refresh Data So it can get duplicated

[bobby786]

Dear All ,

I have the following code on my Sheet named (CENTRAL) , purpose of this code to sync some data to other sheet named as (Materials) , for code credit goes to forum members who helped me , thank you again.

Private Sub Worksheet_Change(ByVal Target As Range)

'This will duplicate values to QC sheet
If Not Target.Column > 11 Then
    Sheets("QC").Range(Target.Address) = Target.Value2
End If

'This will duplicate values to Materials Sheet
If Not Target.Column > 6 Then
    Sheets("Materials").Range(Target.Address) = Target.Value2
End If

 End Sub

Now i have CENTRAL Sheet with 100's of entries , one way i found is going to each cell and press F2 in this way it can get sync to Material corresponding Cell , but its a time taking work , i am looking if i can automate this ?

thanks in advance for anyone who help me .

Regards

 

[Akuini]

This is untested:
Select the cells with 100's of entries > Copy > Paste it back

    If Not Target.Column > 6 Then
        
        Dim c As Range
        Application.EnableEvents = False
        
        For Each c In Target
              Sheets("Materials").Range(c.Address) = c.Value2
        Next
        
        Application.EnableEvents = True
        
    End If

 

[bobby786]

This is untested:
Select the cells with 100's of entries > Copy > Paste it back

    If Not Target.Column > 6 Then
       
        Dim c As Range
        Application.EnableEvents = False
       
        For Each c In Target
              Sheets("Materials").Range(c.Address) = c.Value2
        Next
       
        Application.EnableEvents = True
       
    End If

Thank you for the solution