Copy a range data from 1 sheet to multiple selected sheets


Joined
Aug 3, 2019
Messages
1
Reaction score
0
Sub CopyPN()

Dim LastR As Integer
Dim DR As Worksheet
Dim CK As Worksheet
Dim ws As Worksheets
Dim ws0, ws1, ws2, ws3, ws4, ws5 As Worksheets
Dim i As Integer



'1) Copy PN

Set CK = Worksheets("checking")
Set ws0 = Worksheets("Non Die Related")
Set ws1 = Worksheets("I2 (Q3 2019)")
Set ws2 = Worksheets("I2 (Q4 2019)")
Set ws3 = Worksheets("I2 (Q1 2020)")
Set ws4 = Worksheets("I2 (Q2 2020)")





With DR
LastR = .Cells(Rows.Count, 5).End(xlUp).Row
MsgBox "Last Row: " & LastR
.Range("e6:e" & LastR).Copy
End With


For i = 0 To 4
ws(i).Range("e6").PasteSpecial xlPasteValues

Next i
end sub
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top