Страницы: 1
RSS
Блокировка строк в Эксель после выбора данных в сплывающем списке, Блокировка заполненных строк
 
Добрый день!
Возникла проблема блокировки ячеек в Эксель. Нужно, чтобы после выбора данных в ячейке AE3 у меня блокировалась полностью строчка от А3 по AD3, как это можно сделать?
 
В модуль листа.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ru As Range
    On Error Resume Next
    Set ru = Intersect(Target, ActiveSheet.UsedRange, ActiveSheet.Columns("AE:AE"))
    On Error GoTo 0
    If ru Is Nothing Then Exit Sub
    
    Dim rv As Range
    Dim cType As Range
    For Each cType In ru.Cells
        Set rv = cType.EntireRow.Resize(, cType.Column - 1)
        If Not rv.Validation Is Nothing Then rv.Validation.Delete
        
        With rv.Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=AE1", Formula2:="=AE1"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    Next
End Sub
 
Цитата
написал:
В модуль листа.
Низкий ВАМ поклон за помощь, выручили чрезмерно сильно :):):) :)  
 
МатросНаЗебре, дико извиняюсь, но можно ли помочь еще с одним моментом, я его не указал. Можно ли к блокировке ячеек с диапазона A:AD так же сделать блокировку ячейки АЕ после занесения в нее данных?
 
Я не профи в макросах - но может быть вам тут просто "-1" попробовать убрать?
Код
Set rv = cType.EntireRow.Resize(, cType.Column - 1)
 
Sanim, большое спасибо, это и правда сработало  :)  :)  
Страницы: 1
Наверх