API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 6th, 2016
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 228.79 KB | None | 0 0
raw download clone embed print report
  1. On Error GoTo 2
  2. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  3. Windows("DSDI905_0116.xls").Activate
  4. Sheets("Лист2").Select
  5. formula2sh
  6. Range("G6:H32").Copy
  7. wb.Activate
  8. Sheets("buffer").Select
  9. Range("A2").Select
  10. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  11. Windows("DSDI905_0116.xls").Activate
  12. Sheets("Лист3").Select
  13. formula3sh
  14. Range("G6:H21").Copy
  15. wb.Activate
  16. Sheets("buffer").Select
  17. Range("A29").Select
  18. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  19. Windows("DSDI905_0116.xls").Activate
  20. ActiveWorkbook.Save
  21. Windows("DSDI905_0116.xls").Close
  22. '==================================================
  23. 2:
  24. On Error GoTo 3
  25. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  26. Windows("DSDI905_0216.xls").Activate
  27. Sheets("Лист2").Select
  28. formula2sh
  29. Range("G6:H32").Copy
  30. wb.Activate
  31. Sheets("buffer").Select
  32. Range("D2").Select
  33. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  34. Windows("DSDI905_0216.xls").Activate
  35. Sheets("Лист3").Select
  36. formula3sh
  37. Range("G6:H21").Copy
  38. wb.Activate
  39. Sheets("buffer").Select
  40. Range("D29").Select
  41. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  42. Windows("DSDI905_0216.xls").Activate
  43. ActiveWorkbook.Save
  44. Windows("DSDI905_0216.xls").Close
  45. '==================================================
  46. 3:
  47. On Error GoTo 4
  48. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  49. Windows("DSDI905_0316.xls").Activate
  50. Sheets("Лист2").Select
  51. formula2sh
  52. Range("G6:H32").Copy
  53. wb.Activate
  54. Sheets("buffer").Select
  55. Range("G2").Select
  56. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  57. Windows("DSDI905_0316.xls").Activate
  58. Sheets("Лист3").Select
  59. formula3sh
  60. Range("G6:H21").Copy
  61. wb.Activate
  62. Sheets("buffer").Select
  63. Range("G29").Select
  64. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  65. Windows("DSDI905_0316.xls").Activate
  66. ActiveWorkbook.Save
  67. Windows("DSDI905_0316.xls").Close
  68. '==================================================
  69. 4:
  70. On Error GoTo 5
  71. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  72. Windows("DSDI905_0416.xls").Activate
  73. Sheets("Лист2").Select
  74. formula2sh
  75. Range("G6:H32").Copy
  76. wb.Activate
  77. Sheets("buffer").Select
  78. Range("J2").Select
  79. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  80. Windows("DSDI905_0416.xls").Activate
  81. Sheets("Лист3").Select
  82. formula3sh
  83. Range("G6:H21").Copy
  84. wb.Activate
  85. Sheets("buffer").Select
  86. Range("J29").Select
  87. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  88. Windows("DSDI905_0416.xls").Activate
  89. ActiveWorkbook.Save
  90. Windows("DSDI905_0416.xls").Close
  91. '==================================================
  92. 5:
  93. On Error GoTo 6
  94. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  95. Windows("DSDI905_0516.xls").Activate
  96. Sheets("Лист2").Select
  97. formula2sh
  98. Range("G6:H32").Copy
  99. wb.Activate
  100. Sheets("buffer").Select
  101. Range("M2").Select
  102. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  103. Windows("DSDI905_0516.xls").Activate
  104. Sheets("Лист3").Select
  105. formula3sh
  106. Range("G6:H21").Copy
  107. wb.Activate
  108. Sheets("buffer").Select
  109. Range("M29").Select
  110. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  111. Windows("DSDI905_0516.xls").Activate
  112. ActiveWorkbook.Save
  113. Windows("DSDI905_0516.xls").Close
  114. '==================================================
  115. 6:
  116. On Error GoTo 7
  117. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  118. Windows("DSDI905_0616.xls").Activate
  119. Sheets("Лист2").Select
  120. formula2sh
  121. Range("G6:H32").Copy
  122. wb.Activate
  123. Sheets("buffer").Select
  124. Range("P2").Select
  125. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  126. Windows("DSDI905_0616.xls").Activate
  127. Sheets("Лист3").Select
  128. formula3sh
  129. Range("G6:H21").Copy
  130. wb.Activate
  131. Sheets("buffer").Select
  132. Range("P29").Select
  133. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  134. Windows("DSDI905_0616.xls").Activate
  135. ActiveWorkbook.Save
  136. Windows("DSDI905_0616.xls").Close
  137. '==================================================
  138. 7:
  139. On Error GoTo a8
  140. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  141. Windows("DSDI905_0716.xls").Activate
  142. Sheets("Лист2").Select
  143. formula2sh
  144. Range("G6:H32").Copy
  145. wb.Activate
  146. Sheets("buffer").Select
  147. Range("S2").Select
  148. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  149. Windows("DSDI905_0716.xls").Activate
  150. Sheets("Лист3").Select
  151. formula3sh
  152. Range("G6:H21").Copy
  153. wb.Activate
  154. Sheets("buffer").Select
  155. Range("S29").Select
  156. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  157. Windows("DSDI905_0716.xls").Activate
  158. ActiveWorkbook.Save
  159. Windows("DSDI905_0716.xls").Close
  160. '==================================================
  161. a8:
  162. On Error GoTo a9
  163. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  164. Windows("DSDI905_0816.xls").Activate
  165. Sheets("Лист2").Select
  166. formula2sh
  167. Range("G6:H32").Copy
  168. wb.Activate
  169. Sheets("buffer").Select
  170. Range("V2").Select
  171. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  172. Windows("DSDI905_0816.xls").Activate
  173. Sheets("Лист3").Select
  174. formula3sh
  175. Range("G6:H21").Copy
  176. wb.Activate
  177. Sheets("buffer").Select
  178. Range("V29").Select
  179. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  180. Windows("DSDI905_0816.xls").Activate
  181. ActiveWorkbook.Save
  182. Windows("DSDI905_0816.xls").Close
  183. '==================================================
  184. a9:
  185. On Error GoTo a10
  186. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  187. Windows("DSDI905_0916.xls").Activate
  188. Sheets("Лист2").Select
  189. formula2sh
  190. Range("G6:H32").Copy
  191. wb.Activate
  192. Sheets("buffer").Select
  193. Range("Y2").Select
  194. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  195. Windows("DSDI905_0916.xls").Activate
  196. Sheets("Лист3").Select
  197. formula3sh
  198. Range("G6:H21").Copy
  199. wb.Activate
  200. Sheets("buffer").Select
  201. Range("Y29").Select
  202. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  203. Windows("DSDI905_0916.xls").Activate
  204. ActiveWorkbook.Save
  205. Windows("DSDI905_0916.xls").Close
  206. '==================================================
  207. a10:
  208. On Error GoTo a11
  209. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  210. Windows("DSDI905_1016.xls").Activate
  211. Sheets("Лист2").Select
  212. formula2sh
  213. Range("G6:H32").Copy
  214. wb.Activate
  215. Sheets("buffer").Select
  216. Range("AB2").Select
  217. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  218. Windows("DSDI905_1016.xls").Activate
  219. Sheets("Лист3").Select
  220. formula3sh
  221. Range("G6:H21").Copy
  222. wb.Activate
  223. Sheets("buffer").Select
  224. Range("AB29").Select
  225. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  226. Windows("DSDI905_1016.xls").Activate
  227. ActiveWorkbook.Save
  228. Windows("DSDI905_1016.xls").Close
  229. '==================================================
  230. a11:
  231. On Error GoTo a12
  232. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  233. Windows("DSDI905_1116.xls").Activate
  234. Sheets("Лист2").Select
  235. formula2sh
  236. Range("G6:H32").Copy
  237. wb.Activate
  238. Sheets("buffer").Select
  239. Range("AE2").Select
  240. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  241. Windows("DSDI905_1116.xls").Activate
  242. Sheets("Лист3").Select
  243. formula3sh
  244. Range("G6:H21").Copy
  245. wb.Activate
  246. Sheets("buffer").Select
  247. Range("AE29").Select
  248. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  249. Windows("DSDI905_1116.xls").Activate
  250. ActiveWorkbook.Save
  251. Windows("DSDI905_0116.xls").Close
  252. '==================================================
  253. a12:
  254. On Error GoTo a13
  255. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  256. Windows("DSDI905_1216.xls").Activate
  257. Sheets("Лист2").Select
  258. formula2sh
  259. Range("G6:H32").Copy
  260. wb.Activate
  261. Sheets("buffer").Select
  262. Range("AH2").Select
  263. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  264. Windows("DSDI905_1216.xls").Activate
  265. Sheets("Лист3").Select
  266. formula3sh
  267. Range("G6:H21").Copy
  268. wb.Activate
  269. Sheets("buffer").Select
  270. Range("AH29").Select
  271. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  272. Windows("DSDI905_1216.xls").Activate
  273. ActiveWorkbook.Save
  274. Windows("DSDI905_1216.xls").Close
  275. '==================================================On Error GoTo 2
  276. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  277. Windows("DSDI905_0116.xls").Activate
  278. Sheets("Лист2").Select
  279. formula2sh
  280. Range("G6:H32").Copy
  281. wb.Activate
  282. Sheets("buffer").Select
  283. Range("A2").Select
  284. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  285. Windows("DSDI905_0116.xls").Activate
  286. Sheets("Лист3").Select
  287. formula3sh
  288. Range("G6:H21").Copy
  289. wb.Activate
  290. Sheets("buffer").Select
  291. Range("A29").Select
  292. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  293. Windows("DSDI905_0116.xls").Activate
  294. ActiveWorkbook.Save
  295. Windows("DSDI905_0116.xls").Close
  296. '==================================================
  297. 2:
  298. On Error GoTo 3
  299. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  300. Windows("DSDI905_0216.xls").Activate
  301. Sheets("Лист2").Select
  302. formula2sh
  303. Range("G6:H32").Copy
  304. wb.Activate
  305. Sheets("buffer").Select
  306. Range("D2").Select
  307. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  308. Windows("DSDI905_0216.xls").Activate
  309. Sheets("Лист3").Select
  310. formula3sh
  311. Range("G6:H21").Copy
  312. wb.Activate
  313. Sheets("buffer").Select
  314. Range("D29").Select
  315. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  316. Windows("DSDI905_0216.xls").Activate
  317. ActiveWorkbook.Save
  318. Windows("DSDI905_0216.xls").Close
  319. '==================================================
  320. 3:
  321. On Error GoTo 4
  322. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  323. Windows("DSDI905_0316.xls").Activate
  324. Sheets("Лист2").Select
  325. formula2sh
  326. Range("G6:H32").Copy
  327. wb.Activate
  328. Sheets("buffer").Select
  329. Range("G2").Select
  330. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  331. Windows("DSDI905_0316.xls").Activate
  332. Sheets("Лист3").Select
  333. formula3sh
  334. Range("G6:H21").Copy
  335. wb.Activate
  336. Sheets("buffer").Select
  337. Range("G29").Select
  338. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  339. Windows("DSDI905_0316.xls").Activate
  340. ActiveWorkbook.Save
  341. Windows("DSDI905_0316.xls").Close
  342. '==================================================
  343. 4:
  344. On Error GoTo 5
  345. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  346. Windows("DSDI905_0416.xls").Activate
  347. Sheets("Лист2").Select
  348. formula2sh
  349. Range("G6:H32").Copy
  350. wb.Activate
  351. Sheets("buffer").Select
  352. Range("J2").Select
  353. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  354. Windows("DSDI905_0416.xls").Activate
  355. Sheets("Лист3").Select
  356. formula3sh
  357. Range("G6:H21").Copy
  358. wb.Activate
  359. Sheets("buffer").Select
  360. Range("J29").Select
  361. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  362. Windows("DSDI905_0416.xls").Activate
  363. ActiveWorkbook.Save
  364. Windows("DSDI905_0416.xls").Close
  365. '==================================================
  366. 5:
  367. On Error GoTo 6
  368. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  369. Windows("DSDI905_0516.xls").Activate
  370. Sheets("Лист2").Select
  371. formula2sh
  372. Range("G6:H32").Copy
  373. wb.Activate
  374. Sheets("buffer").Select
  375. Range("M2").Select
  376. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  377. Windows("DSDI905_0516.xls").Activate
  378. Sheets("Лист3").Select
  379. formula3sh
  380. Range("G6:H21").Copy
  381. wb.Activate
  382. Sheets("buffer").Select
  383. Range("M29").Select
  384. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  385. Windows("DSDI905_0516.xls").Activate
  386. ActiveWorkbook.Save
  387. Windows("DSDI905_0516.xls").Close
  388. '==================================================
  389. 6:
  390. On Error GoTo 7
  391. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  392. Windows("DSDI905_0616.xls").Activate
  393. Sheets("Лист2").Select
  394. formula2sh
  395. Range("G6:H32").Copy
  396. wb.Activate
  397. Sheets("buffer").Select
  398. Range("P2").Select
  399. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  400. Windows("DSDI905_0616.xls").Activate
  401. Sheets("Лист3").Select
  402. formula3sh
  403. Range("G6:H21").Copy
  404. wb.Activate
  405. Sheets("buffer").Select
  406. Range("P29").Select
  407. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  408. Windows("DSDI905_0616.xls").Activate
  409. ActiveWorkbook.Save
  410. Windows("DSDI905_0616.xls").Close
  411. '==================================================
  412. 7:
  413. On Error GoTo a8
  414. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  415. Windows("DSDI905_0716.xls").Activate
  416. Sheets("Лист2").Select
  417. formula2sh
  418. Range("G6:H32").Copy
  419. wb.Activate
  420. Sheets("buffer").Select
  421. Range("S2").Select
  422. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  423. Windows("DSDI905_0716.xls").Activate
  424. Sheets("Лист3").Select
  425. formula3sh
  426. Range("G6:H21").Copy
  427. wb.Activate
  428. Sheets("buffer").Select
  429. Range("S29").Select
  430. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  431. Windows("DSDI905_0716.xls").Activate
  432. ActiveWorkbook.Save
  433. Windows("DSDI905_0716.xls").Close
  434. '==================================================
  435. a8:
  436. On Error GoTo a9
  437. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  438. Windows("DSDI905_0816.xls").Activate
  439. Sheets("Лист2").Select
  440. formula2sh
  441. Range("G6:H32").Copy
  442. wb.Activate
  443. Sheets("buffer").Select
  444. Range("V2").Select
  445. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  446. Windows("DSDI905_0816.xls").Activate
  447. Sheets("Лист3").Select
  448. formula3sh
  449. Range("G6:H21").Copy
  450. wb.Activate
  451. Sheets("buffer").Select
  452. Range("V29").Select
  453. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  454. Windows("DSDI905_0816.xls").Activate
  455. ActiveWorkbook.Save
  456. Windows("DSDI905_0816.xls").Close
  457. '==================================================
  458. a9:
  459. On Error GoTo a10
  460. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  461. Windows("DSDI905_0916.xls").Activate
  462. Sheets("Лист2").Select
  463. formula2sh
  464. Range("G6:H32").Copy
  465. wb.Activate
  466. Sheets("buffer").Select
  467. Range("Y2").Select
  468. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  469. Windows("DSDI905_0916.xls").Activate
  470. Sheets("Лист3").Select
  471. formula3sh
  472. Range("G6:H21").Copy
  473. wb.Activate
  474. Sheets("buffer").Select
  475. Range("Y29").Select
  476. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  477. Windows("DSDI905_0916.xls").Activate
  478. ActiveWorkbook.Save
  479. Windows("DSDI905_0916.xls").Close
  480. '==================================================
  481. a10:
  482. On Error GoTo a11
  483. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  484. Windows("DSDI905_1016.xls").Activate
  485. Sheets("Лист2").Select
  486. formula2sh
  487. Range("G6:H32").Copy
  488. wb.Activate
  489. Sheets("buffer").Select
  490. Range("AB2").Select
  491. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  492. Windows("DSDI905_1016.xls").Activate
  493. Sheets("Лист3").Select
  494. formula3sh
  495. Range("G6:H21").Copy
  496. wb.Activate
  497. Sheets("buffer").Select
  498. Range("AB29").Select
  499. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  500. Windows("DSDI905_1016.xls").Activate
  501. ActiveWorkbook.Save
  502. Windows("DSDI905_1016.xls").Close
  503. '==================================================
  504. a11:
  505. On Error GoTo a12
  506. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  507. Windows("DSDI905_1116.xls").Activate
  508. Sheets("Лист2").Select
  509. formula2sh
  510. Range("G6:H32").Copy
  511. wb.Activate
  512. Sheets("buffer").Select
  513. Range("AE2").Select
  514. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  515. Windows("DSDI905_1116.xls").Activate
  516. Sheets("Лист3").Select
  517. formula3sh
  518. Range("G6:H21").Copy
  519. wb.Activate
  520. Sheets("buffer").Select
  521. Range("AE29").Select
  522. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  523. Windows("DSDI905_1116.xls").Activate
  524. ActiveWorkbook.Save
  525. Windows("DSDI905_0116.xls").Close
  526. '==================================================
  527. a12:
  528. On Error GoTo a13
  529. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  530. Windows("DSDI905_1216.xls").Activate
  531. Sheets("Лист2").Select
  532. formula2sh
  533. Range("G6:H32").Copy
  534. wb.Activate
  535. Sheets("buffer").Select
  536. Range("AH2").Select
  537. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  538. Windows("DSDI905_1216.xls").Activate
  539. Sheets("Лист3").Select
  540. formula3sh
  541. Range("G6:H21").Copy
  542. wb.Activate
  543. Sheets("buffer").Select
  544. Range("AH29").Select
  545. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  546. Windows("DSDI905_1216.xls").Activate
  547. ActiveWorkbook.Save
  548. Windows("DSDI905_1216.xls").Close
  549. '==================================================On Error GoTo 2
  550. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  551. Windows("DSDI905_0116.xls").Activate
  552. Sheets("Лист2").Select
  553. formula2sh
  554. Range("G6:H32").Copy
  555. wb.Activate
  556. Sheets("buffer").Select
  557. Range("A2").Select
  558. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  559. Windows("DSDI905_0116.xls").Activate
  560. Sheets("Лист3").Select
  561. formula3sh
  562. Range("G6:H21").Copy
  563. wb.Activate
  564. Sheets("buffer").Select
  565. Range("A29").Select
  566. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  567. Windows("DSDI905_0116.xls").Activate
  568. ActiveWorkbook.Save
  569. Windows("DSDI905_0116.xls").Close
  570. '==================================================
  571. 2:
  572. On Error GoTo 3
  573. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  574. Windows("DSDI905_0216.xls").Activate
  575. Sheets("Лист2").Select
  576. formula2sh
  577. Range("G6:H32").Copy
  578. wb.Activate
  579. Sheets("buffer").Select
  580. Range("D2").Select
  581. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  582. Windows("DSDI905_0216.xls").Activate
  583. Sheets("Лист3").Select
  584. formula3sh
  585. Range("G6:H21").Copy
  586. wb.Activate
  587. Sheets("buffer").Select
  588. Range("D29").Select
  589. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  590. Windows("DSDI905_0216.xls").Activate
  591. ActiveWorkbook.Save
  592. Windows("DSDI905_0216.xls").Close
  593. '==================================================
  594. 3:
  595. On Error GoTo 4
  596. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  597. Windows("DSDI905_0316.xls").Activate
  598. Sheets("Лист2").Select
  599. formula2sh
  600. Range("G6:H32").Copy
  601. wb.Activate
  602. Sheets("buffer").Select
  603. Range("G2").Select
  604. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  605. Windows("DSDI905_0316.xls").Activate
  606. Sheets("Лист3").Select
  607. formula3sh
  608. Range("G6:H21").Copy
  609. wb.Activate
  610. Sheets("buffer").Select
  611. Range("G29").Select
  612. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  613. Windows("DSDI905_0316.xls").Activate
  614. ActiveWorkbook.Save
  615. Windows("DSDI905_0316.xls").Close
  616. '==================================================
  617. 4:
  618. On Error GoTo 5
  619. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  620. Windows("DSDI905_0416.xls").Activate
  621. Sheets("Лист2").Select
  622. formula2sh
  623. Range("G6:H32").Copy
  624. wb.Activate
  625. Sheets("buffer").Select
  626. Range("J2").Select
  627. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  628. Windows("DSDI905_0416.xls").Activate
  629. Sheets("Лист3").Select
  630. formula3sh
  631. Range("G6:H21").Copy
  632. wb.Activate
  633. Sheets("buffer").Select
  634. Range("J29").Select
  635. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  636. Windows("DSDI905_0416.xls").Activate
  637. ActiveWorkbook.Save
  638. Windows("DSDI905_0416.xls").Close
  639. '==================================================
  640. 5:
  641. On Error GoTo 6
  642. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  643. Windows("DSDI905_0516.xls").Activate
  644. Sheets("Лист2").Select
  645. formula2sh
  646. Range("G6:H32").Copy
  647. wb.Activate
  648. Sheets("buffer").Select
  649. Range("M2").Select
  650. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  651. Windows("DSDI905_0516.xls").Activate
  652. Sheets("Лист3").Select
  653. formula3sh
  654. Range("G6:H21").Copy
  655. wb.Activate
  656. Sheets("buffer").Select
  657. Range("M29").Select
  658. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  659. Windows("DSDI905_0516.xls").Activate
  660. ActiveWorkbook.Save
  661. Windows("DSDI905_0516.xls").Close
  662. '==================================================
  663. 6:
  664. On Error GoTo 7
  665. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  666. Windows("DSDI905_0616.xls").Activate
  667. Sheets("Лист2").Select
  668. formula2sh
  669. Range("G6:H32").Copy
  670. wb.Activate
  671. Sheets("buffer").Select
  672. Range("P2").Select
  673. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  674. Windows("DSDI905_0616.xls").Activate
  675. Sheets("Лист3").Select
  676. formula3sh
  677. Range("G6:H21").Copy
  678. wb.Activate
  679. Sheets("buffer").Select
  680. Range("P29").Select
  681. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  682. Windows("DSDI905_0616.xls").Activate
  683. ActiveWorkbook.Save
  684. Windows("DSDI905_0616.xls").Close
  685. '==================================================
  686. 7:
  687. On Error GoTo a8
  688. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  689. Windows("DSDI905_0716.xls").Activate
  690. Sheets("Лист2").Select
  691. formula2sh
  692. Range("G6:H32").Copy
  693. wb.Activate
  694. Sheets("buffer").Select
  695. Range("S2").Select
  696. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  697. Windows("DSDI905_0716.xls").Activate
  698. Sheets("Лист3").Select
  699. formula3sh
  700. Range("G6:H21").Copy
  701. wb.Activate
  702. Sheets("buffer").Select
  703. Range("S29").Select
  704. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  705. Windows("DSDI905_0716.xls").Activate
  706. ActiveWorkbook.Save
  707. Windows("DSDI905_0716.xls").Close
  708. '==================================================
  709. a8:
  710. On Error GoTo a9
  711. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  712. Windows("DSDI905_0816.xls").Activate
  713. Sheets("Лист2").Select
  714. formula2sh
  715. Range("G6:H32").Copy
  716. wb.Activate
  717. Sheets("buffer").Select
  718. Range("V2").Select
  719. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  720. Windows("DSDI905_0816.xls").Activate
  721. Sheets("Лист3").Select
  722. formula3sh
  723. Range("G6:H21").Copy
  724. wb.Activate
  725. Sheets("buffer").Select
  726. Range("V29").Select
  727. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  728. Windows("DSDI905_0816.xls").Activate
  729. ActiveWorkbook.Save
  730. Windows("DSDI905_0816.xls").Close
  731. '==================================================
  732. a9:
  733. On Error GoTo a10
  734. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  735. Windows("DSDI905_0916.xls").Activate
  736. Sheets("Лист2").Select
  737. formula2sh
  738. Range("G6:H32").Copy
  739. wb.Activate
  740. Sheets("buffer").Select
  741. Range("Y2").Select
  742. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  743. Windows("DSDI905_0916.xls").Activate
  744. Sheets("Лист3").Select
  745. formula3sh
  746. Range("G6:H21").Copy
  747. wb.Activate
  748. Sheets("buffer").Select
  749. Range("Y29").Select
  750. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  751. Windows("DSDI905_0916.xls").Activate
  752. ActiveWorkbook.Save
  753. Windows("DSDI905_0916.xls").Close
  754. '==================================================
  755. a10:
  756. On Error GoTo a11
  757. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  758. Windows("DSDI905_1016.xls").Activate
  759. Sheets("Лист2").Select
  760. formula2sh
  761. Range("G6:H32").Copy
  762. wb.Activate
  763. Sheets("buffer").Select
  764. Range("AB2").Select
  765. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  766. Windows("DSDI905_1016.xls").Activate
  767. Sheets("Лист3").Select
  768. formula3sh
  769. Range("G6:H21").Copy
  770. wb.Activate
  771. Sheets("buffer").Select
  772. Range("AB29").Select
  773. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  774. Windows("DSDI905_1016.xls").Activate
  775. ActiveWorkbook.Save
  776. Windows("DSDI905_1016.xls").Close
  777. '==================================================
  778. a11:
  779. On Error GoTo a12
  780. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  781. Windows("DSDI905_1116.xls").Activate
  782. Sheets("Лист2").Select
  783. formula2sh
  784. Range("G6:H32").Copy
  785. wb.Activate
  786. Sheets("buffer").Select
  787. Range("AE2").Select
  788. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  789. Windows("DSDI905_1116.xls").Activate
  790. Sheets("Лист3").Select
  791. formula3sh
  792. Range("G6:H21").Copy
  793. wb.Activate
  794. Sheets("buffer").Select
  795. Range("AE29").Select
  796. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  797. Windows("DSDI905_1116.xls").Activate
  798. ActiveWorkbook.Save
  799. Windows("DSDI905_0116.xls").Close
  800. '==================================================
  801. a12:
  802. On Error GoTo a13
  803. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  804. Windows("DSDI905_1216.xls").Activate
  805. Sheets("Лист2").Select
  806. formula2sh
  807. Range("G6:H32").Copy
  808. wb.Activate
  809. Sheets("buffer").Select
  810. Range("AH2").Select
  811. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  812. Windows("DSDI905_1216.xls").Activate
  813. Sheets("Лист3").Select
  814. formula3sh
  815. Range("G6:H21").Copy
  816. wb.Activate
  817. Sheets("buffer").Select
  818. Range("AH29").Select
  819. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  820. Windows("DSDI905_1216.xls").Activate
  821. ActiveWorkbook.Save
  822. Windows("DSDI905_1216.xls").Close
  823. '==================================================On Error GoTo 2
  824. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  825. Windows("DSDI905_0116.xls").Activate
  826. Sheets("Лист2").Select
  827. formula2sh
  828. Range("G6:H32").Copy
  829. wb.Activate
  830. Sheets("buffer").Select
  831. Range("A2").Select
  832. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  833. Windows("DSDI905_0116.xls").Activate
  834. Sheets("Лист3").Select
  835. formula3sh
  836. Range("G6:H21").Copy
  837. wb.Activate
  838. Sheets("buffer").Select
  839. Range("A29").Select
  840. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  841. Windows("DSDI905_0116.xls").Activate
  842. ActiveWorkbook.Save
  843. Windows("DSDI905_0116.xls").Close
  844. '==================================================
  845. 2:
  846. On Error GoTo 3
  847. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  848. Windows("DSDI905_0216.xls").Activate
  849. Sheets("Лист2").Select
  850. formula2sh
  851. Range("G6:H32").Copy
  852. wb.Activate
  853. Sheets("buffer").Select
  854. Range("D2").Select
  855. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  856. Windows("DSDI905_0216.xls").Activate
  857. Sheets("Лист3").Select
  858. formula3sh
  859. Range("G6:H21").Copy
  860. wb.Activate
  861. Sheets("buffer").Select
  862. Range("D29").Select
  863. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  864. Windows("DSDI905_0216.xls").Activate
  865. ActiveWorkbook.Save
  866. Windows("DSDI905_0216.xls").Close
  867. '==================================================
  868. 3:
  869. On Error GoTo 4
  870. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  871. Windows("DSDI905_0316.xls").Activate
  872. Sheets("Лист2").Select
  873. formula2sh
  874. Range("G6:H32").Copy
  875. wb.Activate
  876. Sheets("buffer").Select
  877. Range("G2").Select
  878. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  879. Windows("DSDI905_0316.xls").Activate
  880. Sheets("Лист3").Select
  881. formula3sh
  882. Range("G6:H21").Copy
  883. wb.Activate
  884. Sheets("buffer").Select
  885. Range("G29").Select
  886. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  887. Windows("DSDI905_0316.xls").Activate
  888. ActiveWorkbook.Save
  889. Windows("DSDI905_0316.xls").Close
  890. '==================================================
  891. 4:
  892. On Error GoTo 5
  893. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  894. Windows("DSDI905_0416.xls").Activate
  895. Sheets("Лист2").Select
  896. formula2sh
  897. Range("G6:H32").Copy
  898. wb.Activate
  899. Sheets("buffer").Select
  900. Range("J2").Select
  901. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  902. Windows("DSDI905_0416.xls").Activate
  903. Sheets("Лист3").Select
  904. formula3sh
  905. Range("G6:H21").Copy
  906. wb.Activate
  907. Sheets("buffer").Select
  908. Range("J29").Select
  909. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  910. Windows("DSDI905_0416.xls").Activate
  911. ActiveWorkbook.Save
  912. Windows("DSDI905_0416.xls").Close
  913. '==================================================
  914. 5:
  915. On Error GoTo 6
  916. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  917. Windows("DSDI905_0516.xls").Activate
  918. Sheets("Лист2").Select
  919. formula2sh
  920. Range("G6:H32").Copy
  921. wb.Activate
  922. Sheets("buffer").Select
  923. Range("M2").Select
  924. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  925. Windows("DSDI905_0516.xls").Activate
  926. Sheets("Лист3").Select
  927. formula3sh
  928. Range("G6:H21").Copy
  929. wb.Activate
  930. Sheets("buffer").Select
  931. Range("M29").Select
  932. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  933. Windows("DSDI905_0516.xls").Activate
  934. ActiveWorkbook.Save
  935. Windows("DSDI905_0516.xls").Close
  936. '==================================================
  937. 6:
  938. On Error GoTo 7
  939. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  940. Windows("DSDI905_0616.xls").Activate
  941. Sheets("Лист2").Select
  942. formula2sh
  943. Range("G6:H32").Copy
  944. wb.Activate
  945. Sheets("buffer").Select
  946. Range("P2").Select
  947. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  948. Windows("DSDI905_0616.xls").Activate
  949. Sheets("Лист3").Select
  950. formula3sh
  951. Range("G6:H21").Copy
  952. wb.Activate
  953. Sheets("buffer").Select
  954. Range("P29").Select
  955. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  956. Windows("DSDI905_0616.xls").Activate
  957. ActiveWorkbook.Save
  958. Windows("DSDI905_0616.xls").Close
  959. '==================================================
  960. 7:
  961. On Error GoTo a8
  962. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  963. Windows("DSDI905_0716.xls").Activate
  964. Sheets("Лист2").Select
  965. formula2sh
  966. Range("G6:H32").Copy
  967. wb.Activate
  968. Sheets("buffer").Select
  969. Range("S2").Select
  970. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  971. Windows("DSDI905_0716.xls").Activate
  972. Sheets("Лист3").Select
  973. formula3sh
  974. Range("G6:H21").Copy
  975. wb.Activate
  976. Sheets("buffer").Select
  977. Range("S29").Select
  978. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  979. Windows("DSDI905_0716.xls").Activate
  980. ActiveWorkbook.Save
  981. Windows("DSDI905_0716.xls").Close
  982. '==================================================
  983. a8:
  984. On Error GoTo a9
  985. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  986. Windows("DSDI905_0816.xls").Activate
  987. Sheets("Лист2").Select
  988. formula2sh
  989. Range("G6:H32").Copy
  990. wb.Activate
  991. Sheets("buffer").Select
  992. Range("V2").Select
  993. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  994. Windows("DSDI905_0816.xls").Activate
  995. Sheets("Лист3").Select
  996. formula3sh
  997. Range("G6:H21").Copy
  998. wb.Activate
  999. Sheets("buffer").Select
  1000. Range("V29").Select
  1001. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1002. Windows("DSDI905_0816.xls").Activate
  1003. ActiveWorkbook.Save
  1004. Windows("DSDI905_0816.xls").Close
  1005. '==================================================
  1006. a9:
  1007. On Error GoTo a10
  1008. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  1009. Windows("DSDI905_0916.xls").Activate
  1010. Sheets("Лист2").Select
  1011. formula2sh
  1012. Range("G6:H32").Copy
  1013. wb.Activate
  1014. Sheets("buffer").Select
  1015. Range("Y2").Select
  1016. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1017. Windows("DSDI905_0916.xls").Activate
  1018. Sheets("Лист3").Select
  1019. formula3sh
  1020. Range("G6:H21").Copy
  1021. wb.Activate
  1022. Sheets("buffer").Select
  1023. Range("Y29").Select
  1024. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1025. Windows("DSDI905_0916.xls").Activate
  1026. ActiveWorkbook.Save
  1027. Windows("DSDI905_0916.xls").Close
  1028. '==================================================
  1029. a10:
  1030. On Error GoTo a11
  1031. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  1032. Windows("DSDI905_1016.xls").Activate
  1033. Sheets("Лист2").Select
  1034. formula2sh
  1035. Range("G6:H32").Copy
  1036. wb.Activate
  1037. Sheets("buffer").Select
  1038. Range("AB2").Select
  1039. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1040. Windows("DSDI905_1016.xls").Activate
  1041. Sheets("Лист3").Select
  1042. formula3sh
  1043. Range("G6:H21").Copy
  1044. wb.Activate
  1045. Sheets("buffer").Select
  1046. Range("AB29").Select
  1047. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1048. Windows("DSDI905_1016.xls").Activate
  1049. ActiveWorkbook.Save
  1050. Windows("DSDI905_1016.xls").Close
  1051. '==================================================
  1052. a11:
  1053. On Error GoTo a12
  1054. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  1055. Windows("DSDI905_1116.xls").Activate
  1056. Sheets("Лист2").Select
  1057. formula2sh
  1058. Range("G6:H32").Copy
  1059. wb.Activate
  1060. Sheets("buffer").Select
  1061. Range("AE2").Select
  1062. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1063. Windows("DSDI905_1116.xls").Activate
  1064. Sheets("Лист3").Select
  1065. formula3sh
  1066. Range("G6:H21").Copy
  1067. wb.Activate
  1068. Sheets("buffer").Select
  1069. Range("AE29").Select
  1070. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1071. Windows("DSDI905_1116.xls").Activate
  1072. ActiveWorkbook.Save
  1073. Windows("DSDI905_0116.xls").Close
  1074. '==================================================
  1075. a12:
  1076. On Error GoTo a13
  1077. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  1078. Windows("DSDI905_1216.xls").Activate
  1079. Sheets("Лист2").Select
  1080. formula2sh
  1081. Range("G6:H32").Copy
  1082. wb.Activate
  1083. Sheets("buffer").Select
  1084. Range("AH2").Select
  1085. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1086. Windows("DSDI905_1216.xls").Activate
  1087. Sheets("Лист3").Select
  1088. formula3sh
  1089. Range("G6:H21").Copy
  1090. wb.Activate
  1091. Sheets("buffer").Select
  1092. Range("AH29").Select
  1093. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1094. Windows("DSDI905_1216.xls").Activate
  1095. ActiveWorkbook.Save
  1096. Windows("DSDI905_1216.xls").Close
  1097. '==================================================On Error GoTo 2
  1098. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  1099. Windows("DSDI905_0116.xls").Activate
  1100. Sheets("Лист2").Select
  1101. formula2sh
  1102. Range("G6:H32").Copy
  1103. wb.Activate
  1104. Sheets("buffer").Select
  1105. Range("A2").Select
  1106. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1107. Windows("DSDI905_0116.xls").Activate
  1108. Sheets("Лист3").Select
  1109. formula3sh
  1110. Range("G6:H21").Copy
  1111. wb.Activate
  1112. Sheets("buffer").Select
  1113. Range("A29").Select
  1114. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1115. Windows("DSDI905_0116.xls").Activate
  1116. ActiveWorkbook.Save
  1117. Windows("DSDI905_0116.xls").Close
  1118. '==================================================
  1119. 2:
  1120. On Error GoTo 3
  1121. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  1122. Windows("DSDI905_0216.xls").Activate
  1123. Sheets("Лист2").Select
  1124. formula2sh
  1125. Range("G6:H32").Copy
  1126. wb.Activate
  1127. Sheets("buffer").Select
  1128. Range("D2").Select
  1129. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1130. Windows("DSDI905_0216.xls").Activate
  1131. Sheets("Лист3").Select
  1132. formula3sh
  1133. Range("G6:H21").Copy
  1134. wb.Activate
  1135. Sheets("buffer").Select
  1136. Range("D29").Select
  1137. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1138. Windows("DSDI905_0216.xls").Activate
  1139. ActiveWorkbook.Save
  1140. Windows("DSDI905_0216.xls").Close
  1141. '==================================================
  1142. 3:
  1143. On Error GoTo 4
  1144. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  1145. Windows("DSDI905_0316.xls").Activate
  1146. Sheets("Лист2").Select
  1147. formula2sh
  1148. Range("G6:H32").Copy
  1149. wb.Activate
  1150. Sheets("buffer").Select
  1151. Range("G2").Select
  1152. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1153. Windows("DSDI905_0316.xls").Activate
  1154. Sheets("Лист3").Select
  1155. formula3sh
  1156. Range("G6:H21").Copy
  1157. wb.Activate
  1158. Sheets("buffer").Select
  1159. Range("G29").Select
  1160. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1161. Windows("DSDI905_0316.xls").Activate
  1162. ActiveWorkbook.Save
  1163. Windows("DSDI905_0316.xls").Close
  1164. '==================================================
  1165. 4:
  1166. On Error GoTo 5
  1167. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  1168. Windows("DSDI905_0416.xls").Activate
  1169. Sheets("Лист2").Select
  1170. formula2sh
  1171. Range("G6:H32").Copy
  1172. wb.Activate
  1173. Sheets("buffer").Select
  1174. Range("J2").Select
  1175. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1176. Windows("DSDI905_0416.xls").Activate
  1177. Sheets("Лист3").Select
  1178. formula3sh
  1179. Range("G6:H21").Copy
  1180. wb.Activate
  1181. Sheets("buffer").Select
  1182. Range("J29").Select
  1183. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1184. Windows("DSDI905_0416.xls").Activate
  1185. ActiveWorkbook.Save
  1186. Windows("DSDI905_0416.xls").Close
  1187. '==================================================
  1188. 5:
  1189. On Error GoTo 6
  1190. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  1191. Windows("DSDI905_0516.xls").Activate
  1192. Sheets("Лист2").Select
  1193. formula2sh
  1194. Range("G6:H32").Copy
  1195. wb.Activate
  1196. Sheets("buffer").Select
  1197. Range("M2").Select
  1198. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1199. Windows("DSDI905_0516.xls").Activate
  1200. Sheets("Лист3").Select
  1201. formula3sh
  1202. Range("G6:H21").Copy
  1203. wb.Activate
  1204. Sheets("buffer").Select
  1205. Range("M29").Select
  1206. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1207. Windows("DSDI905_0516.xls").Activate
  1208. ActiveWorkbook.Save
  1209. Windows("DSDI905_0516.xls").Close
  1210. '==================================================
  1211. 6:
  1212. On Error GoTo 7
  1213. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  1214. Windows("DSDI905_0616.xls").Activate
  1215. Sheets("Лист2").Select
  1216. formula2sh
  1217. Range("G6:H32").Copy
  1218. wb.Activate
  1219. Sheets("buffer").Select
  1220. Range("P2").Select
  1221. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1222. Windows("DSDI905_0616.xls").Activate
  1223. Sheets("Лист3").Select
  1224. formula3sh
  1225. Range("G6:H21").Copy
  1226. wb.Activate
  1227. Sheets("buffer").Select
  1228. Range("P29").Select
  1229. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1230. Windows("DSDI905_0616.xls").Activate
  1231. ActiveWorkbook.Save
  1232. Windows("DSDI905_0616.xls").Close
  1233. '==================================================
  1234. 7:
  1235. On Error GoTo a8
  1236. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  1237. Windows("DSDI905_0716.xls").Activate
  1238. Sheets("Лист2").Select
  1239. formula2sh
  1240. Range("G6:H32").Copy
  1241. wb.Activate
  1242. Sheets("buffer").Select
  1243. Range("S2").Select
  1244. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1245. Windows("DSDI905_0716.xls").Activate
  1246. Sheets("Лист3").Select
  1247. formula3sh
  1248. Range("G6:H21").Copy
  1249. wb.Activate
  1250. Sheets("buffer").Select
  1251. Range("S29").Select
  1252. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1253. Windows("DSDI905_0716.xls").Activate
  1254. ActiveWorkbook.Save
  1255. Windows("DSDI905_0716.xls").Close
  1256. '==================================================
  1257. a8:
  1258. On Error GoTo a9
  1259. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  1260. Windows("DSDI905_0816.xls").Activate
  1261. Sheets("Лист2").Select
  1262. formula2sh
  1263. Range("G6:H32").Copy
  1264. wb.Activate
  1265. Sheets("buffer").Select
  1266. Range("V2").Select
  1267. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1268. Windows("DSDI905_0816.xls").Activate
  1269. Sheets("Лист3").Select
  1270. formula3sh
  1271. Range("G6:H21").Copy
  1272. wb.Activate
  1273. Sheets("buffer").Select
  1274. Range("V29").Select
  1275. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1276. Windows("DSDI905_0816.xls").Activate
  1277. ActiveWorkbook.Save
  1278. Windows("DSDI905_0816.xls").Close
  1279. '==================================================
  1280. a9:
  1281. On Error GoTo a10
  1282. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  1283. Windows("DSDI905_0916.xls").Activate
  1284. Sheets("Лист2").Select
  1285. formula2sh
  1286. Range("G6:H32").Copy
  1287. wb.Activate
  1288. Sheets("buffer").Select
  1289. Range("Y2").Select
  1290. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1291. Windows("DSDI905_0916.xls").Activate
  1292. Sheets("Лист3").Select
  1293. formula3sh
  1294. Range("G6:H21").Copy
  1295. wb.Activate
  1296. Sheets("buffer").Select
  1297. Range("Y29").Select
  1298. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1299. Windows("DSDI905_0916.xls").Activate
  1300. ActiveWorkbook.Save
  1301. Windows("DSDI905_0916.xls").Close
  1302. '==================================================
  1303. a10:
  1304. On Error GoTo a11
  1305. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  1306. Windows("DSDI905_1016.xls").Activate
  1307. Sheets("Лист2").Select
  1308. formula2sh
  1309. Range("G6:H32").Copy
  1310. wb.Activate
  1311. Sheets("buffer").Select
  1312. Range("AB2").Select
  1313. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1314. Windows("DSDI905_1016.xls").Activate
  1315. Sheets("Лист3").Select
  1316. formula3sh
  1317. Range("G6:H21").Copy
  1318. wb.Activate
  1319. Sheets("buffer").Select
  1320. Range("AB29").Select
  1321. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1322. Windows("DSDI905_1016.xls").Activate
  1323. ActiveWorkbook.Save
  1324. Windows("DSDI905_1016.xls").Close
  1325. '==================================================
  1326. a11:
  1327. On Error GoTo a12
  1328. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  1329. Windows("DSDI905_1116.xls").Activate
  1330. Sheets("Лист2").Select
  1331. formula2sh
  1332. Range("G6:H32").Copy
  1333. wb.Activate
  1334. Sheets("buffer").Select
  1335. Range("AE2").Select
  1336. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1337. Windows("DSDI905_1116.xls").Activate
  1338. Sheets("Лист3").Select
  1339. formula3sh
  1340. Range("G6:H21").Copy
  1341. wb.Activate
  1342. Sheets("buffer").Select
  1343. Range("AE29").Select
  1344. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1345. Windows("DSDI905_1116.xls").Activate
  1346. ActiveWorkbook.Save
  1347. Windows("DSDI905_0116.xls").Close
  1348. '==================================================
  1349. a12:
  1350. On Error GoTo a13
  1351. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  1352. Windows("DSDI905_1216.xls").Activate
  1353. Sheets("Лист2").Select
  1354. formula2sh
  1355. Range("G6:H32").Copy
  1356. wb.Activate
  1357. Sheets("buffer").Select
  1358. Range("AH2").Select
  1359. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1360. Windows("DSDI905_1216.xls").Activate
  1361. Sheets("Лист3").Select
  1362. formula3sh
  1363. Range("G6:H21").Copy
  1364. wb.Activate
  1365. Sheets("buffer").Select
  1366. Range("AH29").Select
  1367. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1368. Windows("DSDI905_1216.xls").Activate
  1369. ActiveWorkbook.Save
  1370. Windows("DSDI905_1216.xls").Close
  1371. '==================================================On Error GoTo 2
  1372. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  1373. Windows("DSDI905_0116.xls").Activate
  1374. Sheets("Лист2").Select
  1375. formula2sh
  1376. Range("G6:H32").Copy
  1377. wb.Activate
  1378. Sheets("buffer").Select
  1379. Range("A2").Select
  1380. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1381. Windows("DSDI905_0116.xls").Activate
  1382. Sheets("Лист3").Select
  1383. formula3sh
  1384. Range("G6:H21").Copy
  1385. wb.Activate
  1386. Sheets("buffer").Select
  1387. Range("A29").Select
  1388. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1389. Windows("DSDI905_0116.xls").Activate
  1390. ActiveWorkbook.Save
  1391. Windows("DSDI905_0116.xls").Close
  1392. '==================================================
  1393. 2:
  1394. On Error GoTo 3
  1395. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  1396. Windows("DSDI905_0216.xls").Activate
  1397. Sheets("Лист2").Select
  1398. formula2sh
  1399. Range("G6:H32").Copy
  1400. wb.Activate
  1401. Sheets("buffer").Select
  1402. Range("D2").Select
  1403. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1404. Windows("DSDI905_0216.xls").Activate
  1405. Sheets("Лист3").Select
  1406. formula3sh
  1407. Range("G6:H21").Copy
  1408. wb.Activate
  1409. Sheets("buffer").Select
  1410. Range("D29").Select
  1411. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1412. Windows("DSDI905_0216.xls").Activate
  1413. ActiveWorkbook.Save
  1414. Windows("DSDI905_0216.xls").Close
  1415. '==================================================
  1416. 3:
  1417. On Error GoTo 4
  1418. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  1419. Windows("DSDI905_0316.xls").Activate
  1420. Sheets("Лист2").Select
  1421. formula2sh
  1422. Range("G6:H32").Copy
  1423. wb.Activate
  1424. Sheets("buffer").Select
  1425. Range("G2").Select
  1426. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1427. Windows("DSDI905_0316.xls").Activate
  1428. Sheets("Лист3").Select
  1429. formula3sh
  1430. Range("G6:H21").Copy
  1431. wb.Activate
  1432. Sheets("buffer").Select
  1433. Range("G29").Select
  1434. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1435. Windows("DSDI905_0316.xls").Activate
  1436. ActiveWorkbook.Save
  1437. Windows("DSDI905_0316.xls").Close
  1438. '==================================================
  1439. 4:
  1440. On Error GoTo 5
  1441. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  1442. Windows("DSDI905_0416.xls").Activate
  1443. Sheets("Лист2").Select
  1444. formula2sh
  1445. Range("G6:H32").Copy
  1446. wb.Activate
  1447. Sheets("buffer").Select
  1448. Range("J2").Select
  1449. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1450. Windows("DSDI905_0416.xls").Activate
  1451. Sheets("Лист3").Select
  1452. formula3sh
  1453. Range("G6:H21").Copy
  1454. wb.Activate
  1455. Sheets("buffer").Select
  1456. Range("J29").Select
  1457. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1458. Windows("DSDI905_0416.xls").Activate
  1459. ActiveWorkbook.Save
  1460. Windows("DSDI905_0416.xls").Close
  1461. '==================================================
  1462. 5:
  1463. On Error GoTo 6
  1464. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  1465. Windows("DSDI905_0516.xls").Activate
  1466. Sheets("Лист2").Select
  1467. formula2sh
  1468. Range("G6:H32").Copy
  1469. wb.Activate
  1470. Sheets("buffer").Select
  1471. Range("M2").Select
  1472. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1473. Windows("DSDI905_0516.xls").Activate
  1474. Sheets("Лист3").Select
  1475. formula3sh
  1476. Range("G6:H21").Copy
  1477. wb.Activate
  1478. Sheets("buffer").Select
  1479. Range("M29").Select
  1480. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1481. Windows("DSDI905_0516.xls").Activate
  1482. ActiveWorkbook.Save
  1483. Windows("DSDI905_0516.xls").Close
  1484. '==================================================
  1485. 6:
  1486. On Error GoTo 7
  1487. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  1488. Windows("DSDI905_0616.xls").Activate
  1489. Sheets("Лист2").Select
  1490. formula2sh
  1491. Range("G6:H32").Copy
  1492. wb.Activate
  1493. Sheets("buffer").Select
  1494. Range("P2").Select
  1495. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1496. Windows("DSDI905_0616.xls").Activate
  1497. Sheets("Лист3").Select
  1498. formula3sh
  1499. Range("G6:H21").Copy
  1500. wb.Activate
  1501. Sheets("buffer").Select
  1502. Range("P29").Select
  1503. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1504. Windows("DSDI905_0616.xls").Activate
  1505. ActiveWorkbook.Save
  1506. Windows("DSDI905_0616.xls").Close
  1507. '==================================================
  1508. 7:
  1509. On Error GoTo a8
  1510. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  1511. Windows("DSDI905_0716.xls").Activate
  1512. Sheets("Лист2").Select
  1513. formula2sh
  1514. Range("G6:H32").Copy
  1515. wb.Activate
  1516. Sheets("buffer").Select
  1517. Range("S2").Select
  1518. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1519. Windows("DSDI905_0716.xls").Activate
  1520. Sheets("Лист3").Select
  1521. formula3sh
  1522. Range("G6:H21").Copy
  1523. wb.Activate
  1524. Sheets("buffer").Select
  1525. Range("S29").Select
  1526. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1527. Windows("DSDI905_0716.xls").Activate
  1528. ActiveWorkbook.Save
  1529. Windows("DSDI905_0716.xls").Close
  1530. '==================================================
  1531. a8:
  1532. On Error GoTo a9
  1533. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  1534. Windows("DSDI905_0816.xls").Activate
  1535. Sheets("Лист2").Select
  1536. formula2sh
  1537. Range("G6:H32").Copy
  1538. wb.Activate
  1539. Sheets("buffer").Select
  1540. Range("V2").Select
  1541. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1542. Windows("DSDI905_0816.xls").Activate
  1543. Sheets("Лист3").Select
  1544. formula3sh
  1545. Range("G6:H21").Copy
  1546. wb.Activate
  1547. Sheets("buffer").Select
  1548. Range("V29").Select
  1549. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1550. Windows("DSDI905_0816.xls").Activate
  1551. ActiveWorkbook.Save
  1552. Windows("DSDI905_0816.xls").Close
  1553. '==================================================
  1554. a9:
  1555. On Error GoTo a10
  1556. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  1557. Windows("DSDI905_0916.xls").Activate
  1558. Sheets("Лист2").Select
  1559. formula2sh
  1560. Range("G6:H32").Copy
  1561. wb.Activate
  1562. Sheets("buffer").Select
  1563. Range("Y2").Select
  1564. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1565. Windows("DSDI905_0916.xls").Activate
  1566. Sheets("Лист3").Select
  1567. formula3sh
  1568. Range("G6:H21").Copy
  1569. wb.Activate
  1570. Sheets("buffer").Select
  1571. Range("Y29").Select
  1572. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1573. Windows("DSDI905_0916.xls").Activate
  1574. ActiveWorkbook.Save
  1575. Windows("DSDI905_0916.xls").Close
  1576. '==================================================
  1577. a10:
  1578. On Error GoTo a11
  1579. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  1580. Windows("DSDI905_1016.xls").Activate
  1581. Sheets("Лист2").Select
  1582. formula2sh
  1583. Range("G6:H32").Copy
  1584. wb.Activate
  1585. Sheets("buffer").Select
  1586. Range("AB2").Select
  1587. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1588. Windows("DSDI905_1016.xls").Activate
  1589. Sheets("Лист3").Select
  1590. formula3sh
  1591. Range("G6:H21").Copy
  1592. wb.Activate
  1593. Sheets("buffer").Select
  1594. Range("AB29").Select
  1595. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1596. Windows("DSDI905_1016.xls").Activate
  1597. ActiveWorkbook.Save
  1598. Windows("DSDI905_1016.xls").Close
  1599. '==================================================
  1600. a11:
  1601. On Error GoTo a12
  1602. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  1603. Windows("DSDI905_1116.xls").Activate
  1604. Sheets("Лист2").Select
  1605. formula2sh
  1606. Range("G6:H32").Copy
  1607. wb.Activate
  1608. Sheets("buffer").Select
  1609. Range("AE2").Select
  1610. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1611. Windows("DSDI905_1116.xls").Activate
  1612. Sheets("Лист3").Select
  1613. formula3sh
  1614. Range("G6:H21").Copy
  1615. wb.Activate
  1616. Sheets("buffer").Select
  1617. Range("AE29").Select
  1618. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1619. Windows("DSDI905_1116.xls").Activate
  1620. ActiveWorkbook.Save
  1621. Windows("DSDI905_0116.xls").Close
  1622. '==================================================
  1623. a12:
  1624. On Error GoTo a13
  1625. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  1626. Windows("DSDI905_1216.xls").Activate
  1627. Sheets("Лист2").Select
  1628. formula2sh
  1629. Range("G6:H32").Copy
  1630. wb.Activate
  1631. Sheets("buffer").Select
  1632. Range("AH2").Select
  1633. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1634. Windows("DSDI905_1216.xls").Activate
  1635. Sheets("Лист3").Select
  1636. formula3sh
  1637. Range("G6:H21").Copy
  1638. wb.Activate
  1639. Sheets("buffer").Select
  1640. Range("AH29").Select
  1641. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1642. Windows("DSDI905_1216.xls").Activate
  1643. ActiveWorkbook.Save
  1644. Windows("DSDI905_1216.xls").Close
  1645. '==================================================On Error GoTo 2
  1646. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  1647. Windows("DSDI905_0116.xls").Activate
  1648. Sheets("Лист2").Select
  1649. formula2sh
  1650. Range("G6:H32").Copy
  1651. wb.Activate
  1652. Sheets("buffer").Select
  1653. Range("A2").Select
  1654. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1655. Windows("DSDI905_0116.xls").Activate
  1656. Sheets("Лист3").Select
  1657. formula3sh
  1658. Range("G6:H21").Copy
  1659. wb.Activate
  1660. Sheets("buffer").Select
  1661. Range("A29").Select
  1662. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1663. Windows("DSDI905_0116.xls").Activate
  1664. ActiveWorkbook.Save
  1665. Windows("DSDI905_0116.xls").Close
  1666. '==================================================
  1667. 2:
  1668. On Error GoTo 3
  1669. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  1670. Windows("DSDI905_0216.xls").Activate
  1671. Sheets("Лист2").Select
  1672. formula2sh
  1673. Range("G6:H32").Copy
  1674. wb.Activate
  1675. Sheets("buffer").Select
  1676. Range("D2").Select
  1677. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1678. Windows("DSDI905_0216.xls").Activate
  1679. Sheets("Лист3").Select
  1680. formula3sh
  1681. Range("G6:H21").Copy
  1682. wb.Activate
  1683. Sheets("buffer").Select
  1684. Range("D29").Select
  1685. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1686. Windows("DSDI905_0216.xls").Activate
  1687. ActiveWorkbook.Save
  1688. Windows("DSDI905_0216.xls").Close
  1689. '==================================================
  1690. 3:
  1691. On Error GoTo 4
  1692. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  1693. Windows("DSDI905_0316.xls").Activate
  1694. Sheets("Лист2").Select
  1695. formula2sh
  1696. Range("G6:H32").Copy
  1697. wb.Activate
  1698. Sheets("buffer").Select
  1699. Range("G2").Select
  1700. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1701. Windows("DSDI905_0316.xls").Activate
  1702. Sheets("Лист3").Select
  1703. formula3sh
  1704. Range("G6:H21").Copy
  1705. wb.Activate
  1706. Sheets("buffer").Select
  1707. Range("G29").Select
  1708. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1709. Windows("DSDI905_0316.xls").Activate
  1710. ActiveWorkbook.Save
  1711. Windows("DSDI905_0316.xls").Close
  1712. '==================================================
  1713. 4:
  1714. On Error GoTo 5
  1715. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  1716. Windows("DSDI905_0416.xls").Activate
  1717. Sheets("Лист2").Select
  1718. formula2sh
  1719. Range("G6:H32").Copy
  1720. wb.Activate
  1721. Sheets("buffer").Select
  1722. Range("J2").Select
  1723. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1724. Windows("DSDI905_0416.xls").Activate
  1725. Sheets("Лист3").Select
  1726. formula3sh
  1727. Range("G6:H21").Copy
  1728. wb.Activate
  1729. Sheets("buffer").Select
  1730. Range("J29").Select
  1731. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1732. Windows("DSDI905_0416.xls").Activate
  1733. ActiveWorkbook.Save
  1734. Windows("DSDI905_0416.xls").Close
  1735. '==================================================
  1736. 5:
  1737. On Error GoTo 6
  1738. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  1739. Windows("DSDI905_0516.xls").Activate
  1740. Sheets("Лист2").Select
  1741. formula2sh
  1742. Range("G6:H32").Copy
  1743. wb.Activate
  1744. Sheets("buffer").Select
  1745. Range("M2").Select
  1746. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1747. Windows("DSDI905_0516.xls").Activate
  1748. Sheets("Лист3").Select
  1749. formula3sh
  1750. Range("G6:H21").Copy
  1751. wb.Activate
  1752. Sheets("buffer").Select
  1753. Range("M29").Select
  1754. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1755. Windows("DSDI905_0516.xls").Activate
  1756. ActiveWorkbook.Save
  1757. Windows("DSDI905_0516.xls").Close
  1758. '==================================================
  1759. 6:
  1760. On Error GoTo 7
  1761. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  1762. Windows("DSDI905_0616.xls").Activate
  1763. Sheets("Лист2").Select
  1764. formula2sh
  1765. Range("G6:H32").Copy
  1766. wb.Activate
  1767. Sheets("buffer").Select
  1768. Range("P2").Select
  1769. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1770. Windows("DSDI905_0616.xls").Activate
  1771. Sheets("Лист3").Select
  1772. formula3sh
  1773. Range("G6:H21").Copy
  1774. wb.Activate
  1775. Sheets("buffer").Select
  1776. Range("P29").Select
  1777. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1778. Windows("DSDI905_0616.xls").Activate
  1779. ActiveWorkbook.Save
  1780. Windows("DSDI905_0616.xls").Close
  1781. '==================================================
  1782. 7:
  1783. On Error GoTo a8
  1784. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  1785. Windows("DSDI905_0716.xls").Activate
  1786. Sheets("Лист2").Select
  1787. formula2sh
  1788. Range("G6:H32").Copy
  1789. wb.Activate
  1790. Sheets("buffer").Select
  1791. Range("S2").Select
  1792. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1793. Windows("DSDI905_0716.xls").Activate
  1794. Sheets("Лист3").Select
  1795. formula3sh
  1796. Range("G6:H21").Copy
  1797. wb.Activate
  1798. Sheets("buffer").Select
  1799. Range("S29").Select
  1800. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1801. Windows("DSDI905_0716.xls").Activate
  1802. ActiveWorkbook.Save
  1803. Windows("DSDI905_0716.xls").Close
  1804. '==================================================
  1805. a8:
  1806. On Error GoTo a9
  1807. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  1808. Windows("DSDI905_0816.xls").Activate
  1809. Sheets("Лист2").Select
  1810. formula2sh
  1811. Range("G6:H32").Copy
  1812. wb.Activate
  1813. Sheets("buffer").Select
  1814. Range("V2").Select
  1815. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1816. Windows("DSDI905_0816.xls").Activate
  1817. Sheets("Лист3").Select
  1818. formula3sh
  1819. Range("G6:H21").Copy
  1820. wb.Activate
  1821. Sheets("buffer").Select
  1822. Range("V29").Select
  1823. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1824. Windows("DSDI905_0816.xls").Activate
  1825. ActiveWorkbook.Save
  1826. Windows("DSDI905_0816.xls").Close
  1827. '==================================================
  1828. a9:
  1829. On Error GoTo a10
  1830. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  1831. Windows("DSDI905_0916.xls").Activate
  1832. Sheets("Лист2").Select
  1833. formula2sh
  1834. Range("G6:H32").Copy
  1835. wb.Activate
  1836. Sheets("buffer").Select
  1837. Range("Y2").Select
  1838. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1839. Windows("DSDI905_0916.xls").Activate
  1840. Sheets("Лист3").Select
  1841. formula3sh
  1842. Range("G6:H21").Copy
  1843. wb.Activate
  1844. Sheets("buffer").Select
  1845. Range("Y29").Select
  1846. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1847. Windows("DSDI905_0916.xls").Activate
  1848. ActiveWorkbook.Save
  1849. Windows("DSDI905_0916.xls").Close
  1850. '==================================================
  1851. a10:
  1852. On Error GoTo a11
  1853. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  1854. Windows("DSDI905_1016.xls").Activate
  1855. Sheets("Лист2").Select
  1856. formula2sh
  1857. Range("G6:H32").Copy
  1858. wb.Activate
  1859. Sheets("buffer").Select
  1860. Range("AB2").Select
  1861. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1862. Windows("DSDI905_1016.xls").Activate
  1863. Sheets("Лист3").Select
  1864. formula3sh
  1865. Range("G6:H21").Copy
  1866. wb.Activate
  1867. Sheets("buffer").Select
  1868. Range("AB29").Select
  1869. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1870. Windows("DSDI905_1016.xls").Activate
  1871. ActiveWorkbook.Save
  1872. Windows("DSDI905_1016.xls").Close
  1873. '==================================================
  1874. a11:
  1875. On Error GoTo a12
  1876. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  1877. Windows("DSDI905_1116.xls").Activate
  1878. Sheets("Лист2").Select
  1879. formula2sh
  1880. Range("G6:H32").Copy
  1881. wb.Activate
  1882. Sheets("buffer").Select
  1883. Range("AE2").Select
  1884. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1885. Windows("DSDI905_1116.xls").Activate
  1886. Sheets("Лист3").Select
  1887. formula3sh
  1888. Range("G6:H21").Copy
  1889. wb.Activate
  1890. Sheets("buffer").Select
  1891. Range("AE29").Select
  1892. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1893. Windows("DSDI905_1116.xls").Activate
  1894. ActiveWorkbook.Save
  1895. Windows("DSDI905_0116.xls").Close
  1896. '==================================================
  1897. a12:
  1898. On Error GoTo a13
  1899. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  1900. Windows("DSDI905_1216.xls").Activate
  1901. Sheets("Лист2").Select
  1902. formula2sh
  1903. Range("G6:H32").Copy
  1904. wb.Activate
  1905. Sheets("buffer").Select
  1906. Range("AH2").Select
  1907. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1908. Windows("DSDI905_1216.xls").Activate
  1909. Sheets("Лист3").Select
  1910. formula3sh
  1911. Range("G6:H21").Copy
  1912. wb.Activate
  1913. Sheets("buffer").Select
  1914. Range("AH29").Select
  1915. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1916. Windows("DSDI905_1216.xls").Activate
  1917. ActiveWorkbook.Save
  1918. Windows("DSDI905_1216.xls").Close
  1919. '==================================================On Error GoTo 2
  1920. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  1921. Windows("DSDI905_0116.xls").Activate
  1922. Sheets("Лист2").Select
  1923. formula2sh
  1924. Range("G6:H32").Copy
  1925. wb.Activate
  1926. Sheets("buffer").Select
  1927. Range("A2").Select
  1928. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1929. Windows("DSDI905_0116.xls").Activate
  1930. Sheets("Лист3").Select
  1931. formula3sh
  1932. Range("G6:H21").Copy
  1933. wb.Activate
  1934. Sheets("buffer").Select
  1935. Range("A29").Select
  1936. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1937. Windows("DSDI905_0116.xls").Activate
  1938. ActiveWorkbook.Save
  1939. Windows("DSDI905_0116.xls").Close
  1940. '==================================================
  1941. 2:
  1942. On Error GoTo 3
  1943. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  1944. Windows("DSDI905_0216.xls").Activate
  1945. Sheets("Лист2").Select
  1946. formula2sh
  1947. Range("G6:H32").Copy
  1948. wb.Activate
  1949. Sheets("buffer").Select
  1950. Range("D2").Select
  1951. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1952. Windows("DSDI905_0216.xls").Activate
  1953. Sheets("Лист3").Select
  1954. formula3sh
  1955. Range("G6:H21").Copy
  1956. wb.Activate
  1957. Sheets("buffer").Select
  1958. Range("D29").Select
  1959. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1960. Windows("DSDI905_0216.xls").Activate
  1961. ActiveWorkbook.Save
  1962. Windows("DSDI905_0216.xls").Close
  1963. '==================================================
  1964. 3:
  1965. On Error GoTo 4
  1966. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  1967. Windows("DSDI905_0316.xls").Activate
  1968. Sheets("Лист2").Select
  1969. formula2sh
  1970. Range("G6:H32").Copy
  1971. wb.Activate
  1972. Sheets("buffer").Select
  1973. Range("G2").Select
  1974. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1975. Windows("DSDI905_0316.xls").Activate
  1976. Sheets("Лист3").Select
  1977. formula3sh
  1978. Range("G6:H21").Copy
  1979. wb.Activate
  1980. Sheets("buffer").Select
  1981. Range("G29").Select
  1982. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1983. Windows("DSDI905_0316.xls").Activate
  1984. ActiveWorkbook.Save
  1985. Windows("DSDI905_0316.xls").Close
  1986. '==================================================
  1987. 4:
  1988. On Error GoTo 5
  1989. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  1990. Windows("DSDI905_0416.xls").Activate
  1991. Sheets("Лист2").Select
  1992. formula2sh
  1993. Range("G6:H32").Copy
  1994. wb.Activate
  1995. Sheets("buffer").Select
  1996. Range("J2").Select
  1997. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  1998. Windows("DSDI905_0416.xls").Activate
  1999. Sheets("Лист3").Select
  2000. formula3sh
  2001. Range("G6:H21").Copy
  2002. wb.Activate
  2003. Sheets("buffer").Select
  2004. Range("J29").Select
  2005. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2006. Windows("DSDI905_0416.xls").Activate
  2007. ActiveWorkbook.Save
  2008. Windows("DSDI905_0416.xls").Close
  2009. '==================================================
  2010. 5:
  2011. On Error GoTo 6
  2012. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  2013. Windows("DSDI905_0516.xls").Activate
  2014. Sheets("Лист2").Select
  2015. formula2sh
  2016. Range("G6:H32").Copy
  2017. wb.Activate
  2018. Sheets("buffer").Select
  2019. Range("M2").Select
  2020. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2021. Windows("DSDI905_0516.xls").Activate
  2022. Sheets("Лист3").Select
  2023. formula3sh
  2024. Range("G6:H21").Copy
  2025. wb.Activate
  2026. Sheets("buffer").Select
  2027. Range("M29").Select
  2028. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2029. Windows("DSDI905_0516.xls").Activate
  2030. ActiveWorkbook.Save
  2031. Windows("DSDI905_0516.xls").Close
  2032. '==================================================
  2033. 6:
  2034. On Error GoTo 7
  2035. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  2036. Windows("DSDI905_0616.xls").Activate
  2037. Sheets("Лист2").Select
  2038. formula2sh
  2039. Range("G6:H32").Copy
  2040. wb.Activate
  2041. Sheets("buffer").Select
  2042. Range("P2").Select
  2043. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2044. Windows("DSDI905_0616.xls").Activate
  2045. Sheets("Лист3").Select
  2046. formula3sh
  2047. Range("G6:H21").Copy
  2048. wb.Activate
  2049. Sheets("buffer").Select
  2050. Range("P29").Select
  2051. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2052. Windows("DSDI905_0616.xls").Activate
  2053. ActiveWorkbook.Save
  2054. Windows("DSDI905_0616.xls").Close
  2055. '==================================================
  2056. 7:
  2057. On Error GoTo a8
  2058. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  2059. Windows("DSDI905_0716.xls").Activate
  2060. Sheets("Лист2").Select
  2061. formula2sh
  2062. Range("G6:H32").Copy
  2063. wb.Activate
  2064. Sheets("buffer").Select
  2065. Range("S2").Select
  2066. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2067. Windows("DSDI905_0716.xls").Activate
  2068. Sheets("Лист3").Select
  2069. formula3sh
  2070. Range("G6:H21").Copy
  2071. wb.Activate
  2072. Sheets("buffer").Select
  2073. Range("S29").Select
  2074. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2075. Windows("DSDI905_0716.xls").Activate
  2076. ActiveWorkbook.Save
  2077. Windows("DSDI905_0716.xls").Close
  2078. '==================================================
  2079. a8:
  2080. On Error GoTo a9
  2081. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  2082. Windows("DSDI905_0816.xls").Activate
  2083. Sheets("Лист2").Select
  2084. formula2sh
  2085. Range("G6:H32").Copy
  2086. wb.Activate
  2087. Sheets("buffer").Select
  2088. Range("V2").Select
  2089. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2090. Windows("DSDI905_0816.xls").Activate
  2091. Sheets("Лист3").Select
  2092. formula3sh
  2093. Range("G6:H21").Copy
  2094. wb.Activate
  2095. Sheets("buffer").Select
  2096. Range("V29").Select
  2097. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2098. Windows("DSDI905_0816.xls").Activate
  2099. ActiveWorkbook.Save
  2100. Windows("DSDI905_0816.xls").Close
  2101. '==================================================
  2102. a9:
  2103. On Error GoTo a10
  2104. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  2105. Windows("DSDI905_0916.xls").Activate
  2106. Sheets("Лист2").Select
  2107. formula2sh
  2108. Range("G6:H32").Copy
  2109. wb.Activate
  2110. Sheets("buffer").Select
  2111. Range("Y2").Select
  2112. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2113. Windows("DSDI905_0916.xls").Activate
  2114. Sheets("Лист3").Select
  2115. formula3sh
  2116. Range("G6:H21").Copy
  2117. wb.Activate
  2118. Sheets("buffer").Select
  2119. Range("Y29").Select
  2120. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2121. Windows("DSDI905_0916.xls").Activate
  2122. ActiveWorkbook.Save
  2123. Windows("DSDI905_0916.xls").Close
  2124. '==================================================
  2125. a10:
  2126. On Error GoTo a11
  2127. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  2128. Windows("DSDI905_1016.xls").Activate
  2129. Sheets("Лист2").Select
  2130. formula2sh
  2131. Range("G6:H32").Copy
  2132. wb.Activate
  2133. Sheets("buffer").Select
  2134. Range("AB2").Select
  2135. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2136. Windows("DSDI905_1016.xls").Activate
  2137. Sheets("Лист3").Select
  2138. formula3sh
  2139. Range("G6:H21").Copy
  2140. wb.Activate
  2141. Sheets("buffer").Select
  2142. Range("AB29").Select
  2143. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2144. Windows("DSDI905_1016.xls").Activate
  2145. ActiveWorkbook.Save
  2146. Windows("DSDI905_1016.xls").Close
  2147. '==================================================
  2148. a11:
  2149. On Error GoTo a12
  2150. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  2151. Windows("DSDI905_1116.xls").Activate
  2152. Sheets("Лист2").Select
  2153. formula2sh
  2154. Range("G6:H32").Copy
  2155. wb.Activate
  2156. Sheets("buffer").Select
  2157. Range("AE2").Select
  2158. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2159. Windows("DSDI905_1116.xls").Activate
  2160. Sheets("Лист3").Select
  2161. formula3sh
  2162. Range("G6:H21").Copy
  2163. wb.Activate
  2164. Sheets("buffer").Select
  2165. Range("AE29").Select
  2166. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2167. Windows("DSDI905_1116.xls").Activate
  2168. ActiveWorkbook.Save
  2169. Windows("DSDI905_0116.xls").Close
  2170. '==================================================
  2171. a12:
  2172. On Error GoTo a13
  2173. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  2174. Windows("DSDI905_1216.xls").Activate
  2175. Sheets("Лист2").Select
  2176. formula2sh
  2177. Range("G6:H32").Copy
  2178. wb.Activate
  2179. Sheets("buffer").Select
  2180. Range("AH2").Select
  2181. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2182. Windows("DSDI905_1216.xls").Activate
  2183. Sheets("Лист3").Select
  2184. formula3sh
  2185. Range("G6:H21").Copy
  2186. wb.Activate
  2187. Sheets("buffer").Select
  2188. Range("AH29").Select
  2189. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2190. Windows("DSDI905_1216.xls").Activate
  2191. ActiveWorkbook.Save
  2192. Windows("DSDI905_1216.xls").Close
  2193. '==================================================On Error GoTo 2
  2194. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  2195. Windows("DSDI905_0116.xls").Activate
  2196. Sheets("Лист2").Select
  2197. formula2sh
  2198. Range("G6:H32").Copy
  2199. wb.Activate
  2200. Sheets("buffer").Select
  2201. Range("A2").Select
  2202. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2203. Windows("DSDI905_0116.xls").Activate
  2204. Sheets("Лист3").Select
  2205. formula3sh
  2206. Range("G6:H21").Copy
  2207. wb.Activate
  2208. Sheets("buffer").Select
  2209. Range("A29").Select
  2210. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2211. Windows("DSDI905_0116.xls").Activate
  2212. ActiveWorkbook.Save
  2213. Windows("DSDI905_0116.xls").Close
  2214. '==================================================
  2215. 2:
  2216. On Error GoTo 3
  2217. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  2218. Windows("DSDI905_0216.xls").Activate
  2219. Sheets("Лист2").Select
  2220. formula2sh
  2221. Range("G6:H32").Copy
  2222. wb.Activate
  2223. Sheets("buffer").Select
  2224. Range("D2").Select
  2225. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2226. Windows("DSDI905_0216.xls").Activate
  2227. Sheets("Лист3").Select
  2228. formula3sh
  2229. Range("G6:H21").Copy
  2230. wb.Activate
  2231. Sheets("buffer").Select
  2232. Range("D29").Select
  2233. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2234. Windows("DSDI905_0216.xls").Activate
  2235. ActiveWorkbook.Save
  2236. Windows("DSDI905_0216.xls").Close
  2237. '==================================================
  2238. 3:
  2239. On Error GoTo 4
  2240. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  2241. Windows("DSDI905_0316.xls").Activate
  2242. Sheets("Лист2").Select
  2243. formula2sh
  2244. Range("G6:H32").Copy
  2245. wb.Activate
  2246. Sheets("buffer").Select
  2247. Range("G2").Select
  2248. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2249. Windows("DSDI905_0316.xls").Activate
  2250. Sheets("Лист3").Select
  2251. formula3sh
  2252. Range("G6:H21").Copy
  2253. wb.Activate
  2254. Sheets("buffer").Select
  2255. Range("G29").Select
  2256. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2257. Windows("DSDI905_0316.xls").Activate
  2258. ActiveWorkbook.Save
  2259. Windows("DSDI905_0316.xls").Close
  2260. '==================================================
  2261. 4:
  2262. On Error GoTo 5
  2263. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  2264. Windows("DSDI905_0416.xls").Activate
  2265. Sheets("Лист2").Select
  2266. formula2sh
  2267. Range("G6:H32").Copy
  2268. wb.Activate
  2269. Sheets("buffer").Select
  2270. Range("J2").Select
  2271. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2272. Windows("DSDI905_0416.xls").Activate
  2273. Sheets("Лист3").Select
  2274. formula3sh
  2275. Range("G6:H21").Copy
  2276. wb.Activate
  2277. Sheets("buffer").Select
  2278. Range("J29").Select
  2279. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2280. Windows("DSDI905_0416.xls").Activate
  2281. ActiveWorkbook.Save
  2282. Windows("DSDI905_0416.xls").Close
  2283. '==================================================
  2284. 5:
  2285. On Error GoTo 6
  2286. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  2287. Windows("DSDI905_0516.xls").Activate
  2288. Sheets("Лист2").Select
  2289. formula2sh
  2290. Range("G6:H32").Copy
  2291. wb.Activate
  2292. Sheets("buffer").Select
  2293. Range("M2").Select
  2294. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2295. Windows("DSDI905_0516.xls").Activate
  2296. Sheets("Лист3").Select
  2297. formula3sh
  2298. Range("G6:H21").Copy
  2299. wb.Activate
  2300. Sheets("buffer").Select
  2301. Range("M29").Select
  2302. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2303. Windows("DSDI905_0516.xls").Activate
  2304. ActiveWorkbook.Save
  2305. Windows("DSDI905_0516.xls").Close
  2306. '==================================================
  2307. 6:
  2308. On Error GoTo 7
  2309. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  2310. Windows("DSDI905_0616.xls").Activate
  2311. Sheets("Лист2").Select
  2312. formula2sh
  2313. Range("G6:H32").Copy
  2314. wb.Activate
  2315. Sheets("buffer").Select
  2316. Range("P2").Select
  2317. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2318. Windows("DSDI905_0616.xls").Activate
  2319. Sheets("Лист3").Select
  2320. formula3sh
  2321. Range("G6:H21").Copy
  2322. wb.Activate
  2323. Sheets("buffer").Select
  2324. Range("P29").Select
  2325. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2326. Windows("DSDI905_0616.xls").Activate
  2327. ActiveWorkbook.Save
  2328. Windows("DSDI905_0616.xls").Close
  2329. '==================================================
  2330. 7:
  2331. On Error GoTo a8
  2332. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  2333. Windows("DSDI905_0716.xls").Activate
  2334. Sheets("Лист2").Select
  2335. formula2sh
  2336. Range("G6:H32").Copy
  2337. wb.Activate
  2338. Sheets("buffer").Select
  2339. Range("S2").Select
  2340. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2341. Windows("DSDI905_0716.xls").Activate
  2342. Sheets("Лист3").Select
  2343. formula3sh
  2344. Range("G6:H21").Copy
  2345. wb.Activate
  2346. Sheets("buffer").Select
  2347. Range("S29").Select
  2348. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2349. Windows("DSDI905_0716.xls").Activate
  2350. ActiveWorkbook.Save
  2351. Windows("DSDI905_0716.xls").Close
  2352. '==================================================
  2353. a8:
  2354. On Error GoTo a9
  2355. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  2356. Windows("DSDI905_0816.xls").Activate
  2357. Sheets("Лист2").Select
  2358. formula2sh
  2359. Range("G6:H32").Copy
  2360. wb.Activate
  2361. Sheets("buffer").Select
  2362. Range("V2").Select
  2363. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2364. Windows("DSDI905_0816.xls").Activate
  2365. Sheets("Лист3").Select
  2366. formula3sh
  2367. Range("G6:H21").Copy
  2368. wb.Activate
  2369. Sheets("buffer").Select
  2370. Range("V29").Select
  2371. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2372. Windows("DSDI905_0816.xls").Activate
  2373. ActiveWorkbook.Save
  2374. Windows("DSDI905_0816.xls").Close
  2375. '==================================================
  2376. a9:
  2377. On Error GoTo a10
  2378. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  2379. Windows("DSDI905_0916.xls").Activate
  2380. Sheets("Лист2").Select
  2381. formula2sh
  2382. Range("G6:H32").Copy
  2383. wb.Activate
  2384. Sheets("buffer").Select
  2385. Range("Y2").Select
  2386. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2387. Windows("DSDI905_0916.xls").Activate
  2388. Sheets("Лист3").Select
  2389. formula3sh
  2390. Range("G6:H21").Copy
  2391. wb.Activate
  2392. Sheets("buffer").Select
  2393. Range("Y29").Select
  2394. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2395. Windows("DSDI905_0916.xls").Activate
  2396. ActiveWorkbook.Save
  2397. Windows("DSDI905_0916.xls").Close
  2398. '==================================================
  2399. a10:
  2400. On Error GoTo a11
  2401. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  2402. Windows("DSDI905_1016.xls").Activate
  2403. Sheets("Лист2").Select
  2404. formula2sh
  2405. Range("G6:H32").Copy
  2406. wb.Activate
  2407. Sheets("buffer").Select
  2408. Range("AB2").Select
  2409. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2410. Windows("DSDI905_1016.xls").Activate
  2411. Sheets("Лист3").Select
  2412. formula3sh
  2413. Range("G6:H21").Copy
  2414. wb.Activate
  2415. Sheets("buffer").Select
  2416. Range("AB29").Select
  2417. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2418. Windows("DSDI905_1016.xls").Activate
  2419. ActiveWorkbook.Save
  2420. Windows("DSDI905_1016.xls").Close
  2421. '==================================================
  2422. a11:
  2423. On Error GoTo a12
  2424. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  2425. Windows("DSDI905_1116.xls").Activate
  2426. Sheets("Лист2").Select
  2427. formula2sh
  2428. Range("G6:H32").Copy
  2429. wb.Activate
  2430. Sheets("buffer").Select
  2431. Range("AE2").Select
  2432. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2433. Windows("DSDI905_1116.xls").Activate
  2434. Sheets("Лист3").Select
  2435. formula3sh
  2436. Range("G6:H21").Copy
  2437. wb.Activate
  2438. Sheets("buffer").Select
  2439. Range("AE29").Select
  2440. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2441. Windows("DSDI905_1116.xls").Activate
  2442. ActiveWorkbook.Save
  2443. Windows("DSDI905_0116.xls").Close
  2444. '==================================================
  2445. a12:
  2446. On Error GoTo a13
  2447. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  2448. Windows("DSDI905_1216.xls").Activate
  2449. Sheets("Лист2").Select
  2450. formula2sh
  2451. Range("G6:H32").Copy
  2452. wb.Activate
  2453. Sheets("buffer").Select
  2454. Range("AH2").Select
  2455. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2456. Windows("DSDI905_1216.xls").Activate
  2457. Sheets("Лист3").Select
  2458. formula3sh
  2459. Range("G6:H21").Copy
  2460. wb.Activate
  2461. Sheets("buffer").Select
  2462. Range("AH29").Select
  2463. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2464. Windows("DSDI905_1216.xls").Activate
  2465. ActiveWorkbook.Save
  2466. Windows("DSDI905_1216.xls").Close
  2467. '==================================================On Error GoTo 2
  2468. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  2469. Windows("DSDI905_0116.xls").Activate
  2470. Sheets("Лист2").Select
  2471. formula2sh
  2472. Range("G6:H32").Copy
  2473. wb.Activate
  2474. Sheets("buffer").Select
  2475. Range("A2").Select
  2476. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2477. Windows("DSDI905_0116.xls").Activate
  2478. Sheets("Лист3").Select
  2479. formula3sh
  2480. Range("G6:H21").Copy
  2481. wb.Activate
  2482. Sheets("buffer").Select
  2483. Range("A29").Select
  2484. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2485. Windows("DSDI905_0116.xls").Activate
  2486. ActiveWorkbook.Save
  2487. Windows("DSDI905_0116.xls").Close
  2488. '==================================================
  2489. 2:
  2490. On Error GoTo 3
  2491. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  2492. Windows("DSDI905_0216.xls").Activate
  2493. Sheets("Лист2").Select
  2494. formula2sh
  2495. Range("G6:H32").Copy
  2496. wb.Activate
  2497. Sheets("buffer").Select
  2498. Range("D2").Select
  2499. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2500. Windows("DSDI905_0216.xls").Activate
  2501. Sheets("Лист3").Select
  2502. formula3sh
  2503. Range("G6:H21").Copy
  2504. wb.Activate
  2505. Sheets("buffer").Select
  2506. Range("D29").Select
  2507. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2508. Windows("DSDI905_0216.xls").Activate
  2509. ActiveWorkbook.Save
  2510. Windows("DSDI905_0216.xls").Close
  2511. '==================================================
  2512. 3:
  2513. On Error GoTo 4
  2514. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  2515. Windows("DSDI905_0316.xls").Activate
  2516. Sheets("Лист2").Select
  2517. formula2sh
  2518. Range("G6:H32").Copy
  2519. wb.Activate
  2520. Sheets("buffer").Select
  2521. Range("G2").Select
  2522. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2523. Windows("DSDI905_0316.xls").Activate
  2524. Sheets("Лист3").Select
  2525. formula3sh
  2526. Range("G6:H21").Copy
  2527. wb.Activate
  2528. Sheets("buffer").Select
  2529. Range("G29").Select
  2530. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2531. Windows("DSDI905_0316.xls").Activate
  2532. ActiveWorkbook.Save
  2533. Windows("DSDI905_0316.xls").Close
  2534. '==================================================
  2535. 4:
  2536. On Error GoTo 5
  2537. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  2538. Windows("DSDI905_0416.xls").Activate
  2539. Sheets("Лист2").Select
  2540. formula2sh
  2541. Range("G6:H32").Copy
  2542. wb.Activate
  2543. Sheets("buffer").Select
  2544. Range("J2").Select
  2545. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2546. Windows("DSDI905_0416.xls").Activate
  2547. Sheets("Лист3").Select
  2548. formula3sh
  2549. Range("G6:H21").Copy
  2550. wb.Activate
  2551. Sheets("buffer").Select
  2552. Range("J29").Select
  2553. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2554. Windows("DSDI905_0416.xls").Activate
  2555. ActiveWorkbook.Save
  2556. Windows("DSDI905_0416.xls").Close
  2557. '==================================================
  2558. 5:
  2559. On Error GoTo 6
  2560. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  2561. Windows("DSDI905_0516.xls").Activate
  2562. Sheets("Лист2").Select
  2563. formula2sh
  2564. Range("G6:H32").Copy
  2565. wb.Activate
  2566. Sheets("buffer").Select
  2567. Range("M2").Select
  2568. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2569. Windows("DSDI905_0516.xls").Activate
  2570. Sheets("Лист3").Select
  2571. formula3sh
  2572. Range("G6:H21").Copy
  2573. wb.Activate
  2574. Sheets("buffer").Select
  2575. Range("M29").Select
  2576. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2577. Windows("DSDI905_0516.xls").Activate
  2578. ActiveWorkbook.Save
  2579. Windows("DSDI905_0516.xls").Close
  2580. '==================================================
  2581. 6:
  2582. On Error GoTo 7
  2583. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  2584. Windows("DSDI905_0616.xls").Activate
  2585. Sheets("Лист2").Select
  2586. formula2sh
  2587. Range("G6:H32").Copy
  2588. wb.Activate
  2589. Sheets("buffer").Select
  2590. Range("P2").Select
  2591. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2592. Windows("DSDI905_0616.xls").Activate
  2593. Sheets("Лист3").Select
  2594. formula3sh
  2595. Range("G6:H21").Copy
  2596. wb.Activate
  2597. Sheets("buffer").Select
  2598. Range("P29").Select
  2599. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2600. Windows("DSDI905_0616.xls").Activate
  2601. ActiveWorkbook.Save
  2602. Windows("DSDI905_0616.xls").Close
  2603. '==================================================
  2604. 7:
  2605. On Error GoTo a8
  2606. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  2607. Windows("DSDI905_0716.xls").Activate
  2608. Sheets("Лист2").Select
  2609. formula2sh
  2610. Range("G6:H32").Copy
  2611. wb.Activate
  2612. Sheets("buffer").Select
  2613. Range("S2").Select
  2614. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2615. Windows("DSDI905_0716.xls").Activate
  2616. Sheets("Лист3").Select
  2617. formula3sh
  2618. Range("G6:H21").Copy
  2619. wb.Activate
  2620. Sheets("buffer").Select
  2621. Range("S29").Select
  2622. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2623. Windows("DSDI905_0716.xls").Activate
  2624. ActiveWorkbook.Save
  2625. Windows("DSDI905_0716.xls").Close
  2626. '==================================================
  2627. a8:
  2628. On Error GoTo a9
  2629. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  2630. Windows("DSDI905_0816.xls").Activate
  2631. Sheets("Лист2").Select
  2632. formula2sh
  2633. Range("G6:H32").Copy
  2634. wb.Activate
  2635. Sheets("buffer").Select
  2636. Range("V2").Select
  2637. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2638. Windows("DSDI905_0816.xls").Activate
  2639. Sheets("Лист3").Select
  2640. formula3sh
  2641. Range("G6:H21").Copy
  2642. wb.Activate
  2643. Sheets("buffer").Select
  2644. Range("V29").Select
  2645. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2646. Windows("DSDI905_0816.xls").Activate
  2647. ActiveWorkbook.Save
  2648. Windows("DSDI905_0816.xls").Close
  2649. '==================================================
  2650. a9:
  2651. On Error GoTo a10
  2652. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  2653. Windows("DSDI905_0916.xls").Activate
  2654. Sheets("Лист2").Select
  2655. formula2sh
  2656. Range("G6:H32").Copy
  2657. wb.Activate
  2658. Sheets("buffer").Select
  2659. Range("Y2").Select
  2660. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2661. Windows("DSDI905_0916.xls").Activate
  2662. Sheets("Лист3").Select
  2663. formula3sh
  2664. Range("G6:H21").Copy
  2665. wb.Activate
  2666. Sheets("buffer").Select
  2667. Range("Y29").Select
  2668. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2669. Windows("DSDI905_0916.xls").Activate
  2670. ActiveWorkbook.Save
  2671. Windows("DSDI905_0916.xls").Close
  2672. '==================================================
  2673. a10:
  2674. On Error GoTo a11
  2675. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  2676. Windows("DSDI905_1016.xls").Activate
  2677. Sheets("Лист2").Select
  2678. formula2sh
  2679. Range("G6:H32").Copy
  2680. wb.Activate
  2681. Sheets("buffer").Select
  2682. Range("AB2").Select
  2683. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2684. Windows("DSDI905_1016.xls").Activate
  2685. Sheets("Лист3").Select
  2686. formula3sh
  2687. Range("G6:H21").Copy
  2688. wb.Activate
  2689. Sheets("buffer").Select
  2690. Range("AB29").Select
  2691. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2692. Windows("DSDI905_1016.xls").Activate
  2693. ActiveWorkbook.Save
  2694. Windows("DSDI905_1016.xls").Close
  2695. '==================================================
  2696. a11:
  2697. On Error GoTo a12
  2698. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  2699. Windows("DSDI905_1116.xls").Activate
  2700. Sheets("Лист2").Select
  2701. formula2sh
  2702. Range("G6:H32").Copy
  2703. wb.Activate
  2704. Sheets("buffer").Select
  2705. Range("AE2").Select
  2706. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2707. Windows("DSDI905_1116.xls").Activate
  2708. Sheets("Лист3").Select
  2709. formula3sh
  2710. Range("G6:H21").Copy
  2711. wb.Activate
  2712. Sheets("buffer").Select
  2713. Range("AE29").Select
  2714. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2715. Windows("DSDI905_1116.xls").Activate
  2716. ActiveWorkbook.Save
  2717. Windows("DSDI905_0116.xls").Close
  2718. '==================================================
  2719. a12:
  2720. On Error GoTo a13
  2721. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  2722. Windows("DSDI905_1216.xls").Activate
  2723. Sheets("Лист2").Select
  2724. formula2sh
  2725. Range("G6:H32").Copy
  2726. wb.Activate
  2727. Sheets("buffer").Select
  2728. Range("AH2").Select
  2729. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2730. Windows("DSDI905_1216.xls").Activate
  2731. Sheets("Лист3").Select
  2732. formula3sh
  2733. Range("G6:H21").Copy
  2734. wb.Activate
  2735. Sheets("buffer").Select
  2736. Range("AH29").Select
  2737. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2738. Windows("DSDI905_1216.xls").Activate
  2739. ActiveWorkbook.Save
  2740. Windows("DSDI905_1216.xls").Close
  2741. '==================================================On Error GoTo 2
  2742. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  2743. Windows("DSDI905_0116.xls").Activate
  2744. Sheets("Лист2").Select
  2745. formula2sh
  2746. Range("G6:H32").Copy
  2747. wb.Activate
  2748. Sheets("buffer").Select
  2749. Range("A2").Select
  2750. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2751. Windows("DSDI905_0116.xls").Activate
  2752. Sheets("Лист3").Select
  2753. formula3sh
  2754. Range("G6:H21").Copy
  2755. wb.Activate
  2756. Sheets("buffer").Select
  2757. Range("A29").Select
  2758. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2759. Windows("DSDI905_0116.xls").Activate
  2760. ActiveWorkbook.Save
  2761. Windows("DSDI905_0116.xls").Close
  2762. '==================================================
  2763. 2:
  2764. On Error GoTo 3
  2765. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  2766. Windows("DSDI905_0216.xls").Activate
  2767. Sheets("Лист2").Select
  2768. formula2sh
  2769. Range("G6:H32").Copy
  2770. wb.Activate
  2771. Sheets("buffer").Select
  2772. Range("D2").Select
  2773. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2774. Windows("DSDI905_0216.xls").Activate
  2775. Sheets("Лист3").Select
  2776. formula3sh
  2777. Range("G6:H21").Copy
  2778. wb.Activate
  2779. Sheets("buffer").Select
  2780. Range("D29").Select
  2781. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2782. Windows("DSDI905_0216.xls").Activate
  2783. ActiveWorkbook.Save
  2784. Windows("DSDI905_0216.xls").Close
  2785. '==================================================
  2786. 3:
  2787. On Error GoTo 4
  2788. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  2789. Windows("DSDI905_0316.xls").Activate
  2790. Sheets("Лист2").Select
  2791. formula2sh
  2792. Range("G6:H32").Copy
  2793. wb.Activate
  2794. Sheets("buffer").Select
  2795. Range("G2").Select
  2796. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2797. Windows("DSDI905_0316.xls").Activate
  2798. Sheets("Лист3").Select
  2799. formula3sh
  2800. Range("G6:H21").Copy
  2801. wb.Activate
  2802. Sheets("buffer").Select
  2803. Range("G29").Select
  2804. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2805. Windows("DSDI905_0316.xls").Activate
  2806. ActiveWorkbook.Save
  2807. Windows("DSDI905_0316.xls").Close
  2808. '==================================================
  2809. 4:
  2810. On Error GoTo 5
  2811. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  2812. Windows("DSDI905_0416.xls").Activate
  2813. Sheets("Лист2").Select
  2814. formula2sh
  2815. Range("G6:H32").Copy
  2816. wb.Activate
  2817. Sheets("buffer").Select
  2818. Range("J2").Select
  2819. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2820. Windows("DSDI905_0416.xls").Activate
  2821. Sheets("Лист3").Select
  2822. formula3sh
  2823. Range("G6:H21").Copy
  2824. wb.Activate
  2825. Sheets("buffer").Select
  2826. Range("J29").Select
  2827. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2828. Windows("DSDI905_0416.xls").Activate
  2829. ActiveWorkbook.Save
  2830. Windows("DSDI905_0416.xls").Close
  2831. '==================================================
  2832. 5:
  2833. On Error GoTo 6
  2834. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  2835. Windows("DSDI905_0516.xls").Activate
  2836. Sheets("Лист2").Select
  2837. formula2sh
  2838. Range("G6:H32").Copy
  2839. wb.Activate
  2840. Sheets("buffer").Select
  2841. Range("M2").Select
  2842. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2843. Windows("DSDI905_0516.xls").Activate
  2844. Sheets("Лист3").Select
  2845. formula3sh
  2846. Range("G6:H21").Copy
  2847. wb.Activate
  2848. Sheets("buffer").Select
  2849. Range("M29").Select
  2850. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2851. Windows("DSDI905_0516.xls").Activate
  2852. ActiveWorkbook.Save
  2853. Windows("DSDI905_0516.xls").Close
  2854. '==================================================
  2855. 6:
  2856. On Error GoTo 7
  2857. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  2858. Windows("DSDI905_0616.xls").Activate
  2859. Sheets("Лист2").Select
  2860. formula2sh
  2861. Range("G6:H32").Copy
  2862. wb.Activate
  2863. Sheets("buffer").Select
  2864. Range("P2").Select
  2865. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2866. Windows("DSDI905_0616.xls").Activate
  2867. Sheets("Лист3").Select
  2868. formula3sh
  2869. Range("G6:H21").Copy
  2870. wb.Activate
  2871. Sheets("buffer").Select
  2872. Range("P29").Select
  2873. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2874. Windows("DSDI905_0616.xls").Activate
  2875. ActiveWorkbook.Save
  2876. Windows("DSDI905_0616.xls").Close
  2877. '==================================================
  2878. 7:
  2879. On Error GoTo a8
  2880. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  2881. Windows("DSDI905_0716.xls").Activate
  2882. Sheets("Лист2").Select
  2883. formula2sh
  2884. Range("G6:H32").Copy
  2885. wb.Activate
  2886. Sheets("buffer").Select
  2887. Range("S2").Select
  2888. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2889. Windows("DSDI905_0716.xls").Activate
  2890. Sheets("Лист3").Select
  2891. formula3sh
  2892. Range("G6:H21").Copy
  2893. wb.Activate
  2894. Sheets("buffer").Select
  2895. Range("S29").Select
  2896. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2897. Windows("DSDI905_0716.xls").Activate
  2898. ActiveWorkbook.Save
  2899. Windows("DSDI905_0716.xls").Close
  2900. '==================================================
  2901. a8:
  2902. On Error GoTo a9
  2903. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  2904. Windows("DSDI905_0816.xls").Activate
  2905. Sheets("Лист2").Select
  2906. formula2sh
  2907. Range("G6:H32").Copy
  2908. wb.Activate
  2909. Sheets("buffer").Select
  2910. Range("V2").Select
  2911. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2912. Windows("DSDI905_0816.xls").Activate
  2913. Sheets("Лист3").Select
  2914. formula3sh
  2915. Range("G6:H21").Copy
  2916. wb.Activate
  2917. Sheets("buffer").Select
  2918. Range("V29").Select
  2919. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2920. Windows("DSDI905_0816.xls").Activate
  2921. ActiveWorkbook.Save
  2922. Windows("DSDI905_0816.xls").Close
  2923. '==================================================
  2924. a9:
  2925. On Error GoTo a10
  2926. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  2927. Windows("DSDI905_0916.xls").Activate
  2928. Sheets("Лист2").Select
  2929. formula2sh
  2930. Range("G6:H32").Copy
  2931. wb.Activate
  2932. Sheets("buffer").Select
  2933. Range("Y2").Select
  2934. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2935. Windows("DSDI905_0916.xls").Activate
  2936. Sheets("Лист3").Select
  2937. formula3sh
  2938. Range("G6:H21").Copy
  2939. wb.Activate
  2940. Sheets("buffer").Select
  2941. Range("Y29").Select
  2942. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2943. Windows("DSDI905_0916.xls").Activate
  2944. ActiveWorkbook.Save
  2945. Windows("DSDI905_0916.xls").Close
  2946. '==================================================
  2947. a10:
  2948. On Error GoTo a11
  2949. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  2950. Windows("DSDI905_1016.xls").Activate
  2951. Sheets("Лист2").Select
  2952. formula2sh
  2953. Range("G6:H32").Copy
  2954. wb.Activate
  2955. Sheets("buffer").Select
  2956. Range("AB2").Select
  2957. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2958. Windows("DSDI905_1016.xls").Activate
  2959. Sheets("Лист3").Select
  2960. formula3sh
  2961. Range("G6:H21").Copy
  2962. wb.Activate
  2963. Sheets("buffer").Select
  2964. Range("AB29").Select
  2965. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2966. Windows("DSDI905_1016.xls").Activate
  2967. ActiveWorkbook.Save
  2968. Windows("DSDI905_1016.xls").Close
  2969. '==================================================
  2970. a11:
  2971. On Error GoTo a12
  2972. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  2973. Windows("DSDI905_1116.xls").Activate
  2974. Sheets("Лист2").Select
  2975. formula2sh
  2976. Range("G6:H32").Copy
  2977. wb.Activate
  2978. Sheets("buffer").Select
  2979. Range("AE2").Select
  2980. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2981. Windows("DSDI905_1116.xls").Activate
  2982. Sheets("Лист3").Select
  2983. formula3sh
  2984. Range("G6:H21").Copy
  2985. wb.Activate
  2986. Sheets("buffer").Select
  2987. Range("AE29").Select
  2988. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  2989. Windows("DSDI905_1116.xls").Activate
  2990. ActiveWorkbook.Save
  2991. Windows("DSDI905_0116.xls").Close
  2992. '==================================================
  2993. a12:
  2994. On Error GoTo a13
  2995. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  2996. Windows("DSDI905_1216.xls").Activate
  2997. Sheets("Лист2").Select
  2998. formula2sh
  2999. Range("G6:H32").Copy
  3000. wb.Activate
  3001. Sheets("buffer").Select
  3002. Range("AH2").Select
  3003. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3004. Windows("DSDI905_1216.xls").Activate
  3005. Sheets("Лист3").Select
  3006. formula3sh
  3007. Range("G6:H21").Copy
  3008. wb.Activate
  3009. Sheets("buffer").Select
  3010. Range("AH29").Select
  3011. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3012. Windows("DSDI905_1216.xls").Activate
  3013. ActiveWorkbook.Save
  3014. Windows("DSDI905_1216.xls").Close
  3015. '==================================================On Error GoTo 2
  3016. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  3017. Windows("DSDI905_0116.xls").Activate
  3018. Sheets("Лист2").Select
  3019. formula2sh
  3020. Range("G6:H32").Copy
  3021. wb.Activate
  3022. Sheets("buffer").Select
  3023. Range("A2").Select
  3024. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3025. Windows("DSDI905_0116.xls").Activate
  3026. Sheets("Лист3").Select
  3027. formula3sh
  3028. Range("G6:H21").Copy
  3029. wb.Activate
  3030. Sheets("buffer").Select
  3031. Range("A29").Select
  3032. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3033. Windows("DSDI905_0116.xls").Activate
  3034. ActiveWorkbook.Save
  3035. Windows("DSDI905_0116.xls").Close
  3036. '==================================================
  3037. 2:
  3038. On Error GoTo 3
  3039. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  3040. Windows("DSDI905_0216.xls").Activate
  3041. Sheets("Лист2").Select
  3042. formula2sh
  3043. Range("G6:H32").Copy
  3044. wb.Activate
  3045. Sheets("buffer").Select
  3046. Range("D2").Select
  3047. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3048. Windows("DSDI905_0216.xls").Activate
  3049. Sheets("Лист3").Select
  3050. formula3sh
  3051. Range("G6:H21").Copy
  3052. wb.Activate
  3053. Sheets("buffer").Select
  3054. Range("D29").Select
  3055. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3056. Windows("DSDI905_0216.xls").Activate
  3057. ActiveWorkbook.Save
  3058. Windows("DSDI905_0216.xls").Close
  3059. '==================================================
  3060. 3:
  3061. On Error GoTo 4
  3062. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  3063. Windows("DSDI905_0316.xls").Activate
  3064. Sheets("Лист2").Select
  3065. formula2sh
  3066. Range("G6:H32").Copy
  3067. wb.Activate
  3068. Sheets("buffer").Select
  3069. Range("G2").Select
  3070. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3071. Windows("DSDI905_0316.xls").Activate
  3072. Sheets("Лист3").Select
  3073. formula3sh
  3074. Range("G6:H21").Copy
  3075. wb.Activate
  3076. Sheets("buffer").Select
  3077. Range("G29").Select
  3078. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3079. Windows("DSDI905_0316.xls").Activate
  3080. ActiveWorkbook.Save
  3081. Windows("DSDI905_0316.xls").Close
  3082. '==================================================
  3083. 4:
  3084. On Error GoTo 5
  3085. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  3086. Windows("DSDI905_0416.xls").Activate
  3087. Sheets("Лист2").Select
  3088. formula2sh
  3089. Range("G6:H32").Copy
  3090. wb.Activate
  3091. Sheets("buffer").Select
  3092. Range("J2").Select
  3093. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3094. Windows("DSDI905_0416.xls").Activate
  3095. Sheets("Лист3").Select
  3096. formula3sh
  3097. Range("G6:H21").Copy
  3098. wb.Activate
  3099. Sheets("buffer").Select
  3100. Range("J29").Select
  3101. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3102. Windows("DSDI905_0416.xls").Activate
  3103. ActiveWorkbook.Save
  3104. Windows("DSDI905_0416.xls").Close
  3105. '==================================================
  3106. 5:
  3107. On Error GoTo 6
  3108. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  3109. Windows("DSDI905_0516.xls").Activate
  3110. Sheets("Лист2").Select
  3111. formula2sh
  3112. Range("G6:H32").Copy
  3113. wb.Activate
  3114. Sheets("buffer").Select
  3115. Range("M2").Select
  3116. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3117. Windows("DSDI905_0516.xls").Activate
  3118. Sheets("Лист3").Select
  3119. formula3sh
  3120. Range("G6:H21").Copy
  3121. wb.Activate
  3122. Sheets("buffer").Select
  3123. Range("M29").Select
  3124. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3125. Windows("DSDI905_0516.xls").Activate
  3126. ActiveWorkbook.Save
  3127. Windows("DSDI905_0516.xls").Close
  3128. '==================================================
  3129. 6:
  3130. On Error GoTo 7
  3131. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  3132. Windows("DSDI905_0616.xls").Activate
  3133. Sheets("Лист2").Select
  3134. formula2sh
  3135. Range("G6:H32").Copy
  3136. wb.Activate
  3137. Sheets("buffer").Select
  3138. Range("P2").Select
  3139. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3140. Windows("DSDI905_0616.xls").Activate
  3141. Sheets("Лист3").Select
  3142. formula3sh
  3143. Range("G6:H21").Copy
  3144. wb.Activate
  3145. Sheets("buffer").Select
  3146. Range("P29").Select
  3147. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3148. Windows("DSDI905_0616.xls").Activate
  3149. ActiveWorkbook.Save
  3150. Windows("DSDI905_0616.xls").Close
  3151. '==================================================
  3152. 7:
  3153. On Error GoTo a8
  3154. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  3155. Windows("DSDI905_0716.xls").Activate
  3156. Sheets("Лист2").Select
  3157. formula2sh
  3158. Range("G6:H32").Copy
  3159. wb.Activate
  3160. Sheets("buffer").Select
  3161. Range("S2").Select
  3162. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3163. Windows("DSDI905_0716.xls").Activate
  3164. Sheets("Лист3").Select
  3165. formula3sh
  3166. Range("G6:H21").Copy
  3167. wb.Activate
  3168. Sheets("buffer").Select
  3169. Range("S29").Select
  3170. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3171. Windows("DSDI905_0716.xls").Activate
  3172. ActiveWorkbook.Save
  3173. Windows("DSDI905_0716.xls").Close
  3174. '==================================================
  3175. a8:
  3176. On Error GoTo a9
  3177. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  3178. Windows("DSDI905_0816.xls").Activate
  3179. Sheets("Лист2").Select
  3180. formula2sh
  3181. Range("G6:H32").Copy
  3182. wb.Activate
  3183. Sheets("buffer").Select
  3184. Range("V2").Select
  3185. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3186. Windows("DSDI905_0816.xls").Activate
  3187. Sheets("Лист3").Select
  3188. formula3sh
  3189. Range("G6:H21").Copy
  3190. wb.Activate
  3191. Sheets("buffer").Select
  3192. Range("V29").Select
  3193. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3194. Windows("DSDI905_0816.xls").Activate
  3195. ActiveWorkbook.Save
  3196. Windows("DSDI905_0816.xls").Close
  3197. '==================================================
  3198. a9:
  3199. On Error GoTo a10
  3200. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  3201. Windows("DSDI905_0916.xls").Activate
  3202. Sheets("Лист2").Select
  3203. formula2sh
  3204. Range("G6:H32").Copy
  3205. wb.Activate
  3206. Sheets("buffer").Select
  3207. Range("Y2").Select
  3208. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3209. Windows("DSDI905_0916.xls").Activate
  3210. Sheets("Лист3").Select
  3211. formula3sh
  3212. Range("G6:H21").Copy
  3213. wb.Activate
  3214. Sheets("buffer").Select
  3215. Range("Y29").Select
  3216. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3217. Windows("DSDI905_0916.xls").Activate
  3218. ActiveWorkbook.Save
  3219. Windows("DSDI905_0916.xls").Close
  3220. '==================================================
  3221. a10:
  3222. On Error GoTo a11
  3223. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  3224. Windows("DSDI905_1016.xls").Activate
  3225. Sheets("Лист2").Select
  3226. formula2sh
  3227. Range("G6:H32").Copy
  3228. wb.Activate
  3229. Sheets("buffer").Select
  3230. Range("AB2").Select
  3231. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3232. Windows("DSDI905_1016.xls").Activate
  3233. Sheets("Лист3").Select
  3234. formula3sh
  3235. Range("G6:H21").Copy
  3236. wb.Activate
  3237. Sheets("buffer").Select
  3238. Range("AB29").Select
  3239. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3240. Windows("DSDI905_1016.xls").Activate
  3241. ActiveWorkbook.Save
  3242. Windows("DSDI905_1016.xls").Close
  3243. '==================================================
  3244. a11:
  3245. On Error GoTo a12
  3246. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  3247. Windows("DSDI905_1116.xls").Activate
  3248. Sheets("Лист2").Select
  3249. formula2sh
  3250. Range("G6:H32").Copy
  3251. wb.Activate
  3252. Sheets("buffer").Select
  3253. Range("AE2").Select
  3254. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3255. Windows("DSDI905_1116.xls").Activate
  3256. Sheets("Лист3").Select
  3257. formula3sh
  3258. Range("G6:H21").Copy
  3259. wb.Activate
  3260. Sheets("buffer").Select
  3261. Range("AE29").Select
  3262. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3263. Windows("DSDI905_1116.xls").Activate
  3264. ActiveWorkbook.Save
  3265. Windows("DSDI905_0116.xls").Close
  3266. '==================================================
  3267. a12:
  3268. On Error GoTo a13
  3269. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  3270. Windows("DSDI905_1216.xls").Activate
  3271. Sheets("Лист2").Select
  3272. formula2sh
  3273. Range("G6:H32").Copy
  3274. wb.Activate
  3275. Sheets("buffer").Select
  3276. Range("AH2").Select
  3277. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3278. Windows("DSDI905_1216.xls").Activate
  3279. Sheets("Лист3").Select
  3280. formula3sh
  3281. Range("G6:H21").Copy
  3282. wb.Activate
  3283. Sheets("buffer").Select
  3284. Range("AH29").Select
  3285. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3286. Windows("DSDI905_1216.xls").Activate
  3287. ActiveWorkbook.Save
  3288. Windows("DSDI905_1216.xls").Close
  3289. '==================================================On Error GoTo 2
  3290. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  3291. Windows("DSDI905_0116.xls").Activate
  3292. Sheets("Лист2").Select
  3293. formula2sh
  3294. Range("G6:H32").Copy
  3295. wb.Activate
  3296. Sheets("buffer").Select
  3297. Range("A2").Select
  3298. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3299. Windows("DSDI905_0116.xls").Activate
  3300. Sheets("Лист3").Select
  3301. formula3sh
  3302. Range("G6:H21").Copy
  3303. wb.Activate
  3304. Sheets("buffer").Select
  3305. Range("A29").Select
  3306. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3307. Windows("DSDI905_0116.xls").Activate
  3308. ActiveWorkbook.Save
  3309. Windows("DSDI905_0116.xls").Close
  3310. '==================================================
  3311. 2:
  3312. On Error GoTo 3
  3313. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  3314. Windows("DSDI905_0216.xls").Activate
  3315. Sheets("Лист2").Select
  3316. formula2sh
  3317. Range("G6:H32").Copy
  3318. wb.Activate
  3319. Sheets("buffer").Select
  3320. Range("D2").Select
  3321. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3322. Windows("DSDI905_0216.xls").Activate
  3323. Sheets("Лист3").Select
  3324. formula3sh
  3325. Range("G6:H21").Copy
  3326. wb.Activate
  3327. Sheets("buffer").Select
  3328. Range("D29").Select
  3329. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3330. Windows("DSDI905_0216.xls").Activate
  3331. ActiveWorkbook.Save
  3332. Windows("DSDI905_0216.xls").Close
  3333. '==================================================
  3334. 3:
  3335. On Error GoTo 4
  3336. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  3337. Windows("DSDI905_0316.xls").Activate
  3338. Sheets("Лист2").Select
  3339. formula2sh
  3340. Range("G6:H32").Copy
  3341. wb.Activate
  3342. Sheets("buffer").Select
  3343. Range("G2").Select
  3344. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3345. Windows("DSDI905_0316.xls").Activate
  3346. Sheets("Лист3").Select
  3347. formula3sh
  3348. Range("G6:H21").Copy
  3349. wb.Activate
  3350. Sheets("buffer").Select
  3351. Range("G29").Select
  3352. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3353. Windows("DSDI905_0316.xls").Activate
  3354. ActiveWorkbook.Save
  3355. Windows("DSDI905_0316.xls").Close
  3356. '==================================================
  3357. 4:
  3358. On Error GoTo 5
  3359. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  3360. Windows("DSDI905_0416.xls").Activate
  3361. Sheets("Лист2").Select
  3362. formula2sh
  3363. Range("G6:H32").Copy
  3364. wb.Activate
  3365. Sheets("buffer").Select
  3366. Range("J2").Select
  3367. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3368. Windows("DSDI905_0416.xls").Activate
  3369. Sheets("Лист3").Select
  3370. formula3sh
  3371. Range("G6:H21").Copy
  3372. wb.Activate
  3373. Sheets("buffer").Select
  3374. Range("J29").Select
  3375. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3376. Windows("DSDI905_0416.xls").Activate
  3377. ActiveWorkbook.Save
  3378. Windows("DSDI905_0416.xls").Close
  3379. '==================================================
  3380. 5:
  3381. On Error GoTo 6
  3382. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  3383. Windows("DSDI905_0516.xls").Activate
  3384. Sheets("Лист2").Select
  3385. formula2sh
  3386. Range("G6:H32").Copy
  3387. wb.Activate
  3388. Sheets("buffer").Select
  3389. Range("M2").Select
  3390. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3391. Windows("DSDI905_0516.xls").Activate
  3392. Sheets("Лист3").Select
  3393. formula3sh
  3394. Range("G6:H21").Copy
  3395. wb.Activate
  3396. Sheets("buffer").Select
  3397. Range("M29").Select
  3398. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3399. Windows("DSDI905_0516.xls").Activate
  3400. ActiveWorkbook.Save
  3401. Windows("DSDI905_0516.xls").Close
  3402. '==================================================
  3403. 6:
  3404. On Error GoTo 7
  3405. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  3406. Windows("DSDI905_0616.xls").Activate
  3407. Sheets("Лист2").Select
  3408. formula2sh
  3409. Range("G6:H32").Copy
  3410. wb.Activate
  3411. Sheets("buffer").Select
  3412. Range("P2").Select
  3413. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3414. Windows("DSDI905_0616.xls").Activate
  3415. Sheets("Лист3").Select
  3416. formula3sh
  3417. Range("G6:H21").Copy
  3418. wb.Activate
  3419. Sheets("buffer").Select
  3420. Range("P29").Select
  3421. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3422. Windows("DSDI905_0616.xls").Activate
  3423. ActiveWorkbook.Save
  3424. Windows("DSDI905_0616.xls").Close
  3425. '==================================================
  3426. 7:
  3427. On Error GoTo a8
  3428. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  3429. Windows("DSDI905_0716.xls").Activate
  3430. Sheets("Лист2").Select
  3431. formula2sh
  3432. Range("G6:H32").Copy
  3433. wb.Activate
  3434. Sheets("buffer").Select
  3435. Range("S2").Select
  3436. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3437. Windows("DSDI905_0716.xls").Activate
  3438. Sheets("Лист3").Select
  3439. formula3sh
  3440. Range("G6:H21").Copy
  3441. wb.Activate
  3442. Sheets("buffer").Select
  3443. Range("S29").Select
  3444. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3445. Windows("DSDI905_0716.xls").Activate
  3446. ActiveWorkbook.Save
  3447. Windows("DSDI905_0716.xls").Close
  3448. '==================================================
  3449. a8:
  3450. On Error GoTo a9
  3451. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  3452. Windows("DSDI905_0816.xls").Activate
  3453. Sheets("Лист2").Select
  3454. formula2sh
  3455. Range("G6:H32").Copy
  3456. wb.Activate
  3457. Sheets("buffer").Select
  3458. Range("V2").Select
  3459. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3460. Windows("DSDI905_0816.xls").Activate
  3461. Sheets("Лист3").Select
  3462. formula3sh
  3463. Range("G6:H21").Copy
  3464. wb.Activate
  3465. Sheets("buffer").Select
  3466. Range("V29").Select
  3467. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3468. Windows("DSDI905_0816.xls").Activate
  3469. ActiveWorkbook.Save
  3470. Windows("DSDI905_0816.xls").Close
  3471. '==================================================
  3472. a9:
  3473. On Error GoTo a10
  3474. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  3475. Windows("DSDI905_0916.xls").Activate
  3476. Sheets("Лист2").Select
  3477. formula2sh
  3478. Range("G6:H32").Copy
  3479. wb.Activate
  3480. Sheets("buffer").Select
  3481. Range("Y2").Select
  3482. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3483. Windows("DSDI905_0916.xls").Activate
  3484. Sheets("Лист3").Select
  3485. formula3sh
  3486. Range("G6:H21").Copy
  3487. wb.Activate
  3488. Sheets("buffer").Select
  3489. Range("Y29").Select
  3490. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3491. Windows("DSDI905_0916.xls").Activate
  3492. ActiveWorkbook.Save
  3493. Windows("DSDI905_0916.xls").Close
  3494. '==================================================
  3495. a10:
  3496. On Error GoTo a11
  3497. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  3498. Windows("DSDI905_1016.xls").Activate
  3499. Sheets("Лист2").Select
  3500. formula2sh
  3501. Range("G6:H32").Copy
  3502. wb.Activate
  3503. Sheets("buffer").Select
  3504. Range("AB2").Select
  3505. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3506. Windows("DSDI905_1016.xls").Activate
  3507. Sheets("Лист3").Select
  3508. formula3sh
  3509. Range("G6:H21").Copy
  3510. wb.Activate
  3511. Sheets("buffer").Select
  3512. Range("AB29").Select
  3513. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3514. Windows("DSDI905_1016.xls").Activate
  3515. ActiveWorkbook.Save
  3516. Windows("DSDI905_1016.xls").Close
  3517. '==================================================
  3518. a11:
  3519. On Error GoTo a12
  3520. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  3521. Windows("DSDI905_1116.xls").Activate
  3522. Sheets("Лист2").Select
  3523. formula2sh
  3524. Range("G6:H32").Copy
  3525. wb.Activate
  3526. Sheets("buffer").Select
  3527. Range("AE2").Select
  3528. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3529. Windows("DSDI905_1116.xls").Activate
  3530. Sheets("Лист3").Select
  3531. formula3sh
  3532. Range("G6:H21").Copy
  3533. wb.Activate
  3534. Sheets("buffer").Select
  3535. Range("AE29").Select
  3536. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3537. Windows("DSDI905_1116.xls").Activate
  3538. ActiveWorkbook.Save
  3539. Windows("DSDI905_0116.xls").Close
  3540. '==================================================
  3541. a12:
  3542. On Error GoTo a13
  3543. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  3544. Windows("DSDI905_1216.xls").Activate
  3545. Sheets("Лист2").Select
  3546. formula2sh
  3547. Range("G6:H32").Copy
  3548. wb.Activate
  3549. Sheets("buffer").Select
  3550. Range("AH2").Select
  3551. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3552. Windows("DSDI905_1216.xls").Activate
  3553. Sheets("Лист3").Select
  3554. formula3sh
  3555. Range("G6:H21").Copy
  3556. wb.Activate
  3557. Sheets("buffer").Select
  3558. Range("AH29").Select
  3559. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3560. Windows("DSDI905_1216.xls").Activate
  3561. ActiveWorkbook.Save
  3562. Windows("DSDI905_1216.xls").Close
  3563. '==================================================On Error GoTo 2
  3564. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  3565. Windows("DSDI905_0116.xls").Activate
  3566. Sheets("Лист2").Select
  3567. formula2sh
  3568. Range("G6:H32").Copy
  3569. wb.Activate
  3570. Sheets("buffer").Select
  3571. Range("A2").Select
  3572. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3573. Windows("DSDI905_0116.xls").Activate
  3574. Sheets("Лист3").Select
  3575. formula3sh
  3576. Range("G6:H21").Copy
  3577. wb.Activate
  3578. Sheets("buffer").Select
  3579. Range("A29").Select
  3580. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3581. Windows("DSDI905_0116.xls").Activate
  3582. ActiveWorkbook.Save
  3583. Windows("DSDI905_0116.xls").Close
  3584. '==================================================
  3585. 2:
  3586. On Error GoTo 3
  3587. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  3588. Windows("DSDI905_0216.xls").Activate
  3589. Sheets("Лист2").Select
  3590. formula2sh
  3591. Range("G6:H32").Copy
  3592. wb.Activate
  3593. Sheets("buffer").Select
  3594. Range("D2").Select
  3595. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3596. Windows("DSDI905_0216.xls").Activate
  3597. Sheets("Лист3").Select
  3598. formula3sh
  3599. Range("G6:H21").Copy
  3600. wb.Activate
  3601. Sheets("buffer").Select
  3602. Range("D29").Select
  3603. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3604. Windows("DSDI905_0216.xls").Activate
  3605. ActiveWorkbook.Save
  3606. Windows("DSDI905_0216.xls").Close
  3607. '==================================================
  3608. 3:
  3609. On Error GoTo 4
  3610. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  3611. Windows("DSDI905_0316.xls").Activate
  3612. Sheets("Лист2").Select
  3613. formula2sh
  3614. Range("G6:H32").Copy
  3615. wb.Activate
  3616. Sheets("buffer").Select
  3617. Range("G2").Select
  3618. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3619. Windows("DSDI905_0316.xls").Activate
  3620. Sheets("Лист3").Select
  3621. formula3sh
  3622. Range("G6:H21").Copy
  3623. wb.Activate
  3624. Sheets("buffer").Select
  3625. Range("G29").Select
  3626. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3627. Windows("DSDI905_0316.xls").Activate
  3628. ActiveWorkbook.Save
  3629. Windows("DSDI905_0316.xls").Close
  3630. '==================================================
  3631. 4:
  3632. On Error GoTo 5
  3633. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  3634. Windows("DSDI905_0416.xls").Activate
  3635. Sheets("Лист2").Select
  3636. formula2sh
  3637. Range("G6:H32").Copy
  3638. wb.Activate
  3639. Sheets("buffer").Select
  3640. Range("J2").Select
  3641. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3642. Windows("DSDI905_0416.xls").Activate
  3643. Sheets("Лист3").Select
  3644. formula3sh
  3645. Range("G6:H21").Copy
  3646. wb.Activate
  3647. Sheets("buffer").Select
  3648. Range("J29").Select
  3649. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3650. Windows("DSDI905_0416.xls").Activate
  3651. ActiveWorkbook.Save
  3652. Windows("DSDI905_0416.xls").Close
  3653. '==================================================
  3654. 5:
  3655. On Error GoTo 6
  3656. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  3657. Windows("DSDI905_0516.xls").Activate
  3658. Sheets("Лист2").Select
  3659. formula2sh
  3660. Range("G6:H32").Copy
  3661. wb.Activate
  3662. Sheets("buffer").Select
  3663. Range("M2").Select
  3664. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3665. Windows("DSDI905_0516.xls").Activate
  3666. Sheets("Лист3").Select
  3667. formula3sh
  3668. Range("G6:H21").Copy
  3669. wb.Activate
  3670. Sheets("buffer").Select
  3671. Range("M29").Select
  3672. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3673. Windows("DSDI905_0516.xls").Activate
  3674. ActiveWorkbook.Save
  3675. Windows("DSDI905_0516.xls").Close
  3676. '==================================================
  3677. 6:
  3678. On Error GoTo 7
  3679. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  3680. Windows("DSDI905_0616.xls").Activate
  3681. Sheets("Лист2").Select
  3682. formula2sh
  3683. Range("G6:H32").Copy
  3684. wb.Activate
  3685. Sheets("buffer").Select
  3686. Range("P2").Select
  3687. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3688. Windows("DSDI905_0616.xls").Activate
  3689. Sheets("Лист3").Select
  3690. formula3sh
  3691. Range("G6:H21").Copy
  3692. wb.Activate
  3693. Sheets("buffer").Select
  3694. Range("P29").Select
  3695. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3696. Windows("DSDI905_0616.xls").Activate
  3697. ActiveWorkbook.Save
  3698. Windows("DSDI905_0616.xls").Close
  3699. '==================================================
  3700. 7:
  3701. On Error GoTo a8
  3702. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  3703. Windows("DSDI905_0716.xls").Activate
  3704. Sheets("Лист2").Select
  3705. formula2sh
  3706. Range("G6:H32").Copy
  3707. wb.Activate
  3708. Sheets("buffer").Select
  3709. Range("S2").Select
  3710. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3711. Windows("DSDI905_0716.xls").Activate
  3712. Sheets("Лист3").Select
  3713. formula3sh
  3714. Range("G6:H21").Copy
  3715. wb.Activate
  3716. Sheets("buffer").Select
  3717. Range("S29").Select
  3718. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3719. Windows("DSDI905_0716.xls").Activate
  3720. ActiveWorkbook.Save
  3721. Windows("DSDI905_0716.xls").Close
  3722. '==================================================
  3723. a8:
  3724. On Error GoTo a9
  3725. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  3726. Windows("DSDI905_0816.xls").Activate
  3727. Sheets("Лист2").Select
  3728. formula2sh
  3729. Range("G6:H32").Copy
  3730. wb.Activate
  3731. Sheets("buffer").Select
  3732. Range("V2").Select
  3733. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3734. Windows("DSDI905_0816.xls").Activate
  3735. Sheets("Лист3").Select
  3736. formula3sh
  3737. Range("G6:H21").Copy
  3738. wb.Activate
  3739. Sheets("buffer").Select
  3740. Range("V29").Select
  3741. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3742. Windows("DSDI905_0816.xls").Activate
  3743. ActiveWorkbook.Save
  3744. Windows("DSDI905_0816.xls").Close
  3745. '==================================================
  3746. a9:
  3747. On Error GoTo a10
  3748. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  3749. Windows("DSDI905_0916.xls").Activate
  3750. Sheets("Лист2").Select
  3751. formula2sh
  3752. Range("G6:H32").Copy
  3753. wb.Activate
  3754. Sheets("buffer").Select
  3755. Range("Y2").Select
  3756. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3757. Windows("DSDI905_0916.xls").Activate
  3758. Sheets("Лист3").Select
  3759. formula3sh
  3760. Range("G6:H21").Copy
  3761. wb.Activate
  3762. Sheets("buffer").Select
  3763. Range("Y29").Select
  3764. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3765. Windows("DSDI905_0916.xls").Activate
  3766. ActiveWorkbook.Save
  3767. Windows("DSDI905_0916.xls").Close
  3768. '==================================================
  3769. a10:
  3770. On Error GoTo a11
  3771. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  3772. Windows("DSDI905_1016.xls").Activate
  3773. Sheets("Лист2").Select
  3774. formula2sh
  3775. Range("G6:H32").Copy
  3776. wb.Activate
  3777. Sheets("buffer").Select
  3778. Range("AB2").Select
  3779. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3780. Windows("DSDI905_1016.xls").Activate
  3781. Sheets("Лист3").Select
  3782. formula3sh
  3783. Range("G6:H21").Copy
  3784. wb.Activate
  3785. Sheets("buffer").Select
  3786. Range("AB29").Select
  3787. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3788. Windows("DSDI905_1016.xls").Activate
  3789. ActiveWorkbook.Save
  3790. Windows("DSDI905_1016.xls").Close
  3791. '==================================================
  3792. a11:
  3793. On Error GoTo a12
  3794. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  3795. Windows("DSDI905_1116.xls").Activate
  3796. Sheets("Лист2").Select
  3797. formula2sh
  3798. Range("G6:H32").Copy
  3799. wb.Activate
  3800. Sheets("buffer").Select
  3801. Range("AE2").Select
  3802. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3803. Windows("DSDI905_1116.xls").Activate
  3804. Sheets("Лист3").Select
  3805. formula3sh
  3806. Range("G6:H21").Copy
  3807. wb.Activate
  3808. Sheets("buffer").Select
  3809. Range("AE29").Select
  3810. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3811. Windows("DSDI905_1116.xls").Activate
  3812. ActiveWorkbook.Save
  3813. Windows("DSDI905_0116.xls").Close
  3814. '==================================================
  3815. a12:
  3816. On Error GoTo a13
  3817. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  3818. Windows("DSDI905_1216.xls").Activate
  3819. Sheets("Лист2").Select
  3820. formula2sh
  3821. Range("G6:H32").Copy
  3822. wb.Activate
  3823. Sheets("buffer").Select
  3824. Range("AH2").Select
  3825. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3826. Windows("DSDI905_1216.xls").Activate
  3827. Sheets("Лист3").Select
  3828. formula3sh
  3829. Range("G6:H21").Copy
  3830. wb.Activate
  3831. Sheets("buffer").Select
  3832. Range("AH29").Select
  3833. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3834. Windows("DSDI905_1216.xls").Activate
  3835. ActiveWorkbook.Save
  3836. Windows("DSDI905_1216.xls").Close
  3837. '==================================================On Error GoTo 2
  3838. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  3839. Windows("DSDI905_0116.xls").Activate
  3840. Sheets("Лист2").Select
  3841. formula2sh
  3842. Range("G6:H32").Copy
  3843. wb.Activate
  3844. Sheets("buffer").Select
  3845. Range("A2").Select
  3846. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3847. Windows("DSDI905_0116.xls").Activate
  3848. Sheets("Лист3").Select
  3849. formula3sh
  3850. Range("G6:H21").Copy
  3851. wb.Activate
  3852. Sheets("buffer").Select
  3853. Range("A29").Select
  3854. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3855. Windows("DSDI905_0116.xls").Activate
  3856. ActiveWorkbook.Save
  3857. Windows("DSDI905_0116.xls").Close
  3858. '==================================================
  3859. 2:
  3860. On Error GoTo 3
  3861. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  3862. Windows("DSDI905_0216.xls").Activate
  3863. Sheets("Лист2").Select
  3864. formula2sh
  3865. Range("G6:H32").Copy
  3866. wb.Activate
  3867. Sheets("buffer").Select
  3868. Range("D2").Select
  3869. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3870. Windows("DSDI905_0216.xls").Activate
  3871. Sheets("Лист3").Select
  3872. formula3sh
  3873. Range("G6:H21").Copy
  3874. wb.Activate
  3875. Sheets("buffer").Select
  3876. Range("D29").Select
  3877. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3878. Windows("DSDI905_0216.xls").Activate
  3879. ActiveWorkbook.Save
  3880. Windows("DSDI905_0216.xls").Close
  3881. '==================================================
  3882. 3:
  3883. On Error GoTo 4
  3884. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  3885. Windows("DSDI905_0316.xls").Activate
  3886. Sheets("Лист2").Select
  3887. formula2sh
  3888. Range("G6:H32").Copy
  3889. wb.Activate
  3890. Sheets("buffer").Select
  3891. Range("G2").Select
  3892. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3893. Windows("DSDI905_0316.xls").Activate
  3894. Sheets("Лист3").Select
  3895. formula3sh
  3896. Range("G6:H21").Copy
  3897. wb.Activate
  3898. Sheets("buffer").Select
  3899. Range("G29").Select
  3900. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3901. Windows("DSDI905_0316.xls").Activate
  3902. ActiveWorkbook.Save
  3903. Windows("DSDI905_0316.xls").Close
  3904. '==================================================
  3905. 4:
  3906. On Error GoTo 5
  3907. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  3908. Windows("DSDI905_0416.xls").Activate
  3909. Sheets("Лист2").Select
  3910. formula2sh
  3911. Range("G6:H32").Copy
  3912. wb.Activate
  3913. Sheets("buffer").Select
  3914. Range("J2").Select
  3915. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3916. Windows("DSDI905_0416.xls").Activate
  3917. Sheets("Лист3").Select
  3918. formula3sh
  3919. Range("G6:H21").Copy
  3920. wb.Activate
  3921. Sheets("buffer").Select
  3922. Range("J29").Select
  3923. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3924. Windows("DSDI905_0416.xls").Activate
  3925. ActiveWorkbook.Save
  3926. Windows("DSDI905_0416.xls").Close
  3927. '==================================================
  3928. 5:
  3929. On Error GoTo 6
  3930. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  3931. Windows("DSDI905_0516.xls").Activate
  3932. Sheets("Лист2").Select
  3933. formula2sh
  3934. Range("G6:H32").Copy
  3935. wb.Activate
  3936. Sheets("buffer").Select
  3937. Range("M2").Select
  3938. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3939. Windows("DSDI905_0516.xls").Activate
  3940. Sheets("Лист3").Select
  3941. formula3sh
  3942. Range("G6:H21").Copy
  3943. wb.Activate
  3944. Sheets("buffer").Select
  3945. Range("M29").Select
  3946. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3947. Windows("DSDI905_0516.xls").Activate
  3948. ActiveWorkbook.Save
  3949. Windows("DSDI905_0516.xls").Close
  3950. '==================================================
  3951. 6:
  3952. On Error GoTo 7
  3953. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  3954. Windows("DSDI905_0616.xls").Activate
  3955. Sheets("Лист2").Select
  3956. formula2sh
  3957. Range("G6:H32").Copy
  3958. wb.Activate
  3959. Sheets("buffer").Select
  3960. Range("P2").Select
  3961. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3962. Windows("DSDI905_0616.xls").Activate
  3963. Sheets("Лист3").Select
  3964. formula3sh
  3965. Range("G6:H21").Copy
  3966. wb.Activate
  3967. Sheets("buffer").Select
  3968. Range("P29").Select
  3969. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3970. Windows("DSDI905_0616.xls").Activate
  3971. ActiveWorkbook.Save
  3972. Windows("DSDI905_0616.xls").Close
  3973. '==================================================
  3974. 7:
  3975. On Error GoTo a8
  3976. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  3977. Windows("DSDI905_0716.xls").Activate
  3978. Sheets("Лист2").Select
  3979. formula2sh
  3980. Range("G6:H32").Copy
  3981. wb.Activate
  3982. Sheets("buffer").Select
  3983. Range("S2").Select
  3984. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3985. Windows("DSDI905_0716.xls").Activate
  3986. Sheets("Лист3").Select
  3987. formula3sh
  3988. Range("G6:H21").Copy
  3989. wb.Activate
  3990. Sheets("buffer").Select
  3991. Range("S29").Select
  3992. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  3993. Windows("DSDI905_0716.xls").Activate
  3994. ActiveWorkbook.Save
  3995. Windows("DSDI905_0716.xls").Close
  3996. '==================================================
  3997. a8:
  3998. On Error GoTo a9
  3999. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  4000. Windows("DSDI905_0816.xls").Activate
  4001. Sheets("Лист2").Select
  4002. formula2sh
  4003. Range("G6:H32").Copy
  4004. wb.Activate
  4005. Sheets("buffer").Select
  4006. Range("V2").Select
  4007. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4008. Windows("DSDI905_0816.xls").Activate
  4009. Sheets("Лист3").Select
  4010. formula3sh
  4011. Range("G6:H21").Copy
  4012. wb.Activate
  4013. Sheets("buffer").Select
  4014. Range("V29").Select
  4015. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4016. Windows("DSDI905_0816.xls").Activate
  4017. ActiveWorkbook.Save
  4018. Windows("DSDI905_0816.xls").Close
  4019. '==================================================
  4020. a9:
  4021. On Error GoTo a10
  4022. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  4023. Windows("DSDI905_0916.xls").Activate
  4024. Sheets("Лист2").Select
  4025. formula2sh
  4026. Range("G6:H32").Copy
  4027. wb.Activate
  4028. Sheets("buffer").Select
  4029. Range("Y2").Select
  4030. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4031. Windows("DSDI905_0916.xls").Activate
  4032. Sheets("Лист3").Select
  4033. formula3sh
  4034. Range("G6:H21").Copy
  4035. wb.Activate
  4036. Sheets("buffer").Select
  4037. Range("Y29").Select
  4038. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4039. Windows("DSDI905_0916.xls").Activate
  4040. ActiveWorkbook.Save
  4041. Windows("DSDI905_0916.xls").Close
  4042. '==================================================
  4043. a10:
  4044. On Error GoTo a11
  4045. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  4046. Windows("DSDI905_1016.xls").Activate
  4047. Sheets("Лист2").Select
  4048. formula2sh
  4049. Range("G6:H32").Copy
  4050. wb.Activate
  4051. Sheets("buffer").Select
  4052. Range("AB2").Select
  4053. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4054. Windows("DSDI905_1016.xls").Activate
  4055. Sheets("Лист3").Select
  4056. formula3sh
  4057. Range("G6:H21").Copy
  4058. wb.Activate
  4059. Sheets("buffer").Select
  4060. Range("AB29").Select
  4061. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4062. Windows("DSDI905_1016.xls").Activate
  4063. ActiveWorkbook.Save
  4064. Windows("DSDI905_1016.xls").Close
  4065. '==================================================
  4066. a11:
  4067. On Error GoTo a12
  4068. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  4069. Windows("DSDI905_1116.xls").Activate
  4070. Sheets("Лист2").Select
  4071. formula2sh
  4072. Range("G6:H32").Copy
  4073. wb.Activate
  4074. Sheets("buffer").Select
  4075. Range("AE2").Select
  4076. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4077. Windows("DSDI905_1116.xls").Activate
  4078. Sheets("Лист3").Select
  4079. formula3sh
  4080. Range("G6:H21").Copy
  4081. wb.Activate
  4082. Sheets("buffer").Select
  4083. Range("AE29").Select
  4084. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4085. Windows("DSDI905_1116.xls").Activate
  4086. ActiveWorkbook.Save
  4087. Windows("DSDI905_0116.xls").Close
  4088. '==================================================
  4089. a12:
  4090. On Error GoTo a13
  4091. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  4092. Windows("DSDI905_1216.xls").Activate
  4093. Sheets("Лист2").Select
  4094. formula2sh
  4095. Range("G6:H32").Copy
  4096. wb.Activate
  4097. Sheets("buffer").Select
  4098. Range("AH2").Select
  4099. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4100. Windows("DSDI905_1216.xls").Activate
  4101. Sheets("Лист3").Select
  4102. formula3sh
  4103. Range("G6:H21").Copy
  4104. wb.Activate
  4105. Sheets("buffer").Select
  4106. Range("AH29").Select
  4107. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4108. Windows("DSDI905_1216.xls").Activate
  4109. ActiveWorkbook.Save
  4110. Windows("DSDI905_1216.xls").Close
  4111. '==================================================On Error GoTo 2
  4112. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  4113. Windows("DSDI905_0116.xls").Activate
  4114. Sheets("Лист2").Select
  4115. formula2sh
  4116. Range("G6:H32").Copy
  4117. wb.Activate
  4118. Sheets("buffer").Select
  4119. Range("A2").Select
  4120. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4121. Windows("DSDI905_0116.xls").Activate
  4122. Sheets("Лист3").Select
  4123. formula3sh
  4124. Range("G6:H21").Copy
  4125. wb.Activate
  4126. Sheets("buffer").Select
  4127. Range("A29").Select
  4128. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4129. Windows("DSDI905_0116.xls").Activate
  4130. ActiveWorkbook.Save
  4131. Windows("DSDI905_0116.xls").Close
  4132. '==================================================
  4133. 2:
  4134. On Error GoTo 3
  4135. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  4136. Windows("DSDI905_0216.xls").Activate
  4137. Sheets("Лист2").Select
  4138. formula2sh
  4139. Range("G6:H32").Copy
  4140. wb.Activate
  4141. Sheets("buffer").Select
  4142. Range("D2").Select
  4143. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4144. Windows("DSDI905_0216.xls").Activate
  4145. Sheets("Лист3").Select
  4146. formula3sh
  4147. Range("G6:H21").Copy
  4148. wb.Activate
  4149. Sheets("buffer").Select
  4150. Range("D29").Select
  4151. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4152. Windows("DSDI905_0216.xls").Activate
  4153. ActiveWorkbook.Save
  4154. Windows("DSDI905_0216.xls").Close
  4155. '==================================================
  4156. 3:
  4157. On Error GoTo 4
  4158. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  4159. Windows("DSDI905_0316.xls").Activate
  4160. Sheets("Лист2").Select
  4161. formula2sh
  4162. Range("G6:H32").Copy
  4163. wb.Activate
  4164. Sheets("buffer").Select
  4165. Range("G2").Select
  4166. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4167. Windows("DSDI905_0316.xls").Activate
  4168. Sheets("Лист3").Select
  4169. formula3sh
  4170. Range("G6:H21").Copy
  4171. wb.Activate
  4172. Sheets("buffer").Select
  4173. Range("G29").Select
  4174. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4175. Windows("DSDI905_0316.xls").Activate
  4176. ActiveWorkbook.Save
  4177. Windows("DSDI905_0316.xls").Close
  4178. '==================================================
  4179. 4:
  4180. On Error GoTo 5
  4181. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  4182. Windows("DSDI905_0416.xls").Activate
  4183. Sheets("Лист2").Select
  4184. formula2sh
  4185. Range("G6:H32").Copy
  4186. wb.Activate
  4187. Sheets("buffer").Select
  4188. Range("J2").Select
  4189. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4190. Windows("DSDI905_0416.xls").Activate
  4191. Sheets("Лист3").Select
  4192. formula3sh
  4193. Range("G6:H21").Copy
  4194. wb.Activate
  4195. Sheets("buffer").Select
  4196. Range("J29").Select
  4197. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4198. Windows("DSDI905_0416.xls").Activate
  4199. ActiveWorkbook.Save
  4200. Windows("DSDI905_0416.xls").Close
  4201. '==================================================
  4202. 5:
  4203. On Error GoTo 6
  4204. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  4205. Windows("DSDI905_0516.xls").Activate
  4206. Sheets("Лист2").Select
  4207. formula2sh
  4208. Range("G6:H32").Copy
  4209. wb.Activate
  4210. Sheets("buffer").Select
  4211. Range("M2").Select
  4212. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4213. Windows("DSDI905_0516.xls").Activate
  4214. Sheets("Лист3").Select
  4215. formula3sh
  4216. Range("G6:H21").Copy
  4217. wb.Activate
  4218. Sheets("buffer").Select
  4219. Range("M29").Select
  4220. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4221. Windows("DSDI905_0516.xls").Activate
  4222. ActiveWorkbook.Save
  4223. Windows("DSDI905_0516.xls").Close
  4224. '==================================================
  4225. 6:
  4226. On Error GoTo 7
  4227. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  4228. Windows("DSDI905_0616.xls").Activate
  4229. Sheets("Лист2").Select
  4230. formula2sh
  4231. Range("G6:H32").Copy
  4232. wb.Activate
  4233. Sheets("buffer").Select
  4234. Range("P2").Select
  4235. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4236. Windows("DSDI905_0616.xls").Activate
  4237. Sheets("Лист3").Select
  4238. formula3sh
  4239. Range("G6:H21").Copy
  4240. wb.Activate
  4241. Sheets("buffer").Select
  4242. Range("P29").Select
  4243. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4244. Windows("DSDI905_0616.xls").Activate
  4245. ActiveWorkbook.Save
  4246. Windows("DSDI905_0616.xls").Close
  4247. '==================================================
  4248. 7:
  4249. On Error GoTo a8
  4250. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  4251. Windows("DSDI905_0716.xls").Activate
  4252. Sheets("Лист2").Select
  4253. formula2sh
  4254. Range("G6:H32").Copy
  4255. wb.Activate
  4256. Sheets("buffer").Select
  4257. Range("S2").Select
  4258. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4259. Windows("DSDI905_0716.xls").Activate
  4260. Sheets("Лист3").Select
  4261. formula3sh
  4262. Range("G6:H21").Copy
  4263. wb.Activate
  4264. Sheets("buffer").Select
  4265. Range("S29").Select
  4266. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4267. Windows("DSDI905_0716.xls").Activate
  4268. ActiveWorkbook.Save
  4269. Windows("DSDI905_0716.xls").Close
  4270. '==================================================
  4271. a8:
  4272. On Error GoTo a9
  4273. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  4274. Windows("DSDI905_0816.xls").Activate
  4275. Sheets("Лист2").Select
  4276. formula2sh
  4277. Range("G6:H32").Copy
  4278. wb.Activate
  4279. Sheets("buffer").Select
  4280. Range("V2").Select
  4281. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4282. Windows("DSDI905_0816.xls").Activate
  4283. Sheets("Лист3").Select
  4284. formula3sh
  4285. Range("G6:H21").Copy
  4286. wb.Activate
  4287. Sheets("buffer").Select
  4288. Range("V29").Select
  4289. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4290. Windows("DSDI905_0816.xls").Activate
  4291. ActiveWorkbook.Save
  4292. Windows("DSDI905_0816.xls").Close
  4293. '==================================================
  4294. a9:
  4295. On Error GoTo a10
  4296. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  4297. Windows("DSDI905_0916.xls").Activate
  4298. Sheets("Лист2").Select
  4299. formula2sh
  4300. Range("G6:H32").Copy
  4301. wb.Activate
  4302. Sheets("buffer").Select
  4303. Range("Y2").Select
  4304. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4305. Windows("DSDI905_0916.xls").Activate
  4306. Sheets("Лист3").Select
  4307. formula3sh
  4308. Range("G6:H21").Copy
  4309. wb.Activate
  4310. Sheets("buffer").Select
  4311. Range("Y29").Select
  4312. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4313. Windows("DSDI905_0916.xls").Activate
  4314. ActiveWorkbook.Save
  4315. Windows("DSDI905_0916.xls").Close
  4316. '==================================================
  4317. a10:
  4318. On Error GoTo a11
  4319. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  4320. Windows("DSDI905_1016.xls").Activate
  4321. Sheets("Лист2").Select
  4322. formula2sh
  4323. Range("G6:H32").Copy
  4324. wb.Activate
  4325. Sheets("buffer").Select
  4326. Range("AB2").Select
  4327. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4328. Windows("DSDI905_1016.xls").Activate
  4329. Sheets("Лист3").Select
  4330. formula3sh
  4331. Range("G6:H21").Copy
  4332. wb.Activate
  4333. Sheets("buffer").Select
  4334. Range("AB29").Select
  4335. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4336. Windows("DSDI905_1016.xls").Activate
  4337. ActiveWorkbook.Save
  4338. Windows("DSDI905_1016.xls").Close
  4339. '==================================================
  4340. a11:
  4341. On Error GoTo a12
  4342. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  4343. Windows("DSDI905_1116.xls").Activate
  4344. Sheets("Лист2").Select
  4345. formula2sh
  4346. Range("G6:H32").Copy
  4347. wb.Activate
  4348. Sheets("buffer").Select
  4349. Range("AE2").Select
  4350. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4351. Windows("DSDI905_1116.xls").Activate
  4352. Sheets("Лист3").Select
  4353. formula3sh
  4354. Range("G6:H21").Copy
  4355. wb.Activate
  4356. Sheets("buffer").Select
  4357. Range("AE29").Select
  4358. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4359. Windows("DSDI905_1116.xls").Activate
  4360. ActiveWorkbook.Save
  4361. Windows("DSDI905_0116.xls").Close
  4362. '==================================================
  4363. a12:
  4364. On Error GoTo a13
  4365. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  4366. Windows("DSDI905_1216.xls").Activate
  4367. Sheets("Лист2").Select
  4368. formula2sh
  4369. Range("G6:H32").Copy
  4370. wb.Activate
  4371. Sheets("buffer").Select
  4372. Range("AH2").Select
  4373. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4374. Windows("DSDI905_1216.xls").Activate
  4375. Sheets("Лист3").Select
  4376. formula3sh
  4377. Range("G6:H21").Copy
  4378. wb.Activate
  4379. Sheets("buffer").Select
  4380. Range("AH29").Select
  4381. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4382. Windows("DSDI905_1216.xls").Activate
  4383. ActiveWorkbook.Save
  4384. Windows("DSDI905_1216.xls").Close
  4385. '==================================================On Error GoTo 2
  4386. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  4387. Windows("DSDI905_0116.xls").Activate
  4388. Sheets("Лист2").Select
  4389. formula2sh
  4390. Range("G6:H32").Copy
  4391. wb.Activate
  4392. Sheets("buffer").Select
  4393. Range("A2").Select
  4394. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4395. Windows("DSDI905_0116.xls").Activate
  4396. Sheets("Лист3").Select
  4397. formula3sh
  4398. Range("G6:H21").Copy
  4399. wb.Activate
  4400. Sheets("buffer").Select
  4401. Range("A29").Select
  4402. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4403. Windows("DSDI905_0116.xls").Activate
  4404. ActiveWorkbook.Save
  4405. Windows("DSDI905_0116.xls").Close
  4406. '==================================================
  4407. 2:
  4408. On Error GoTo 3
  4409. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  4410. Windows("DSDI905_0216.xls").Activate
  4411. Sheets("Лист2").Select
  4412. formula2sh
  4413. Range("G6:H32").Copy
  4414. wb.Activate
  4415. Sheets("buffer").Select
  4416. Range("D2").Select
  4417. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4418. Windows("DSDI905_0216.xls").Activate
  4419. Sheets("Лист3").Select
  4420. formula3sh
  4421. Range("G6:H21").Copy
  4422. wb.Activate
  4423. Sheets("buffer").Select
  4424. Range("D29").Select
  4425. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4426. Windows("DSDI905_0216.xls").Activate
  4427. ActiveWorkbook.Save
  4428. Windows("DSDI905_0216.xls").Close
  4429. '==================================================
  4430. 3:
  4431. On Error GoTo 4
  4432. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  4433. Windows("DSDI905_0316.xls").Activate
  4434. Sheets("Лист2").Select
  4435. formula2sh
  4436. Range("G6:H32").Copy
  4437. wb.Activate
  4438. Sheets("buffer").Select
  4439. Range("G2").Select
  4440. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4441. Windows("DSDI905_0316.xls").Activate
  4442. Sheets("Лист3").Select
  4443. formula3sh
  4444. Range("G6:H21").Copy
  4445. wb.Activate
  4446. Sheets("buffer").Select
  4447. Range("G29").Select
  4448. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4449. Windows("DSDI905_0316.xls").Activate
  4450. ActiveWorkbook.Save
  4451. Windows("DSDI905_0316.xls").Close
  4452. '==================================================
  4453. 4:
  4454. On Error GoTo 5
  4455. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  4456. Windows("DSDI905_0416.xls").Activate
  4457. Sheets("Лист2").Select
  4458. formula2sh
  4459. Range("G6:H32").Copy
  4460. wb.Activate
  4461. Sheets("buffer").Select
  4462. Range("J2").Select
  4463. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4464. Windows("DSDI905_0416.xls").Activate
  4465. Sheets("Лист3").Select
  4466. formula3sh
  4467. Range("G6:H21").Copy
  4468. wb.Activate
  4469. Sheets("buffer").Select
  4470. Range("J29").Select
  4471. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4472. Windows("DSDI905_0416.xls").Activate
  4473. ActiveWorkbook.Save
  4474. Windows("DSDI905_0416.xls").Close
  4475. '==================================================
  4476. 5:
  4477. On Error GoTo 6
  4478. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  4479. Windows("DSDI905_0516.xls").Activate
  4480. Sheets("Лист2").Select
  4481. formula2sh
  4482. Range("G6:H32").Copy
  4483. wb.Activate
  4484. Sheets("buffer").Select
  4485. Range("M2").Select
  4486. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4487. Windows("DSDI905_0516.xls").Activate
  4488. Sheets("Лист3").Select
  4489. formula3sh
  4490. Range("G6:H21").Copy
  4491. wb.Activate
  4492. Sheets("buffer").Select
  4493. Range("M29").Select
  4494. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4495. Windows("DSDI905_0516.xls").Activate
  4496. ActiveWorkbook.Save
  4497. Windows("DSDI905_0516.xls").Close
  4498. '==================================================
  4499. 6:
  4500. On Error GoTo 7
  4501. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  4502. Windows("DSDI905_0616.xls").Activate
  4503. Sheets("Лист2").Select
  4504. formula2sh
  4505. Range("G6:H32").Copy
  4506. wb.Activate
  4507. Sheets("buffer").Select
  4508. Range("P2").Select
  4509. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4510. Windows("DSDI905_0616.xls").Activate
  4511. Sheets("Лист3").Select
  4512. formula3sh
  4513. Range("G6:H21").Copy
  4514. wb.Activate
  4515. Sheets("buffer").Select
  4516. Range("P29").Select
  4517. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4518. Windows("DSDI905_0616.xls").Activate
  4519. ActiveWorkbook.Save
  4520. Windows("DSDI905_0616.xls").Close
  4521. '==================================================
  4522. 7:
  4523. On Error GoTo a8
  4524. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  4525. Windows("DSDI905_0716.xls").Activate
  4526. Sheets("Лист2").Select
  4527. formula2sh
  4528. Range("G6:H32").Copy
  4529. wb.Activate
  4530. Sheets("buffer").Select
  4531. Range("S2").Select
  4532. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4533. Windows("DSDI905_0716.xls").Activate
  4534. Sheets("Лист3").Select
  4535. formula3sh
  4536. Range("G6:H21").Copy
  4537. wb.Activate
  4538. Sheets("buffer").Select
  4539. Range("S29").Select
  4540. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4541. Windows("DSDI905_0716.xls").Activate
  4542. ActiveWorkbook.Save
  4543. Windows("DSDI905_0716.xls").Close
  4544. '==================================================
  4545. a8:
  4546. On Error GoTo a9
  4547. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  4548. Windows("DSDI905_0816.xls").Activate
  4549. Sheets("Лист2").Select
  4550. formula2sh
  4551. Range("G6:H32").Copy
  4552. wb.Activate
  4553. Sheets("buffer").Select
  4554. Range("V2").Select
  4555. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4556. Windows("DSDI905_0816.xls").Activate
  4557. Sheets("Лист3").Select
  4558. formula3sh
  4559. Range("G6:H21").Copy
  4560. wb.Activate
  4561. Sheets("buffer").Select
  4562. Range("V29").Select
  4563. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4564. Windows("DSDI905_0816.xls").Activate
  4565. ActiveWorkbook.Save
  4566. Windows("DSDI905_0816.xls").Close
  4567. '==================================================
  4568. a9:
  4569. On Error GoTo a10
  4570. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  4571. Windows("DSDI905_0916.xls").Activate
  4572. Sheets("Лист2").Select
  4573. formula2sh
  4574. Range("G6:H32").Copy
  4575. wb.Activate
  4576. Sheets("buffer").Select
  4577. Range("Y2").Select
  4578. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4579. Windows("DSDI905_0916.xls").Activate
  4580. Sheets("Лист3").Select
  4581. formula3sh
  4582. Range("G6:H21").Copy
  4583. wb.Activate
  4584. Sheets("buffer").Select
  4585. Range("Y29").Select
  4586. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4587. Windows("DSDI905_0916.xls").Activate
  4588. ActiveWorkbook.Save
  4589. Windows("DSDI905_0916.xls").Close
  4590. '==================================================
  4591. a10:
  4592. On Error GoTo a11
  4593. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  4594. Windows("DSDI905_1016.xls").Activate
  4595. Sheets("Лист2").Select
  4596. formula2sh
  4597. Range("G6:H32").Copy
  4598. wb.Activate
  4599. Sheets("buffer").Select
  4600. Range("AB2").Select
  4601. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4602. Windows("DSDI905_1016.xls").Activate
  4603. Sheets("Лист3").Select
  4604. formula3sh
  4605. Range("G6:H21").Copy
  4606. wb.Activate
  4607. Sheets("buffer").Select
  4608. Range("AB29").Select
  4609. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4610. Windows("DSDI905_1016.xls").Activate
  4611. ActiveWorkbook.Save
  4612. Windows("DSDI905_1016.xls").Close
  4613. '==================================================
  4614. a11:
  4615. On Error GoTo a12
  4616. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  4617. Windows("DSDI905_1116.xls").Activate
  4618. Sheets("Лист2").Select
  4619. formula2sh
  4620. Range("G6:H32").Copy
  4621. wb.Activate
  4622. Sheets("buffer").Select
  4623. Range("AE2").Select
  4624. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4625. Windows("DSDI905_1116.xls").Activate
  4626. Sheets("Лист3").Select
  4627. formula3sh
  4628. Range("G6:H21").Copy
  4629. wb.Activate
  4630. Sheets("buffer").Select
  4631. Range("AE29").Select
  4632. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4633. Windows("DSDI905_1116.xls").Activate
  4634. ActiveWorkbook.Save
  4635. Windows("DSDI905_0116.xls").Close
  4636. '==================================================
  4637. a12:
  4638. On Error GoTo a13
  4639. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  4640. Windows("DSDI905_1216.xls").Activate
  4641. Sheets("Лист2").Select
  4642. formula2sh
  4643. Range("G6:H32").Copy
  4644. wb.Activate
  4645. Sheets("buffer").Select
  4646. Range("AH2").Select
  4647. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4648. Windows("DSDI905_1216.xls").Activate
  4649. Sheets("Лист3").Select
  4650. formula3sh
  4651. Range("G6:H21").Copy
  4652. wb.Activate
  4653. Sheets("buffer").Select
  4654. Range("AH29").Select
  4655. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4656. Windows("DSDI905_1216.xls").Activate
  4657. ActiveWorkbook.Save
  4658. Windows("DSDI905_1216.xls").Close
  4659. '==================================================On Error GoTo 2
  4660. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  4661. Windows("DSDI905_0116.xls").Activate
  4662. Sheets("Лист2").Select
  4663. formula2sh
  4664. Range("G6:H32").Copy
  4665. wb.Activate
  4666. Sheets("buffer").Select
  4667. Range("A2").Select
  4668. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4669. Windows("DSDI905_0116.xls").Activate
  4670. Sheets("Лист3").Select
  4671. formula3sh
  4672. Range("G6:H21").Copy
  4673. wb.Activate
  4674. Sheets("buffer").Select
  4675. Range("A29").Select
  4676. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4677. Windows("DSDI905_0116.xls").Activate
  4678. ActiveWorkbook.Save
  4679. Windows("DSDI905_0116.xls").Close
  4680. '==================================================
  4681. 2:
  4682. On Error GoTo 3
  4683. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  4684. Windows("DSDI905_0216.xls").Activate
  4685. Sheets("Лист2").Select
  4686. formula2sh
  4687. Range("G6:H32").Copy
  4688. wb.Activate
  4689. Sheets("buffer").Select
  4690. Range("D2").Select
  4691. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4692. Windows("DSDI905_0216.xls").Activate
  4693. Sheets("Лист3").Select
  4694. formula3sh
  4695. Range("G6:H21").Copy
  4696. wb.Activate
  4697. Sheets("buffer").Select
  4698. Range("D29").Select
  4699. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4700. Windows("DSDI905_0216.xls").Activate
  4701. ActiveWorkbook.Save
  4702. Windows("DSDI905_0216.xls").Close
  4703. '==================================================
  4704. 3:
  4705. On Error GoTo 4
  4706. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  4707. Windows("DSDI905_0316.xls").Activate
  4708. Sheets("Лист2").Select
  4709. formula2sh
  4710. Range("G6:H32").Copy
  4711. wb.Activate
  4712. Sheets("buffer").Select
  4713. Range("G2").Select
  4714. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4715. Windows("DSDI905_0316.xls").Activate
  4716. Sheets("Лист3").Select
  4717. formula3sh
  4718. Range("G6:H21").Copy
  4719. wb.Activate
  4720. Sheets("buffer").Select
  4721. Range("G29").Select
  4722. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4723. Windows("DSDI905_0316.xls").Activate
  4724. ActiveWorkbook.Save
  4725. Windows("DSDI905_0316.xls").Close
  4726. '==================================================
  4727. 4:
  4728. On Error GoTo 5
  4729. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  4730. Windows("DSDI905_0416.xls").Activate
  4731. Sheets("Лист2").Select
  4732. formula2sh
  4733. Range("G6:H32").Copy
  4734. wb.Activate
  4735. Sheets("buffer").Select
  4736. Range("J2").Select
  4737. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4738. Windows("DSDI905_0416.xls").Activate
  4739. Sheets("Лист3").Select
  4740. formula3sh
  4741. Range("G6:H21").Copy
  4742. wb.Activate
  4743. Sheets("buffer").Select
  4744. Range("J29").Select
  4745. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4746. Windows("DSDI905_0416.xls").Activate
  4747. ActiveWorkbook.Save
  4748. Windows("DSDI905_0416.xls").Close
  4749. '==================================================
  4750. 5:
  4751. On Error GoTo 6
  4752. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  4753. Windows("DSDI905_0516.xls").Activate
  4754. Sheets("Лист2").Select
  4755. formula2sh
  4756. Range("G6:H32").Copy
  4757. wb.Activate
  4758. Sheets("buffer").Select
  4759. Range("M2").Select
  4760. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4761. Windows("DSDI905_0516.xls").Activate
  4762. Sheets("Лист3").Select
  4763. formula3sh
  4764. Range("G6:H21").Copy
  4765. wb.Activate
  4766. Sheets("buffer").Select
  4767. Range("M29").Select
  4768. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4769. Windows("DSDI905_0516.xls").Activate
  4770. ActiveWorkbook.Save
  4771. Windows("DSDI905_0516.xls").Close
  4772. '==================================================
  4773. 6:
  4774. On Error GoTo 7
  4775. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  4776. Windows("DSDI905_0616.xls").Activate
  4777. Sheets("Лист2").Select
  4778. formula2sh
  4779. Range("G6:H32").Copy
  4780. wb.Activate
  4781. Sheets("buffer").Select
  4782. Range("P2").Select
  4783. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4784. Windows("DSDI905_0616.xls").Activate
  4785. Sheets("Лист3").Select
  4786. formula3sh
  4787. Range("G6:H21").Copy
  4788. wb.Activate
  4789. Sheets("buffer").Select
  4790. Range("P29").Select
  4791. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4792. Windows("DSDI905_0616.xls").Activate
  4793. ActiveWorkbook.Save
  4794. Windows("DSDI905_0616.xls").Close
  4795. '==================================================
  4796. 7:
  4797. On Error GoTo a8
  4798. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  4799. Windows("DSDI905_0716.xls").Activate
  4800. Sheets("Лист2").Select
  4801. formula2sh
  4802. Range("G6:H32").Copy
  4803. wb.Activate
  4804. Sheets("buffer").Select
  4805. Range("S2").Select
  4806. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4807. Windows("DSDI905_0716.xls").Activate
  4808. Sheets("Лист3").Select
  4809. formula3sh
  4810. Range("G6:H21").Copy
  4811. wb.Activate
  4812. Sheets("buffer").Select
  4813. Range("S29").Select
  4814. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4815. Windows("DSDI905_0716.xls").Activate
  4816. ActiveWorkbook.Save
  4817. Windows("DSDI905_0716.xls").Close
  4818. '==================================================
  4819. a8:
  4820. On Error GoTo a9
  4821. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  4822. Windows("DSDI905_0816.xls").Activate
  4823. Sheets("Лист2").Select
  4824. formula2sh
  4825. Range("G6:H32").Copy
  4826. wb.Activate
  4827. Sheets("buffer").Select
  4828. Range("V2").Select
  4829. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4830. Windows("DSDI905_0816.xls").Activate
  4831. Sheets("Лист3").Select
  4832. formula3sh
  4833. Range("G6:H21").Copy
  4834. wb.Activate
  4835. Sheets("buffer").Select
  4836. Range("V29").Select
  4837. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4838. Windows("DSDI905_0816.xls").Activate
  4839. ActiveWorkbook.Save
  4840. Windows("DSDI905_0816.xls").Close
  4841. '==================================================
  4842. a9:
  4843. On Error GoTo a10
  4844. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  4845. Windows("DSDI905_0916.xls").Activate
  4846. Sheets("Лист2").Select
  4847. formula2sh
  4848. Range("G6:H32").Copy
  4849. wb.Activate
  4850. Sheets("buffer").Select
  4851. Range("Y2").Select
  4852. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4853. Windows("DSDI905_0916.xls").Activate
  4854. Sheets("Лист3").Select
  4855. formula3sh
  4856. Range("G6:H21").Copy
  4857. wb.Activate
  4858. Sheets("buffer").Select
  4859. Range("Y29").Select
  4860. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4861. Windows("DSDI905_0916.xls").Activate
  4862. ActiveWorkbook.Save
  4863. Windows("DSDI905_0916.xls").Close
  4864. '==================================================
  4865. a10:
  4866. On Error GoTo a11
  4867. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  4868. Windows("DSDI905_1016.xls").Activate
  4869. Sheets("Лист2").Select
  4870. formula2sh
  4871. Range("G6:H32").Copy
  4872. wb.Activate
  4873. Sheets("buffer").Select
  4874. Range("AB2").Select
  4875. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4876. Windows("DSDI905_1016.xls").Activate
  4877. Sheets("Лист3").Select
  4878. formula3sh
  4879. Range("G6:H21").Copy
  4880. wb.Activate
  4881. Sheets("buffer").Select
  4882. Range("AB29").Select
  4883. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4884. Windows("DSDI905_1016.xls").Activate
  4885. ActiveWorkbook.Save
  4886. Windows("DSDI905_1016.xls").Close
  4887. '==================================================
  4888. a11:
  4889. On Error GoTo a12
  4890. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  4891. Windows("DSDI905_1116.xls").Activate
  4892. Sheets("Лист2").Select
  4893. formula2sh
  4894. Range("G6:H32").Copy
  4895. wb.Activate
  4896. Sheets("buffer").Select
  4897. Range("AE2").Select
  4898. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4899. Windows("DSDI905_1116.xls").Activate
  4900. Sheets("Лист3").Select
  4901. formula3sh
  4902. Range("G6:H21").Copy
  4903. wb.Activate
  4904. Sheets("buffer").Select
  4905. Range("AE29").Select
  4906. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4907. Windows("DSDI905_1116.xls").Activate
  4908. ActiveWorkbook.Save
  4909. Windows("DSDI905_0116.xls").Close
  4910. '==================================================
  4911. a12:
  4912. On Error GoTo a13
  4913. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  4914. Windows("DSDI905_1216.xls").Activate
  4915. Sheets("Лист2").Select
  4916. formula2sh
  4917. Range("G6:H32").Copy
  4918. wb.Activate
  4919. Sheets("buffer").Select
  4920. Range("AH2").Select
  4921. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4922. Windows("DSDI905_1216.xls").Activate
  4923. Sheets("Лист3").Select
  4924. formula3sh
  4925. Range("G6:H21").Copy
  4926. wb.Activate
  4927. Sheets("buffer").Select
  4928. Range("AH29").Select
  4929. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4930. Windows("DSDI905_1216.xls").Activate
  4931. ActiveWorkbook.Save
  4932. Windows("DSDI905_1216.xls").Close
  4933. '==================================================On Error GoTo 2
  4934. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  4935. Windows("DSDI905_0116.xls").Activate
  4936. Sheets("Лист2").Select
  4937. formula2sh
  4938. Range("G6:H32").Copy
  4939. wb.Activate
  4940. Sheets("buffer").Select
  4941. Range("A2").Select
  4942. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4943. Windows("DSDI905_0116.xls").Activate
  4944. Sheets("Лист3").Select
  4945. formula3sh
  4946. Range("G6:H21").Copy
  4947. wb.Activate
  4948. Sheets("buffer").Select
  4949. Range("A29").Select
  4950. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4951. Windows("DSDI905_0116.xls").Activate
  4952. ActiveWorkbook.Save
  4953. Windows("DSDI905_0116.xls").Close
  4954. '==================================================
  4955. 2:
  4956. On Error GoTo 3
  4957. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  4958. Windows("DSDI905_0216.xls").Activate
  4959. Sheets("Лист2").Select
  4960. formula2sh
  4961. Range("G6:H32").Copy
  4962. wb.Activate
  4963. Sheets("buffer").Select
  4964. Range("D2").Select
  4965. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4966. Windows("DSDI905_0216.xls").Activate
  4967. Sheets("Лист3").Select
  4968. formula3sh
  4969. Range("G6:H21").Copy
  4970. wb.Activate
  4971. Sheets("buffer").Select
  4972. Range("D29").Select
  4973. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4974. Windows("DSDI905_0216.xls").Activate
  4975. ActiveWorkbook.Save
  4976. Windows("DSDI905_0216.xls").Close
  4977. '==================================================
  4978. 3:
  4979. On Error GoTo 4
  4980. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  4981. Windows("DSDI905_0316.xls").Activate
  4982. Sheets("Лист2").Select
  4983. formula2sh
  4984. Range("G6:H32").Copy
  4985. wb.Activate
  4986. Sheets("buffer").Select
  4987. Range("G2").Select
  4988. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4989. Windows("DSDI905_0316.xls").Activate
  4990. Sheets("Лист3").Select
  4991. formula3sh
  4992. Range("G6:H21").Copy
  4993. wb.Activate
  4994. Sheets("buffer").Select
  4995. Range("G29").Select
  4996. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  4997. Windows("DSDI905_0316.xls").Activate
  4998. ActiveWorkbook.Save
  4999. Windows("DSDI905_0316.xls").Close
  5000. '==================================================
  5001. 4:
  5002. On Error GoTo 5
  5003. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  5004. Windows("DSDI905_0416.xls").Activate
  5005. Sheets("Лист2").Select
  5006. formula2sh
  5007. Range("G6:H32").Copy
  5008. wb.Activate
  5009. Sheets("buffer").Select
  5010. Range("J2").Select
  5011. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5012. Windows("DSDI905_0416.xls").Activate
  5013. Sheets("Лист3").Select
  5014. formula3sh
  5015. Range("G6:H21").Copy
  5016. wb.Activate
  5017. Sheets("buffer").Select
  5018. Range("J29").Select
  5019. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5020. Windows("DSDI905_0416.xls").Activate
  5021. ActiveWorkbook.Save
  5022. Windows("DSDI905_0416.xls").Close
  5023. '==================================================
  5024. 5:
  5025. On Error GoTo 6
  5026. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  5027. Windows("DSDI905_0516.xls").Activate
  5028. Sheets("Лист2").Select
  5029. formula2sh
  5030. Range("G6:H32").Copy
  5031. wb.Activate
  5032. Sheets("buffer").Select
  5033. Range("M2").Select
  5034. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5035. Windows("DSDI905_0516.xls").Activate
  5036. Sheets("Лист3").Select
  5037. formula3sh
  5038. Range("G6:H21").Copy
  5039. wb.Activate
  5040. Sheets("buffer").Select
  5041. Range("M29").Select
  5042. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5043. Windows("DSDI905_0516.xls").Activate
  5044. ActiveWorkbook.Save
  5045. Windows("DSDI905_0516.xls").Close
  5046. '==================================================
  5047. 6:
  5048. On Error GoTo 7
  5049. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  5050. Windows("DSDI905_0616.xls").Activate
  5051. Sheets("Лист2").Select
  5052. formula2sh
  5053. Range("G6:H32").Copy
  5054. wb.Activate
  5055. Sheets("buffer").Select
  5056. Range("P2").Select
  5057. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5058. Windows("DSDI905_0616.xls").Activate
  5059. Sheets("Лист3").Select
  5060. formula3sh
  5061. Range("G6:H21").Copy
  5062. wb.Activate
  5063. Sheets("buffer").Select
  5064. Range("P29").Select
  5065. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5066. Windows("DSDI905_0616.xls").Activate
  5067. ActiveWorkbook.Save
  5068. Windows("DSDI905_0616.xls").Close
  5069. '==================================================
  5070. 7:
  5071. On Error GoTo a8
  5072. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  5073. Windows("DSDI905_0716.xls").Activate
  5074. Sheets("Лист2").Select
  5075. formula2sh
  5076. Range("G6:H32").Copy
  5077. wb.Activate
  5078. Sheets("buffer").Select
  5079. Range("S2").Select
  5080. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5081. Windows("DSDI905_0716.xls").Activate
  5082. Sheets("Лист3").Select
  5083. formula3sh
  5084. Range("G6:H21").Copy
  5085. wb.Activate
  5086. Sheets("buffer").Select
  5087. Range("S29").Select
  5088. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5089. Windows("DSDI905_0716.xls").Activate
  5090. ActiveWorkbook.Save
  5091. Windows("DSDI905_0716.xls").Close
  5092. '==================================================
  5093. a8:
  5094. On Error GoTo a9
  5095. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  5096. Windows("DSDI905_0816.xls").Activate
  5097. Sheets("Лист2").Select
  5098. formula2sh
  5099. Range("G6:H32").Copy
  5100. wb.Activate
  5101. Sheets("buffer").Select
  5102. Range("V2").Select
  5103. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5104. Windows("DSDI905_0816.xls").Activate
  5105. Sheets("Лист3").Select
  5106. formula3sh
  5107. Range("G6:H21").Copy
  5108. wb.Activate
  5109. Sheets("buffer").Select
  5110. Range("V29").Select
  5111. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5112. Windows("DSDI905_0816.xls").Activate
  5113. ActiveWorkbook.Save
  5114. Windows("DSDI905_0816.xls").Close
  5115. '==================================================
  5116. a9:
  5117. On Error GoTo a10
  5118. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  5119. Windows("DSDI905_0916.xls").Activate
  5120. Sheets("Лист2").Select
  5121. formula2sh
  5122. Range("G6:H32").Copy
  5123. wb.Activate
  5124. Sheets("buffer").Select
  5125. Range("Y2").Select
  5126. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5127. Windows("DSDI905_0916.xls").Activate
  5128. Sheets("Лист3").Select
  5129. formula3sh
  5130. Range("G6:H21").Copy
  5131. wb.Activate
  5132. Sheets("buffer").Select
  5133. Range("Y29").Select
  5134. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5135. Windows("DSDI905_0916.xls").Activate
  5136. ActiveWorkbook.Save
  5137. Windows("DSDI905_0916.xls").Close
  5138. '==================================================
  5139. a10:
  5140. On Error GoTo a11
  5141. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  5142. Windows("DSDI905_1016.xls").Activate
  5143. Sheets("Лист2").Select
  5144. formula2sh
  5145. Range("G6:H32").Copy
  5146. wb.Activate
  5147. Sheets("buffer").Select
  5148. Range("AB2").Select
  5149. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5150. Windows("DSDI905_1016.xls").Activate
  5151. Sheets("Лист3").Select
  5152. formula3sh
  5153. Range("G6:H21").Copy
  5154. wb.Activate
  5155. Sheets("buffer").Select
  5156. Range("AB29").Select
  5157. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5158. Windows("DSDI905_1016.xls").Activate
  5159. ActiveWorkbook.Save
  5160. Windows("DSDI905_1016.xls").Close
  5161. '==================================================
  5162. a11:
  5163. On Error GoTo a12
  5164. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  5165. Windows("DSDI905_1116.xls").Activate
  5166. Sheets("Лист2").Select
  5167. formula2sh
  5168. Range("G6:H32").Copy
  5169. wb.Activate
  5170. Sheets("buffer").Select
  5171. Range("AE2").Select
  5172. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5173. Windows("DSDI905_1116.xls").Activate
  5174. Sheets("Лист3").Select
  5175. formula3sh
  5176. Range("G6:H21").Copy
  5177. wb.Activate
  5178. Sheets("buffer").Select
  5179. Range("AE29").Select
  5180. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5181. Windows("DSDI905_1116.xls").Activate
  5182. ActiveWorkbook.Save
  5183. Windows("DSDI905_0116.xls").Close
  5184. '==================================================
  5185. a12:
  5186. On Error GoTo a13
  5187. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  5188. Windows("DSDI905_1216.xls").Activate
  5189. Sheets("Лист2").Select
  5190. formula2sh
  5191. Range("G6:H32").Copy
  5192. wb.Activate
  5193. Sheets("buffer").Select
  5194. Range("AH2").Select
  5195. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5196. Windows("DSDI905_1216.xls").Activate
  5197. Sheets("Лист3").Select
  5198. formula3sh
  5199. Range("G6:H21").Copy
  5200. wb.Activate
  5201. Sheets("buffer").Select
  5202. Range("AH29").Select
  5203. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5204. Windows("DSDI905_1216.xls").Activate
  5205. ActiveWorkbook.Save
  5206. Windows("DSDI905_1216.xls").Close
  5207. '==================================================On Error GoTo 2
  5208. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  5209. Windows("DSDI905_0116.xls").Activate
  5210. Sheets("Лист2").Select
  5211. formula2sh
  5212. Range("G6:H32").Copy
  5213. wb.Activate
  5214. Sheets("buffer").Select
  5215. Range("A2").Select
  5216. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5217. Windows("DSDI905_0116.xls").Activate
  5218. Sheets("Лист3").Select
  5219. formula3sh
  5220. Range("G6:H21").Copy
  5221. wb.Activate
  5222. Sheets("buffer").Select
  5223. Range("A29").Select
  5224. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5225. Windows("DSDI905_0116.xls").Activate
  5226. ActiveWorkbook.Save
  5227. Windows("DSDI905_0116.xls").Close
  5228. '==================================================
  5229. 2:
  5230. On Error GoTo 3
  5231. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  5232. Windows("DSDI905_0216.xls").Activate
  5233. Sheets("Лист2").Select
  5234. formula2sh
  5235. Range("G6:H32").Copy
  5236. wb.Activate
  5237. Sheets("buffer").Select
  5238. Range("D2").Select
  5239. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5240. Windows("DSDI905_0216.xls").Activate
  5241. Sheets("Лист3").Select
  5242. formula3sh
  5243. Range("G6:H21").Copy
  5244. wb.Activate
  5245. Sheets("buffer").Select
  5246. Range("D29").Select
  5247. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5248. Windows("DSDI905_0216.xls").Activate
  5249. ActiveWorkbook.Save
  5250. Windows("DSDI905_0216.xls").Close
  5251. '==================================================
  5252. 3:
  5253. On Error GoTo 4
  5254. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  5255. Windows("DSDI905_0316.xls").Activate
  5256. Sheets("Лист2").Select
  5257. formula2sh
  5258. Range("G6:H32").Copy
  5259. wb.Activate
  5260. Sheets("buffer").Select
  5261. Range("G2").Select
  5262. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5263. Windows("DSDI905_0316.xls").Activate
  5264. Sheets("Лист3").Select
  5265. formula3sh
  5266. Range("G6:H21").Copy
  5267. wb.Activate
  5268. Sheets("buffer").Select
  5269. Range("G29").Select
  5270. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5271. Windows("DSDI905_0316.xls").Activate
  5272. ActiveWorkbook.Save
  5273. Windows("DSDI905_0316.xls").Close
  5274. '==================================================
  5275. 4:
  5276. On Error GoTo 5
  5277. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  5278. Windows("DSDI905_0416.xls").Activate
  5279. Sheets("Лист2").Select
  5280. formula2sh
  5281. Range("G6:H32").Copy
  5282. wb.Activate
  5283. Sheets("buffer").Select
  5284. Range("J2").Select
  5285. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5286. Windows("DSDI905_0416.xls").Activate
  5287. Sheets("Лист3").Select
  5288. formula3sh
  5289. Range("G6:H21").Copy
  5290. wb.Activate
  5291. Sheets("buffer").Select
  5292. Range("J29").Select
  5293. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5294. Windows("DSDI905_0416.xls").Activate
  5295. ActiveWorkbook.Save
  5296. Windows("DSDI905_0416.xls").Close
  5297. '==================================================
  5298. 5:
  5299. On Error GoTo 6
  5300. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  5301. Windows("DSDI905_0516.xls").Activate
  5302. Sheets("Лист2").Select
  5303. formula2sh
  5304. Range("G6:H32").Copy
  5305. wb.Activate
  5306. Sheets("buffer").Select
  5307. Range("M2").Select
  5308. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5309. Windows("DSDI905_0516.xls").Activate
  5310. Sheets("Лист3").Select
  5311. formula3sh
  5312. Range("G6:H21").Copy
  5313. wb.Activate
  5314. Sheets("buffer").Select
  5315. Range("M29").Select
  5316. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5317. Windows("DSDI905_0516.xls").Activate
  5318. ActiveWorkbook.Save
  5319. Windows("DSDI905_0516.xls").Close
  5320. '==================================================
  5321. 6:
  5322. On Error GoTo 7
  5323. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  5324. Windows("DSDI905_0616.xls").Activate
  5325. Sheets("Лист2").Select
  5326. formula2sh
  5327. Range("G6:H32").Copy
  5328. wb.Activate
  5329. Sheets("buffer").Select
  5330. Range("P2").Select
  5331. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5332. Windows("DSDI905_0616.xls").Activate
  5333. Sheets("Лист3").Select
  5334. formula3sh
  5335. Range("G6:H21").Copy
  5336. wb.Activate
  5337. Sheets("buffer").Select
  5338. Range("P29").Select
  5339. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5340. Windows("DSDI905_0616.xls").Activate
  5341. ActiveWorkbook.Save
  5342. Windows("DSDI905_0616.xls").Close
  5343. '==================================================
  5344. 7:
  5345. On Error GoTo a8
  5346. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  5347. Windows("DSDI905_0716.xls").Activate
  5348. Sheets("Лист2").Select
  5349. formula2sh
  5350. Range("G6:H32").Copy
  5351. wb.Activate
  5352. Sheets("buffer").Select
  5353. Range("S2").Select
  5354. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5355. Windows("DSDI905_0716.xls").Activate
  5356. Sheets("Лист3").Select
  5357. formula3sh
  5358. Range("G6:H21").Copy
  5359. wb.Activate
  5360. Sheets("buffer").Select
  5361. Range("S29").Select
  5362. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5363. Windows("DSDI905_0716.xls").Activate
  5364. ActiveWorkbook.Save
  5365. Windows("DSDI905_0716.xls").Close
  5366. '==================================================
  5367. a8:
  5368. On Error GoTo a9
  5369. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  5370. Windows("DSDI905_0816.xls").Activate
  5371. Sheets("Лист2").Select
  5372. formula2sh
  5373. Range("G6:H32").Copy
  5374. wb.Activate
  5375. Sheets("buffer").Select
  5376. Range("V2").Select
  5377. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5378. Windows("DSDI905_0816.xls").Activate
  5379. Sheets("Лист3").Select
  5380. formula3sh
  5381. Range("G6:H21").Copy
  5382. wb.Activate
  5383. Sheets("buffer").Select
  5384. Range("V29").Select
  5385. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5386. Windows("DSDI905_0816.xls").Activate
  5387. ActiveWorkbook.Save
  5388. Windows("DSDI905_0816.xls").Close
  5389. '==================================================
  5390. a9:
  5391. On Error GoTo a10
  5392. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  5393. Windows("DSDI905_0916.xls").Activate
  5394. Sheets("Лист2").Select
  5395. formula2sh
  5396. Range("G6:H32").Copy
  5397. wb.Activate
  5398. Sheets("buffer").Select
  5399. Range("Y2").Select
  5400. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5401. Windows("DSDI905_0916.xls").Activate
  5402. Sheets("Лист3").Select
  5403. formula3sh
  5404. Range("G6:H21").Copy
  5405. wb.Activate
  5406. Sheets("buffer").Select
  5407. Range("Y29").Select
  5408. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5409. Windows("DSDI905_0916.xls").Activate
  5410. ActiveWorkbook.Save
  5411. Windows("DSDI905_0916.xls").Close
  5412. '==================================================
  5413. a10:
  5414. On Error GoTo a11
  5415. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  5416. Windows("DSDI905_1016.xls").Activate
  5417. Sheets("Лист2").Select
  5418. formula2sh
  5419. Range("G6:H32").Copy
  5420. wb.Activate
  5421. Sheets("buffer").Select
  5422. Range("AB2").Select
  5423. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5424. Windows("DSDI905_1016.xls").Activate
  5425. Sheets("Лист3").Select
  5426. formula3sh
  5427. Range("G6:H21").Copy
  5428. wb.Activate
  5429. Sheets("buffer").Select
  5430. Range("AB29").Select
  5431. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5432. Windows("DSDI905_1016.xls").Activate
  5433. ActiveWorkbook.Save
  5434. Windows("DSDI905_1016.xls").Close
  5435. '==================================================
  5436. a11:
  5437. On Error GoTo a12
  5438. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  5439. Windows("DSDI905_1116.xls").Activate
  5440. Sheets("Лист2").Select
  5441. formula2sh
  5442. Range("G6:H32").Copy
  5443. wb.Activate
  5444. Sheets("buffer").Select
  5445. Range("AE2").Select
  5446. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5447. Windows("DSDI905_1116.xls").Activate
  5448. Sheets("Лист3").Select
  5449. formula3sh
  5450. Range("G6:H21").Copy
  5451. wb.Activate
  5452. Sheets("buffer").Select
  5453. Range("AE29").Select
  5454. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5455. Windows("DSDI905_1116.xls").Activate
  5456. ActiveWorkbook.Save
  5457. Windows("DSDI905_0116.xls").Close
  5458. '==================================================
  5459. a12:
  5460. On Error GoTo a13
  5461. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  5462. Windows("DSDI905_1216.xls").Activate
  5463. Sheets("Лист2").Select
  5464. formula2sh
  5465. Range("G6:H32").Copy
  5466. wb.Activate
  5467. Sheets("buffer").Select
  5468. Range("AH2").Select
  5469. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5470. Windows("DSDI905_1216.xls").Activate
  5471. Sheets("Лист3").Select
  5472. formula3sh
  5473. Range("G6:H21").Copy
  5474. wb.Activate
  5475. Sheets("buffer").Select
  5476. Range("AH29").Select
  5477. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5478. Windows("DSDI905_1216.xls").Activate
  5479. ActiveWorkbook.Save
  5480. Windows("DSDI905_1216.xls").Close
  5481. '==================================================On Error GoTo 2
  5482. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  5483. Windows("DSDI905_0116.xls").Activate
  5484. Sheets("Лист2").Select
  5485. formula2sh
  5486. Range("G6:H32").Copy
  5487. wb.Activate
  5488. Sheets("buffer").Select
  5489. Range("A2").Select
  5490. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5491. Windows("DSDI905_0116.xls").Activate
  5492. Sheets("Лист3").Select
  5493. formula3sh
  5494. Range("G6:H21").Copy
  5495. wb.Activate
  5496. Sheets("buffer").Select
  5497. Range("A29").Select
  5498. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5499. Windows("DSDI905_0116.xls").Activate
  5500. ActiveWorkbook.Save
  5501. Windows("DSDI905_0116.xls").Close
  5502. '==================================================
  5503. 2:
  5504. On Error GoTo 3
  5505. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  5506. Windows("DSDI905_0216.xls").Activate
  5507. Sheets("Лист2").Select
  5508. formula2sh
  5509. Range("G6:H32").Copy
  5510. wb.Activate
  5511. Sheets("buffer").Select
  5512. Range("D2").Select
  5513. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5514. Windows("DSDI905_0216.xls").Activate
  5515. Sheets("Лист3").Select
  5516. formula3sh
  5517. Range("G6:H21").Copy
  5518. wb.Activate
  5519. Sheets("buffer").Select
  5520. Range("D29").Select
  5521. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5522. Windows("DSDI905_0216.xls").Activate
  5523. ActiveWorkbook.Save
  5524. Windows("DSDI905_0216.xls").Close
  5525. '==================================================
  5526. 3:
  5527. On Error GoTo 4
  5528. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  5529. Windows("DSDI905_0316.xls").Activate
  5530. Sheets("Лист2").Select
  5531. formula2sh
  5532. Range("G6:H32").Copy
  5533. wb.Activate
  5534. Sheets("buffer").Select
  5535. Range("G2").Select
  5536. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5537. Windows("DSDI905_0316.xls").Activate
  5538. Sheets("Лист3").Select
  5539. formula3sh
  5540. Range("G6:H21").Copy
  5541. wb.Activate
  5542. Sheets("buffer").Select
  5543. Range("G29").Select
  5544. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5545. Windows("DSDI905_0316.xls").Activate
  5546. ActiveWorkbook.Save
  5547. Windows("DSDI905_0316.xls").Close
  5548. '==================================================
  5549. 4:
  5550. On Error GoTo 5
  5551. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  5552. Windows("DSDI905_0416.xls").Activate
  5553. Sheets("Лист2").Select
  5554. formula2sh
  5555. Range("G6:H32").Copy
  5556. wb.Activate
  5557. Sheets("buffer").Select
  5558. Range("J2").Select
  5559. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5560. Windows("DSDI905_0416.xls").Activate
  5561. Sheets("Лист3").Select
  5562. formula3sh
  5563. Range("G6:H21").Copy
  5564. wb.Activate
  5565. Sheets("buffer").Select
  5566. Range("J29").Select
  5567. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5568. Windows("DSDI905_0416.xls").Activate
  5569. ActiveWorkbook.Save
  5570. Windows("DSDI905_0416.xls").Close
  5571. '==================================================
  5572. 5:
  5573. On Error GoTo 6
  5574. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  5575. Windows("DSDI905_0516.xls").Activate
  5576. Sheets("Лист2").Select
  5577. formula2sh
  5578. Range("G6:H32").Copy
  5579. wb.Activate
  5580. Sheets("buffer").Select
  5581. Range("M2").Select
  5582. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5583. Windows("DSDI905_0516.xls").Activate
  5584. Sheets("Лист3").Select
  5585. formula3sh
  5586. Range("G6:H21").Copy
  5587. wb.Activate
  5588. Sheets("buffer").Select
  5589. Range("M29").Select
  5590. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5591. Windows("DSDI905_0516.xls").Activate
  5592. ActiveWorkbook.Save
  5593. Windows("DSDI905_0516.xls").Close
  5594. '==================================================
  5595. 6:
  5596. On Error GoTo 7
  5597. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  5598. Windows("DSDI905_0616.xls").Activate
  5599. Sheets("Лист2").Select
  5600. formula2sh
  5601. Range("G6:H32").Copy
  5602. wb.Activate
  5603. Sheets("buffer").Select
  5604. Range("P2").Select
  5605. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5606. Windows("DSDI905_0616.xls").Activate
  5607. Sheets("Лист3").Select
  5608. formula3sh
  5609. Range("G6:H21").Copy
  5610. wb.Activate
  5611. Sheets("buffer").Select
  5612. Range("P29").Select
  5613. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5614. Windows("DSDI905_0616.xls").Activate
  5615. ActiveWorkbook.Save
  5616. Windows("DSDI905_0616.xls").Close
  5617. '==================================================
  5618. 7:
  5619. On Error GoTo a8
  5620. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  5621. Windows("DSDI905_0716.xls").Activate
  5622. Sheets("Лист2").Select
  5623. formula2sh
  5624. Range("G6:H32").Copy
  5625. wb.Activate
  5626. Sheets("buffer").Select
  5627. Range("S2").Select
  5628. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5629. Windows("DSDI905_0716.xls").Activate
  5630. Sheets("Лист3").Select
  5631. formula3sh
  5632. Range("G6:H21").Copy
  5633. wb.Activate
  5634. Sheets("buffer").Select
  5635. Range("S29").Select
  5636. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5637. Windows("DSDI905_0716.xls").Activate
  5638. ActiveWorkbook.Save
  5639. Windows("DSDI905_0716.xls").Close
  5640. '==================================================
  5641. a8:
  5642. On Error GoTo a9
  5643. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  5644. Windows("DSDI905_0816.xls").Activate
  5645. Sheets("Лист2").Select
  5646. formula2sh
  5647. Range("G6:H32").Copy
  5648. wb.Activate
  5649. Sheets("buffer").Select
  5650. Range("V2").Select
  5651. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5652. Windows("DSDI905_0816.xls").Activate
  5653. Sheets("Лист3").Select
  5654. formula3sh
  5655. Range("G6:H21").Copy
  5656. wb.Activate
  5657. Sheets("buffer").Select
  5658. Range("V29").Select
  5659. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5660. Windows("DSDI905_0816.xls").Activate
  5661. ActiveWorkbook.Save
  5662. Windows("DSDI905_0816.xls").Close
  5663. '==================================================
  5664. a9:
  5665. On Error GoTo a10
  5666. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  5667. Windows("DSDI905_0916.xls").Activate
  5668. Sheets("Лист2").Select
  5669. formula2sh
  5670. Range("G6:H32").Copy
  5671. wb.Activate
  5672. Sheets("buffer").Select
  5673. Range("Y2").Select
  5674. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5675. Windows("DSDI905_0916.xls").Activate
  5676. Sheets("Лист3").Select
  5677. formula3sh
  5678. Range("G6:H21").Copy
  5679. wb.Activate
  5680. Sheets("buffer").Select
  5681. Range("Y29").Select
  5682. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5683. Windows("DSDI905_0916.xls").Activate
  5684. ActiveWorkbook.Save
  5685. Windows("DSDI905_0916.xls").Close
  5686. '==================================================
  5687. a10:
  5688. On Error GoTo a11
  5689. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  5690. Windows("DSDI905_1016.xls").Activate
  5691. Sheets("Лист2").Select
  5692. formula2sh
  5693. Range("G6:H32").Copy
  5694. wb.Activate
  5695. Sheets("buffer").Select
  5696. Range("AB2").Select
  5697. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5698. Windows("DSDI905_1016.xls").Activate
  5699. Sheets("Лист3").Select
  5700. formula3sh
  5701. Range("G6:H21").Copy
  5702. wb.Activate
  5703. Sheets("buffer").Select
  5704. Range("AB29").Select
  5705. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5706. Windows("DSDI905_1016.xls").Activate
  5707. ActiveWorkbook.Save
  5708. Windows("DSDI905_1016.xls").Close
  5709. '==================================================
  5710. a11:
  5711. On Error GoTo a12
  5712. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  5713. Windows("DSDI905_1116.xls").Activate
  5714. Sheets("Лист2").Select
  5715. formula2sh
  5716. Range("G6:H32").Copy
  5717. wb.Activate
  5718. Sheets("buffer").Select
  5719. Range("AE2").Select
  5720. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5721. Windows("DSDI905_1116.xls").Activate
  5722. Sheets("Лист3").Select
  5723. formula3sh
  5724. Range("G6:H21").Copy
  5725. wb.Activate
  5726. Sheets("buffer").Select
  5727. Range("AE29").Select
  5728. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5729. Windows("DSDI905_1116.xls").Activate
  5730. ActiveWorkbook.Save
  5731. Windows("DSDI905_0116.xls").Close
  5732. '==================================================
  5733. a12:
  5734. On Error GoTo a13
  5735. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  5736. Windows("DSDI905_1216.xls").Activate
  5737. Sheets("Лист2").Select
  5738. formula2sh
  5739. Range("G6:H32").Copy
  5740. wb.Activate
  5741. Sheets("buffer").Select
  5742. Range("AH2").Select
  5743. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5744. Windows("DSDI905_1216.xls").Activate
  5745. Sheets("Лист3").Select
  5746. formula3sh
  5747. Range("G6:H21").Copy
  5748. wb.Activate
  5749. Sheets("buffer").Select
  5750. Range("AH29").Select
  5751. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5752. Windows("DSDI905_1216.xls").Activate
  5753. ActiveWorkbook.Save
  5754. Windows("DSDI905_1216.xls").Close
  5755. '==================================================On Error GoTo 2
  5756. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  5757. Windows("DSDI905_0116.xls").Activate
  5758. Sheets("Лист2").Select
  5759. formula2sh
  5760. Range("G6:H32").Copy
  5761. wb.Activate
  5762. Sheets("buffer").Select
  5763. Range("A2").Select
  5764. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5765. Windows("DSDI905_0116.xls").Activate
  5766. Sheets("Лист3").Select
  5767. formula3sh
  5768. Range("G6:H21").Copy
  5769. wb.Activate
  5770. Sheets("buffer").Select
  5771. Range("A29").Select
  5772. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5773. Windows("DSDI905_0116.xls").Activate
  5774. ActiveWorkbook.Save
  5775. Windows("DSDI905_0116.xls").Close
  5776. '==================================================
  5777. 2:
  5778. On Error GoTo 3
  5779. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  5780. Windows("DSDI905_0216.xls").Activate
  5781. Sheets("Лист2").Select
  5782. formula2sh
  5783. Range("G6:H32").Copy
  5784. wb.Activate
  5785. Sheets("buffer").Select
  5786. Range("D2").Select
  5787. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5788. Windows("DSDI905_0216.xls").Activate
  5789. Sheets("Лист3").Select
  5790. formula3sh
  5791. Range("G6:H21").Copy
  5792. wb.Activate
  5793. Sheets("buffer").Select
  5794. Range("D29").Select
  5795. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5796. Windows("DSDI905_0216.xls").Activate
  5797. ActiveWorkbook.Save
  5798. Windows("DSDI905_0216.xls").Close
  5799. '==================================================
  5800. 3:
  5801. On Error GoTo 4
  5802. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  5803. Windows("DSDI905_0316.xls").Activate
  5804. Sheets("Лист2").Select
  5805. formula2sh
  5806. Range("G6:H32").Copy
  5807. wb.Activate
  5808. Sheets("buffer").Select
  5809. Range("G2").Select
  5810. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5811. Windows("DSDI905_0316.xls").Activate
  5812. Sheets("Лист3").Select
  5813. formula3sh
  5814. Range("G6:H21").Copy
  5815. wb.Activate
  5816. Sheets("buffer").Select
  5817. Range("G29").Select
  5818. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5819. Windows("DSDI905_0316.xls").Activate
  5820. ActiveWorkbook.Save
  5821. Windows("DSDI905_0316.xls").Close
  5822. '==================================================
  5823. 4:
  5824. On Error GoTo 5
  5825. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  5826. Windows("DSDI905_0416.xls").Activate
  5827. Sheets("Лист2").Select
  5828. formula2sh
  5829. Range("G6:H32").Copy
  5830. wb.Activate
  5831. Sheets("buffer").Select
  5832. Range("J2").Select
  5833. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5834. Windows("DSDI905_0416.xls").Activate
  5835. Sheets("Лист3").Select
  5836. formula3sh
  5837. Range("G6:H21").Copy
  5838. wb.Activate
  5839. Sheets("buffer").Select
  5840. Range("J29").Select
  5841. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5842. Windows("DSDI905_0416.xls").Activate
  5843. ActiveWorkbook.Save
  5844. Windows("DSDI905_0416.xls").Close
  5845. '==================================================
  5846. 5:
  5847. On Error GoTo 6
  5848. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  5849. Windows("DSDI905_0516.xls").Activate
  5850. Sheets("Лист2").Select
  5851. formula2sh
  5852. Range("G6:H32").Copy
  5853. wb.Activate
  5854. Sheets("buffer").Select
  5855. Range("M2").Select
  5856. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5857. Windows("DSDI905_0516.xls").Activate
  5858. Sheets("Лист3").Select
  5859. formula3sh
  5860. Range("G6:H21").Copy
  5861. wb.Activate
  5862. Sheets("buffer").Select
  5863. Range("M29").Select
  5864. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5865. Windows("DSDI905_0516.xls").Activate
  5866. ActiveWorkbook.Save
  5867. Windows("DSDI905_0516.xls").Close
  5868. '==================================================
  5869. 6:
  5870. On Error GoTo 7
  5871. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  5872. Windows("DSDI905_0616.xls").Activate
  5873. Sheets("Лист2").Select
  5874. formula2sh
  5875. Range("G6:H32").Copy
  5876. wb.Activate
  5877. Sheets("buffer").Select
  5878. Range("P2").Select
  5879. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5880. Windows("DSDI905_0616.xls").Activate
  5881. Sheets("Лист3").Select
  5882. formula3sh
  5883. Range("G6:H21").Copy
  5884. wb.Activate
  5885. Sheets("buffer").Select
  5886. Range("P29").Select
  5887. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5888. Windows("DSDI905_0616.xls").Activate
  5889. ActiveWorkbook.Save
  5890. Windows("DSDI905_0616.xls").Close
  5891. '==================================================
  5892. 7:
  5893. On Error GoTo a8
  5894. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  5895. Windows("DSDI905_0716.xls").Activate
  5896. Sheets("Лист2").Select
  5897. formula2sh
  5898. Range("G6:H32").Copy
  5899. wb.Activate
  5900. Sheets("buffer").Select
  5901. Range("S2").Select
  5902. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5903. Windows("DSDI905_0716.xls").Activate
  5904. Sheets("Лист3").Select
  5905. formula3sh
  5906. Range("G6:H21").Copy
  5907. wb.Activate
  5908. Sheets("buffer").Select
  5909. Range("S29").Select
  5910. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5911. Windows("DSDI905_0716.xls").Activate
  5912. ActiveWorkbook.Save
  5913. Windows("DSDI905_0716.xls").Close
  5914. '==================================================
  5915. a8:
  5916. On Error GoTo a9
  5917. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  5918. Windows("DSDI905_0816.xls").Activate
  5919. Sheets("Лист2").Select
  5920. formula2sh
  5921. Range("G6:H32").Copy
  5922. wb.Activate
  5923. Sheets("buffer").Select
  5924. Range("V2").Select
  5925. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5926. Windows("DSDI905_0816.xls").Activate
  5927. Sheets("Лист3").Select
  5928. formula3sh
  5929. Range("G6:H21").Copy
  5930. wb.Activate
  5931. Sheets("buffer").Select
  5932. Range("V29").Select
  5933. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5934. Windows("DSDI905_0816.xls").Activate
  5935. ActiveWorkbook.Save
  5936. Windows("DSDI905_0816.xls").Close
  5937. '==================================================
  5938. a9:
  5939. On Error GoTo a10
  5940. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  5941. Windows("DSDI905_0916.xls").Activate
  5942. Sheets("Лист2").Select
  5943. formula2sh
  5944. Range("G6:H32").Copy
  5945. wb.Activate
  5946. Sheets("buffer").Select
  5947. Range("Y2").Select
  5948. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5949. Windows("DSDI905_0916.xls").Activate
  5950. Sheets("Лист3").Select
  5951. formula3sh
  5952. Range("G6:H21").Copy
  5953. wb.Activate
  5954. Sheets("buffer").Select
  5955. Range("Y29").Select
  5956. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5957. Windows("DSDI905_0916.xls").Activate
  5958. ActiveWorkbook.Save
  5959. Windows("DSDI905_0916.xls").Close
  5960. '==================================================
  5961. a10:
  5962. On Error GoTo a11
  5963. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  5964. Windows("DSDI905_1016.xls").Activate
  5965. Sheets("Лист2").Select
  5966. formula2sh
  5967. Range("G6:H32").Copy
  5968. wb.Activate
  5969. Sheets("buffer").Select
  5970. Range("AB2").Select
  5971. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5972. Windows("DSDI905_1016.xls").Activate
  5973. Sheets("Лист3").Select
  5974. formula3sh
  5975. Range("G6:H21").Copy
  5976. wb.Activate
  5977. Sheets("buffer").Select
  5978. Range("AB29").Select
  5979. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5980. Windows("DSDI905_1016.xls").Activate
  5981. ActiveWorkbook.Save
  5982. Windows("DSDI905_1016.xls").Close
  5983. '==================================================
  5984. a11:
  5985. On Error GoTo a12
  5986. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  5987. Windows("DSDI905_1116.xls").Activate
  5988. Sheets("Лист2").Select
  5989. formula2sh
  5990. Range("G6:H32").Copy
  5991. wb.Activate
  5992. Sheets("buffer").Select
  5993. Range("AE2").Select
  5994. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  5995. Windows("DSDI905_1116.xls").Activate
  5996. Sheets("Лист3").Select
  5997. formula3sh
  5998. Range("G6:H21").Copy
  5999. wb.Activate
  6000. Sheets("buffer").Select
  6001. Range("AE29").Select
  6002. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6003. Windows("DSDI905_1116.xls").Activate
  6004. ActiveWorkbook.Save
  6005. Windows("DSDI905_0116.xls").Close
  6006. '==================================================
  6007. a12:
  6008. On Error GoTo a13
  6009. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  6010. Windows("DSDI905_1216.xls").Activate
  6011. Sheets("Лист2").Select
  6012. formula2sh
  6013. Range("G6:H32").Copy
  6014. wb.Activate
  6015. Sheets("buffer").Select
  6016. Range("AH2").Select
  6017. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6018. Windows("DSDI905_1216.xls").Activate
  6019. Sheets("Лист3").Select
  6020. formula3sh
  6021. Range("G6:H21").Copy
  6022. wb.Activate
  6023. Sheets("buffer").Select
  6024. Range("AH29").Select
  6025. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6026. Windows("DSDI905_1216.xls").Activate
  6027. ActiveWorkbook.Save
  6028. Windows("DSDI905_1216.xls").Close
  6029. '==================================================On Error GoTo 2
  6030. Workbooks.Open Filename:=cudir & "\" & "01_янв" & "\" & "DSDI905_0116.xls"
  6031. Windows("DSDI905_0116.xls").Activate
  6032. Sheets("Лист2").Select
  6033. formula2sh
  6034. Range("G6:H32").Copy
  6035. wb.Activate
  6036. Sheets("buffer").Select
  6037. Range("A2").Select
  6038. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6039. Windows("DSDI905_0116.xls").Activate
  6040. Sheets("Лист3").Select
  6041. formula3sh
  6042. Range("G6:H21").Copy
  6043. wb.Activate
  6044. Sheets("buffer").Select
  6045. Range("A29").Select
  6046. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6047. Windows("DSDI905_0116.xls").Activate
  6048. ActiveWorkbook.Save
  6049. Windows("DSDI905_0116.xls").Close
  6050. '==================================================
  6051. 2:
  6052. On Error GoTo 3
  6053. Workbooks.Open Filename:=cudir & "\" & "02_фев" & "\" & "DSDI905_0216.xls"
  6054. Windows("DSDI905_0216.xls").Activate
  6055. Sheets("Лист2").Select
  6056. formula2sh
  6057. Range("G6:H32").Copy
  6058. wb.Activate
  6059. Sheets("buffer").Select
  6060. Range("D2").Select
  6061. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6062. Windows("DSDI905_0216.xls").Activate
  6063. Sheets("Лист3").Select
  6064. formula3sh
  6065. Range("G6:H21").Copy
  6066. wb.Activate
  6067. Sheets("buffer").Select
  6068. Range("D29").Select
  6069. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6070. Windows("DSDI905_0216.xls").Activate
  6071. ActiveWorkbook.Save
  6072. Windows("DSDI905_0216.xls").Close
  6073. '==================================================
  6074. 3:
  6075. On Error GoTo 4
  6076. Workbooks.Open Filename:=cudir & "\" & "03_мар" & "\" & "DSDI905_0316.xls"
  6077. Windows("DSDI905_0316.xls").Activate
  6078. Sheets("Лист2").Select
  6079. formula2sh
  6080. Range("G6:H32").Copy
  6081. wb.Activate
  6082. Sheets("buffer").Select
  6083. Range("G2").Select
  6084. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6085. Windows("DSDI905_0316.xls").Activate
  6086. Sheets("Лист3").Select
  6087. formula3sh
  6088. Range("G6:H21").Copy
  6089. wb.Activate
  6090. Sheets("buffer").Select
  6091. Range("G29").Select
  6092. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6093. Windows("DSDI905_0316.xls").Activate
  6094. ActiveWorkbook.Save
  6095. Windows("DSDI905_0316.xls").Close
  6096. '==================================================
  6097. 4:
  6098. On Error GoTo 5
  6099. Workbooks.Open Filename:=cudir & "\" & "04_апр" & "\" & "DSDI905_0416.xls"
  6100. Windows("DSDI905_0416.xls").Activate
  6101. Sheets("Лист2").Select
  6102. formula2sh
  6103. Range("G6:H32").Copy
  6104. wb.Activate
  6105. Sheets("buffer").Select
  6106. Range("J2").Select
  6107. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6108. Windows("DSDI905_0416.xls").Activate
  6109. Sheets("Лист3").Select
  6110. formula3sh
  6111. Range("G6:H21").Copy
  6112. wb.Activate
  6113. Sheets("buffer").Select
  6114. Range("J29").Select
  6115. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6116. Windows("DSDI905_0416.xls").Activate
  6117. ActiveWorkbook.Save
  6118. Windows("DSDI905_0416.xls").Close
  6119. '==================================================
  6120. 5:
  6121. On Error GoTo 6
  6122. Workbooks.Open Filename:=cudir & "\" & "05_май" & "\" & "DSDI905_0516.xls"
  6123. Windows("DSDI905_0516.xls").Activate
  6124. Sheets("Лист2").Select
  6125. formula2sh
  6126. Range("G6:H32").Copy
  6127. wb.Activate
  6128. Sheets("buffer").Select
  6129. Range("M2").Select
  6130. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6131. Windows("DSDI905_0516.xls").Activate
  6132. Sheets("Лист3").Select
  6133. formula3sh
  6134. Range("G6:H21").Copy
  6135. wb.Activate
  6136. Sheets("buffer").Select
  6137. Range("M29").Select
  6138. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6139. Windows("DSDI905_0516.xls").Activate
  6140. ActiveWorkbook.Save
  6141. Windows("DSDI905_0516.xls").Close
  6142. '==================================================
  6143. 6:
  6144. On Error GoTo 7
  6145. Workbooks.Open Filename:=cudir & "\" & "06_июнь" & "\" & "DSDI905_0616.xls"
  6146. Windows("DSDI905_0616.xls").Activate
  6147. Sheets("Лист2").Select
  6148. formula2sh
  6149. Range("G6:H32").Copy
  6150. wb.Activate
  6151. Sheets("buffer").Select
  6152. Range("P2").Select
  6153. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6154. Windows("DSDI905_0616.xls").Activate
  6155. Sheets("Лист3").Select
  6156. formula3sh
  6157. Range("G6:H21").Copy
  6158. wb.Activate
  6159. Sheets("buffer").Select
  6160. Range("P29").Select
  6161. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6162. Windows("DSDI905_0616.xls").Activate
  6163. ActiveWorkbook.Save
  6164. Windows("DSDI905_0616.xls").Close
  6165. '==================================================
  6166. 7:
  6167. On Error GoTo a8
  6168. Workbooks.Open Filename:=cudir & "\" & "07_июль" & "\" & "DSDI905_0716.xls"
  6169. Windows("DSDI905_0716.xls").Activate
  6170. Sheets("Лист2").Select
  6171. formula2sh
  6172. Range("G6:H32").Copy
  6173. wb.Activate
  6174. Sheets("buffer").Select
  6175. Range("S2").Select
  6176. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6177. Windows("DSDI905_0716.xls").Activate
  6178. Sheets("Лист3").Select
  6179. formula3sh
  6180. Range("G6:H21").Copy
  6181. wb.Activate
  6182. Sheets("buffer").Select
  6183. Range("S29").Select
  6184. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6185. Windows("DSDI905_0716.xls").Activate
  6186. ActiveWorkbook.Save
  6187. Windows("DSDI905_0716.xls").Close
  6188. '==================================================
  6189. a8:
  6190. On Error GoTo a9
  6191. Workbooks.Open Filename:=cudir & "\" & "08_авг" & "\" & "DSDI905_0816.xls"
  6192. Windows("DSDI905_0816.xls").Activate
  6193. Sheets("Лист2").Select
  6194. formula2sh
  6195. Range("G6:H32").Copy
  6196. wb.Activate
  6197. Sheets("buffer").Select
  6198. Range("V2").Select
  6199. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6200. Windows("DSDI905_0816.xls").Activate
  6201. Sheets("Лист3").Select
  6202. formula3sh
  6203. Range("G6:H21").Copy
  6204. wb.Activate
  6205. Sheets("buffer").Select
  6206. Range("V29").Select
  6207. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6208. Windows("DSDI905_0816.xls").Activate
  6209. ActiveWorkbook.Save
  6210. Windows("DSDI905_0816.xls").Close
  6211. '==================================================
  6212. a9:
  6213. On Error GoTo a10
  6214. Workbooks.Open Filename:=cudir & "\" & "09_сент" & "\" & "DSDI905_0916.xls"
  6215. Windows("DSDI905_0916.xls").Activate
  6216. Sheets("Лист2").Select
  6217. formula2sh
  6218. Range("G6:H32").Copy
  6219. wb.Activate
  6220. Sheets("buffer").Select
  6221. Range("Y2").Select
  6222. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6223. Windows("DSDI905_0916.xls").Activate
  6224. Sheets("Лист3").Select
  6225. formula3sh
  6226. Range("G6:H21").Copy
  6227. wb.Activate
  6228. Sheets("buffer").Select
  6229. Range("Y29").Select
  6230. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6231. Windows("DSDI905_0916.xls").Activate
  6232. ActiveWorkbook.Save
  6233. Windows("DSDI905_0916.xls").Close
  6234. '==================================================
  6235. a10:
  6236. On Error GoTo a11
  6237. Workbooks.Open Filename:=cudir & "\" & "10_окт" & "\" & "DSDI905_1016.xls"
  6238. Windows("DSDI905_1016.xls").Activate
  6239. Sheets("Лист2").Select
  6240. formula2sh
  6241. Range("G6:H32").Copy
  6242. wb.Activate
  6243. Sheets("buffer").Select
  6244. Range("AB2").Select
  6245. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6246. Windows("DSDI905_1016.xls").Activate
  6247. Sheets("Лист3").Select
  6248. formula3sh
  6249. Range("G6:H21").Copy
  6250. wb.Activate
  6251. Sheets("buffer").Select
  6252. Range("AB29").Select
  6253. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6254. Windows("DSDI905_1016.xls").Activate
  6255. ActiveWorkbook.Save
  6256. Windows("DSDI905_1016.xls").Close
  6257. '==================================================
  6258. a11:
  6259. On Error GoTo a12
  6260. Workbooks.Open Filename:=cudir & "\" & "11_ноя" & "\" & "DSDI905_1116.xls"
  6261. Windows("DSDI905_1116.xls").Activate
  6262. Sheets("Лист2").Select
  6263. formula2sh
  6264. Range("G6:H32").Copy
  6265. wb.Activate
  6266. Sheets("buffer").Select
  6267. Range("AE2").Select
  6268. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6269. Windows("DSDI905_1116.xls").Activate
  6270. Sheets("Лист3").Select
  6271. formula3sh
  6272. Range("G6:H21").Copy
  6273. wb.Activate
  6274. Sheets("buffer").Select
  6275. Range("AE29").Select
  6276. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6277. Windows("DSDI905_1116.xls").Activate
  6278. ActiveWorkbook.Save
  6279. Windows("DSDI905_0116.xls").Close
  6280. '==================================================
  6281. a12:
  6282. On Error GoTo a13
  6283. Workbooks.Open Filename:=cudir & "\" & "12_дек" & "\" & "DSDI905_1216.xls"
  6284. Windows("DSDI905_1216.xls").Activate
  6285. Sheets("Лист2").Select
  6286. formula2sh
  6287. Range("G6:H32").Copy
  6288. wb.Activate
  6289. Sheets("buffer").Select
  6290. Range("AH2").Select
  6291. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6292. Windows("DSDI905_1216.xls").Activate
  6293. Sheets("Лист3").Select
  6294. formula3sh
  6295. Range("G6:H21").Copy
  6296. wb.Activate
  6297. Sheets("buffer").Select
  6298. Range("AH29").Select
  6299. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  6300. Windows("DSDI905_1216.xls").Activate
  6301. ActiveWorkbook.Save
  6302. Windows("DSDI905_1216.xls").Close
  6303. '==================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!