Доброго времени суток! Продолжаю с вашей помощью попытку облегчить жизнь. При много вам благодарен за советы! Прошу меня извинить за столь для кого то глупые вопросы.
Есть ли возможность, в этой чудо программе, обнулять значение связанных выпадающих списков. например в самом первом выпадающем списке мы ставим "нет" и далее все ячейки в столбцах опустошаются, в примере выделил желтым
Доброго времени суток! Продолжаю с вашей помощью попытку облегчить жизнь. При много вам благодарен за советы! Прошу меня извинить за столь для кого то глупые вопросы.
Есть ли возможность, в этой чудо программе, обнулять значение связанных выпадающих списков. например в самом первом выпадающем списке мы ставим "нет" и далее все ячейки в столбцах опустошаются, в примере выделил желтымgfkq
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 3 Or a = 6 Or a = 9) And b > 5 And c = 3 Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents End If End Sub
[/vba]
апдэйт забыл про "нет" макрос выше будет очищать при любом выборе в списке исправляю: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 3 Or a = 6 Or a = 9) And b > 5 Then u = Target.Value If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 3 Or a = 6 Or a = 9) And b > 5 And c = 3 Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents End If End Sub
[/vba]
апдэйт забыл про "нет" макрос выше будет очищать при любом выборе в списке исправляю: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 3 Or a = 6 Or a = 9) And b > 5 Then u = Target.Value If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents End If End Sub
Огромнейшее спасибо!!! Подскажите пожалуйста, данный макрос можно применить к другому документу? так как тут выкладываю черновик, а основной документ еще на стадии создания. Задумка в основном документе такая же, отличие только в новом столбце. Появился 4 столбец, с выпадающим списком, который так же надо что бы обнулялся в строке с "нет"
Огромнейшее спасибо!!! Подскажите пожалуйста, данный макрос можно применить к другому документу? так как тут выкладываю черновик, а основной документ еще на стадии создания. Задумка в основном документе такая же, отличие только в новом столбце. Появился 4 столбец, с выпадающим списком, который так же надо что бы обнулялся в строке с "нет"gfkq
Сообщение отредактировал gfkq - Пятница, 28.01.2022, 11:51
огромное спасибо!!! [offtop]попытаюсь разобраться (гугл как говорится мне в помощь ))). Если я не разберусь можно я приду с готовым документом, через месяц полтора.[/offtop]
огромное спасибо!!! [offtop]попытаюсь разобраться (гугл как говорится мне в помощь ))). Если я не разберусь можно я приду с готовым документом, через месяц полтора.[/offtop]gfkq
Сообщение отредактировал gfkq - Пятница, 28.01.2022, 12:12
Nic70y, Скажите пожалуйста, у меня почти все получилось, но не обнуляется 4ый столбец.
Цитата
If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents
Изменил
Цитата
Cells(b, a + 2))
На
Цитата
Cells(b, a + 3))
Вроде все заработало, правильное ли это решение?
Итого получилось у меня все как вы писали
Цитата
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 1 Or a = 5 Or a = 9 Or a = 13) And b > 6 Then u = Target.Value If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 3)).ClearContents End If End Sub
Не испортят ли исправления мои что нибудь?
Nic70y, Скажите пожалуйста, у меня почти все получилось, но не обнуляется 4ый столбец.
Цитата
If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 2)).ClearContents
Изменил
Цитата
Cells(b, a + 2))
На
Цитата
Cells(b, a + 3))
Вроде все заработало, правильное ли это решение?
Итого получилось у меня все как вы писали
Цитата
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next a = Target.Column b = Target.Row c = Target.Validation.Type If (a = 1 Or a = 5 Or a = 9 Or a = 13) And b > 6 Then u = Target.Value If u = "нет" Then Range(Cells(b, a + 1), Cells(b, a + 3)).ClearContents End If End Sub
Nic70y, прошу меня простить , за беспокойство! подскажите пожалуйста , возможно ли сделать так что бы ячейка со словом "нет" так же очищалась как и остальные?
Nic70y, прошу меня простить , за беспокойство! подскажите пожалуйста , возможно ли сделать так что бы ячейка со словом "нет" так же очищалась как и остальные?gfkq