Страницы: 1
RSS
Автоматическое заполнение второго табеля, ежедневно приходится заполнять два табеля с одинаковыми значениями, но в разных таблицах
 
Прошу подсказать вариант реализации автоматического заполнения ячеек на листе "техтабель" при заполнении ячеек на листе "табель ЗП"
т.е. при вводе "10" в ячейку H5 на листе "табель ЗП" хотелось бы чтобы заполнялась ячейка F11 на листе "техтабель", а также аналогично при заполнении ячеек в строке 6 "табель ЗП", заполнялись бы значения в строке 13 на листе "техтабель".
 
В [F1]
Код
=H5
и так далее.
 
спасибо, но хотелось бы реализовать ВПР по нескольким условиям, или макрос. в чем я не силен.
 
Просматривает объединенные диапазоны на листе-доноре в столбце "D"
Если номер техники в наличии, то ищет его на листе-получателе в столбце "Е"
Если найден, то переносит вместе с форматированием содержимое табеля по двум сменам на листе-доноре
Код
Sub aaaa()
Dim aa As Range, a&, sh1 As Worksheet, sh2 As Worksheet, dt$
Set sh1 = Sheets("табельЗП"): Set sh2 = Sheets("техтабель")
a = 10
Do While sh2.Cells(a, "D").MergeCells And Len(sh2.Cells(a, "D")) > 0
  dt = sh2.Cells(a, "D")
  Set aa = sh1.UsedRange.Columns("E").Find(dt, , xlValues, xlPart, xlByColumns, xlNext)
  If Not aa Is Nothing Then
    Intersect(sh2.Columns("F:AJ"), sh2.Rows(a + 1)).Copy sh1.Range("H" & aa.Row)
    Intersect(sh2.Columns("F:AJ"), sh2.Rows(a + 3)).Copy sh1.Range("H" & aa.Row + 1)
    Intersect(sh2.Columns("F:AJ"), sh2.Rows(a + 5)).Copy sh1.Range("H" & aa.Row + 4)
    Intersect(sh2.Columns("F:AJ"), sh2.Rows(a + 7)).Copy sh1.Range("H" & aa.Row + 5)
  End If
  a = a + sh2.Cells(a, "D").MergeArea.Rows.Count
Loop

End Sub
 
вставил макрос (во все листы :-), но при нажатии F5 выдает ошибку. По любому я не верно использую ваш макрос.  
 
спасибо огромное! разобрался где лист-донор и лист получатель и макрос отлично работает. спасибо!
Страницы: 1
Наверх