Ка да стане
0 отговора
92 прегледа
Ка да стане
Копирам от един Book в друг по следния начин:
Private Sub CommandButton1_Click()
Dim FUp(30, 50)
Workbooks("z2005.000.xls").Sheets("Fir").Activate
For i = 1 To 30
If Workbooks("z2005.000.xls").Sheets("Fir").Cells(, [1]) = "" Then GoTo E1
For j = 1 To 50
FUp(i, j) = Workbooks("z2005.000.xls").Sheets("Fir").Cells(, [j])
Next j
Next i
E1:
Workbooks("z2005.001.xls").Sheets("Fir").Activate
For ii = 1 To i - 1
For j = 1 To 50
Workbooks("z2005.001.xls").Sheets("Fir").Cells([ii], [j]) = FUp(ii, j)
Next j
Next ii
End sub
Копирането се изпълнява нормално.
Въпроса ми е как трябва да стане за да се пренесе настройката за печат от Book-a ,от който копирам в новия Book.
Благодаря.
Private Sub CommandButton1_Click()
Dim FUp(30, 50)
Workbooks("z2005.000.xls").Sheets("Fir").Activate
For i = 1 To 30
If Workbooks("z2005.000.xls").Sheets("Fir").Cells(, [1]) = "" Then GoTo E1
For j = 1 To 50
FUp(i, j) = Workbooks("z2005.000.xls").Sheets("Fir").Cells(, [j])
Next j
Next i
E1:
Workbooks("z2005.001.xls").Sheets("Fir").Activate
For ii = 1 To i - 1
For j = 1 To 50
Workbooks("z2005.001.xls").Sheets("Fir").Cells([ii], [j]) = FUp(ii, j)
Next j
Next ii
End sub
Копирането се изпълнява нормално.
Въпроса ми е как трябва да стане за да се пренесе настройката за печат от Book-a ,от който копирам в новия Book.
Благодаря.