0'2@HR$P``z`~` ` `LNFPD:`JXH``!|@M`` &`(B $`)X(%ixls )%i(7" 0 Pp (H`h
(8H`h p"
( ( &H p
"
&8PX` &
0"8
@&Px &
0@
H
Xh"p
x& & 8@
P
`p
x
"
& &( Php
"
, 0 8 @ &`
"
0
(@
h
&
6
, F@
$ . 0P , ( H 6
BX
*
"
&(Phpx &
(8"@
H(X &
0@
H
Xh"p
x ( & 8
@P
`p
8Xx
"
&(08 &X
(08@H Pp
8@H
P`*x
@(08
@P*h \ ( R8 D D @ `
4(,@p*44H (*4P h &
2( ` $ $ " 0 "P x 0 . * *( X "p " 6 68 p $ ,
8
@
P ` "h
p ( & !0!@!
2X!
:!
D!" " (" 8"
@"
P"`" "h"
p" (""""" &" #0# @#
2X#
:#
D#$ $($
0$
@$P$ "X$
`$ ,p$$$$$ &$ %(%0%
H% X%
`%
p%% "%
%*%%%%% && @&X&`&x&
&
&& "&
&& && &6'H'`'&' '''
''((
((8(&P(x((((((((())) )()0)H)X)`)h)p)x)))))))
)*
*0*
8*H*
P*
`*p*"x*
*** ****+++&8+`+x++++ +++++
+ , ,@,H,P,
X, &h, 0,,,,--- -(-0-@-H-P-X-`-p-x--------------.... .(.
0.
@.P."X.
`.p.x.. .. .6./ /&@/h///// /////
0 0(0H0P0X0
`0 &p0 00
00011(10181@1H1X1`1h1p1x11111111111111222 2(20282@2
H2X2
`2
p22 "2
2 .22222 &3 @3X3`3
p333,3,3&4.@4p44 4 44445
55
5
05@5 "H5P5X5h5p5x555555555555556666 6 "(60686@6P6X6`6h6p6666666 6 .6 T6 H7 >P7 7 :7 B7 8 f08 D8 8pStart &%((L * &!(!, * &%(!Start * &%(B@.xkphA@0A@2A@4A@6A@8A@:A@<A@>A@@A@BA@DA@FA@HA@JA@LA@NA@PA@R * &!(!, * &%(C@HP&d2? X%Z5T(VP&d2? X%Z5T(\X z %.~ &%( ~%(B@ &%(raC@H9reRo r(oFit& X(xCopyCoq ~B@B0Hi X(xxlNoneo X(xnalDow &!|\Sheets\sheetTitle.xls'z z$~EdgeTo|0k( z %.~ &%( ~%(B@Me &%(ght%v0C@H5T(ljM05T(izon5T(w_090 r(lasA:A7B@HRa lB@.0R1:17B@HR lB@.lTop7jB@HLeft cmdC 7j!!ok# 7j!(k
sheet _B_vaqX
~B@B_B X(xL0o0
X(xB_var_ &!|\Sheets\sheetGYP.xls'zr_ z$~ar_rsv|k z %.~ &%( ~%(B@ &%(C@H5T(5T(@5T(J@9 r(A:A$B@Hp lB@.%`]]]0]H]`5' Dg% h 7j!*-*ALZ 7j(f)k = .Cells(r, cl).Interior.ColorIndex = 35x Else8= .Cells(r, cl).Interior.ColorIndex = 24 End If Next cl End If t
7j 7j7p!(
]x' 'k tx ,0/t 7j!$tdp%' 7j!%' 9
999qPkH 7j!'
p 7j! $#)x 7j!#$ 7j(
d 7j!.$ 7j(`".Cells(r, cl).Font.ColorIndex = 16 7j! 9999q 7j! $.e 7j!.$ 7j( 7j!.Pattern = xlSolid.Pattern = xlGray16`/p .PatternColorIndex = xlAutomaticl̙9%'%'.TintAndShade = 0.PatternTintAndShade = 0xqkk+ Range("B13:Z18").Selectl
d With Selection.Font .Name = "Tahoma"% .FontStyle = ""QX .Size = 8 .Strikethrough = False(0 .Superscript = FalseF .Subscript = False .OutlineFont = False@p .Shadow = FalseA) .Underline = xlUnderlineStyleNone( .ThemeColor = xlThemeColorLight1H# .TintAndShade = 0.349986267%l$ .ThemeFont = xlThemeFontNoneCK5 End With%l With Selection.InteriorJ .Pattern = xlGray50%l/ .PatternThemeColor = xlThemeColorLight1 .ColorIndex = 2@ .TintAndShade = 00 .PatternTintAndShade = 0.499984740745262C End WithL Range("AC13:AC18").SelectB 7j!$tdp%lp 7j(
k 7jB@Hq ~B@B X(xo X(x &!|\Sheets\sheetPlan.xls'z z$~|8k0 z %.~ &%( ~%(B@ &%(9 * *7j!G *7!B@j *7j!whiteG *7j(j *7j!invalidG. *7j(jq
xlsA.Close ~B@B X(xo X(x &!|\Sheets\sheetSPlan.xls'z z$~|8k0 z %.~ &%( ~%(B@ &%(9 * *7j!G *7!B@j *7j!whiteG *7j(j *7j!invalidG. *7j(jq ~B@B X(xo X(x &!|\Sheets\sheetCmptList.xls'z z$~|@k8 z %.~ &%( ~%(B@ &%(C@H9 r(q ~B@B X(xoxP X(x &!|\Sheets\sheetCmptDD.xls'z z$~|k z %.~ &%( ~%(B@ &%(C@H(2)9q ~B@B X(xoX X(x] * *'
On Error Resume Next &!|\Sheets\sheetCourse .xls'z z$~ z %.~ &%( ~%(B@ &%(C@H 9 r(U r( 7B@. 7!(7j7j7p 5( 7( 7( 7( 7 9 9 9q 7 9 9 9q 7( 7 9 9 9q 7( 7(qP 7!! 7B@.k V8:Y87pB@H r(q ~B@Bk * X(xo X(x](]@On Error Resume Next &!|\Sheets\sheetReduce.xls'z z$~|k z %.~ &%( ~%(B@ &%(C@H9'' 2 7j! 'yk
7j! 'yk 7j 7j7p)Range(Cells(1, 1), Cells(138, 29)).Select 5( 7( 7( 7 9 9 9q 7 9 9 9q 7 9 9 9qp 7 9 9 9q@ 7 9 9 9q 7 9 9 9qqq ~B@B X(xoX X(x]]] * *'
On Error Resume Next &!|\Sheets\sheetCourse .xls'z z$~ z %.~ &%( ~%(B@ &%(C@H 9'' 7j! 'yk
7j! 'yk 7j 7j7p)Range(Cells(1, 1), Cells(138, 29)).Select@9n 5( 7( 7( 7 9 9 9q 7 9 9 9q 7 9 9 9qX 7 9 9 9q( 7 9 9 9q
7 9 9 9q
q
q
~B@Bk
* X(xox
X(x &!|\Sheets\sheetPivotTable.xls'z z$~|
k
z %.~ &%( ~%(B@ &%(C@H9 r( 7j!
7j 7j7p A 7j 7j7p A 7j!.
" 7j 7j7p!("
7j!(
7j!" 7j!(kkk
q
~B@B X(xo
7 9 9 9qx
7 9 9 9qH
7 9 9 9q
7 9 9 9q q o 7 9 9 9q 7 9 9 9q` qX oP Sub ttt()' Set objExcel = New Excel.ApplicationN Set wbhidden = objExcel.Workbooks.Open("c:\Macros\Primeri\Excel\check.xls")8 Cells(1, 10).Value = wbhidden.Sheets(1).Cells(1, 1)4 wbhidden.Close ' ; Set objExcel = Nothing ' End SubWopenxlsb = Application' .GetOpenFilename("- (*.xls), *.xls")=Set xlsb = Workbooks.Open(Filename:=openxlsb, ReadOnly:=True)Attribute VB_Name = "Module1"
Sub MainMacro()
On Error ResufNext6ThisWorkbook.Sheets(1).StartF~i2.Count To 1 Step -1z If eie<> "f&en7s8@DeleteE