Страницы: 1
RSS
Зная дату и фамилию, записать значение в ячейку пересечения этих двух параметров
 
Добрый вечер!Помогите разобраться,ничего не могу найти по этому поводу.Есть табель рабочего времени на n работников.Нужно расставить по итогу месяца все больничные (б),трудовые отпуска(о) и отпуска без сохранения з/п (а). Что бы не искать глазами нужную ячейку,нужно зная дату и фамилию в ячейку пересечения этих двух параметром поставить нужную букву.Т.е. хочу сделать 3 ячейки:1-выпадающий список фамилий,2-выпадающий список дней месяца,а 3-прописывать нужную букву и чтоб она автоматом переносилась в нужную ячейку табеля.помогите,пожалуйста, в данном вопросе
 
Элона Шеверенко, макрос вам в помощь)
а без файла с исходными данными и показанным желаемым результатом маловероятно кто поможет)
Не бойтесь совершенства. Вам его не достичь.
 
вот в файле нужно, чтоб при вводе в ячейку AW4 нужного символа - это символ автоматически переносился в основную таблицу в нужную клетку
 
Элона Шеверенко, в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Not Intersect(Target, [AW4]) Is Nothing Then
      Dim r As Range, c As Range
         Set r = Columns(1).Find([AW2])
         Set c = Rows(1).Find([AW3])
          Cells(r.Row, c.Column) = [AW4]
   End If
End Sub

Изменено: Mershik - 14.01.2021 22:23:23
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1
Наверх