Страницы: 1
RSS
Макрос, который после проверки условия.
 
Добрый день. Необходима помощь в доработке макроса. Из того что сделано. Проставляются получасовые значения времени/даты в столбце в формате (00:00:00 01.
01.2021). В соседний столбец, где дата выгружаются значения из системы, согласно заданным параметрам. Необходимо сделать так, чтобы не прописывать отдельно каждый диапазон, где будет протягиваться формула и заменяться на значение. А искать значение в строке (7), до определенного столбца, и под этим значением вставлять то, что выделил зеленым.


Sub Выгрузка()
Dim lr As Long
 
   Range("A8").FormulaR1C1 = "=R[-7]C"
   Range("A9:A1495").FormulaR1C1 = "=IFERROR(IF(R[-1]C+TIME(0,30,0)<=R2C1+1,R[-1]C+TIME(0,30,0),""-""),""-"")"
   Range("A8:A1495").Value = Range("A8:A1495").Value
   lr = Cells(Rows.Count, "A").End(xlUp).Row

   Range("D8").FormulaR1C1 = "=IFERROR("ПолучитьДанные(R[1]C1,R2C,R5C)/1000,""-"")"
   Range("D8").AutoFill Destination:=Range("D8:D" & lr)
  Range("D8:D").Value = Range("D8:D" ).Value

End Sub
 
Название темы сформулируйте. Модераторы заменят
Страницы: 1
Наверх