Добрый вечер эксперты! На просторах нашел вроде как решение для себя своего вопроса, но макрос , к сожалению работает не так, как я задумал изначально. Задача в следующем: в столбцах с 19 по 22 нужно ставить отметку "крестик" в зависимости от того, какой тип организации подал документы. Прописал макрос а он не работает так как нужно - крестики проставляются одновременно во всех 3-х столбиках, в то время, как нужно, чтоб можно было проставить только 1 тип организации и изменять отметку перещёлкиванием между столбиками перемещая ее таким образом. Кто сможет подсказать , где ошибка в макросе - буду очень признателен. Файл не могу приложить - слишком объемный. И ещё есть 1 нюанс - рабочая программа Excel 2003!
Извиняюсь за удаленную в первый раз тему - вырубают свет и компьютер, соответственно, тоже выключается- не успел сделать редактирование, а только тире проставить. Вот пример этого макроса.
В итоге если отметка в столбике S - столбцы T-V просто не заполняются. А нужно, чтоб, если мы с S перещёлкнем на T,то в S отметка исчезла , а в T появилась и так далее по всем 4 столбцам.
Извиняюсь за удаленную в первый раз тему - вырубают свет и компьютер, соответственно, тоже выключается- не успел сделать редактирование, а только тире проставить. Вот пример этого макроса.
| Код |
|---|
If (Union(Target.Cells, Range("S10:V65000")).Address = Range("S10:V65000").Address) Then
If Target.Column = 19 Then
If WorksheetFunction.CountA(Range("T" & Target.Row & ":V" & Target.Row)) <> 0 Then Target.Cells.ClearContents
ElseIf Target.Column > 19 And Target.Column <= 22 Then
If WorksheetFunction.CountA(Range("S" & Target.Row)) <> 0 Then Target.Cells.ClearContents
End If
End If
|
