this is very simplistic but works, it assumes that all files are opened and its ready to be
triggered by a selectchange auto sub
Sub DISTR()
r = 2
Windows("mainfile").Activate
With Sheets("mainfile")
While .Cells(r, 1) <> ""
Windows("file1").Activate
Cells(r, 1) = .Cells(r, 2)
Cells(r, 2) = .Cells(r, 3)
Windows("file2").Activate
Cells(r, 1) = .Cells(r, 4)
Cells(r, 2) = .Cells(r, 5)
Cells(r, 3) = .Cells(r, 6)
Windows("file3").Activate
Cells(r, 1) = .Cells(r, 2)
Cells(r, 2) = .Cells(r, 3)
Cells(r, 3) = .Cells(r, 4)
Windows("file4").Activate
Cells(r, 1) = .Cells(r, 4)
Cells(r, 2) = .Cells(r, 1) & " " & .Cells(r, 25)
r = r + 1
Wend
End With
Windows("file1").Close
Windows("file2").Close
Windows("file3").Close
Windows("file4").Close
End Sub
Bookmarks