Добрый вечер всем!!!
Не могли бы вы меня перепроверить и указать как лучше усовершенствовать код (потому как само прописывание кода отличается от того когда я его записываю Макрорекордером). Наверное как то вновь запутано сказал
Ну вот смотрите сами:
[vba]Код
'Заполнение столбца Дата согласно выбранного ГОДА и МЕСЯЦА
Range("B5").FormulaR1C1 = _
"=IFERROR(DATEVALUE((COUNT(R4C2:R[-1]C)+1)&R2C1&R1C1),"""")"
Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B35"), Type:=xlFillValues
Range("B5:B35").Select
ActiveWindow.SmallScroll Down:=18
Range("B5:B35").Copy
Range("B5:B35").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[/vba]
Больше всего уверен что протягивание формулы по столбцу можно прописать более компактным образом!?
Или же у меня получилось нормально!?
Прошу критики она мне нужна, спасибо заранее...