View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Mike H. Mike H. is offline
external usenet poster
 
Posts: 471
Default Duplicating Changes from Column A and B of Master Workbook to Colu

Here is how you could do it:
There are a couple things this assumes. Only "master" will have rows that
may be inserted. If that is not the case, then this will mess you up big
time!

Sub MakeSame()
Dim DataArray(50000, 4) As Variant
Dim Fnd As Double
'pick the right line:
Windows("master.xls").Activate
'or
Sheets("master").Select

x = 1
Do While True
If Cells(x, 1).Value = Empty Then Exit Do
Fnd = Fnd + 1
DataArray(Fnd, 1) = Cells(x, 1).Value
DataArray(Fnd, 2) = Cells(x, 2).Value
DataArray(Fnd, 3) = x
x = x + 1
Loop

For Y = 1 To 2
If Y = 1 Then
'pick the right line below:
Windows("sheet2.xls").Activate
'or
Sheets("sheet2").Select
ElseIf Y = 2 Then
'pick the right line below:
Windows("sheet3.xls").Activate
'or
Sheets("sheet3").Select
End If
For x = 1 To Fnd
If Cells(x, 1).Value < DataArray(x, 1) Then
'insert a row and make it match
Rows(x & ":" & x).Select
Selection.Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromLeftOrAbove
Cells(x, 1).Value = DataArray(x, 1)
Cells(x, 2).Value = DataArray(x, 2)
End If
Next
Next

End Sub