Добрый день! Подскажите, пожалуйста, как дописать, чтобы при отсутствии дубликатов в колонке происходил ExitSub моего условия. Если это возможно, конечно. Код в модуле листа примера.
Добрый день! Подскажите, пожалуйста, как дописать, чтобы при отсутствии дубликатов в колонке происходил ExitSub моего условия. Если это возможно, конечно. Код в модуле листа примера.ant6729
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i& lr = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub For i = 1 To lr If Me.Cells(i, 1).Address <> Target.Address Then If Me.Cells(i, 1).Value = Target.Value Then Sheets("Лист2").Cells(i, 2).Interior.Color = RGB(255, 128, 128) MsgBox Sheets("Лист2").Cells(i, 1).Address End If End If Next i End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i& lr = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub For i = 1 To lr If Me.Cells(i, 1).Address <> Target.Address Then If Me.Cells(i, 1).Value = Target.Value Then Sheets("Лист2").Cells(i, 2).Interior.Color = RGB(255, 128, 128) MsgBox Sheets("Лист2").Cells(i, 1).Address End If End If Next i End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub Application.EnableEvents = 0 [a:a].ColumnDifferences(Target).EntireRow.Hidden = True UsedRange.Columns(2).SpecialCells(12).Interior.Color = RGB(255, 128, 128) Target(1, 2).Interior.ColorIndex = xlNone UsedRange.EntireRow.Hidden = False Application.EnableEvents = -1 End Sub
[/vba]
Вариант: [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub Application.EnableEvents = 0 [a:a].ColumnDifferences(Target).EntireRow.Hidden = True UsedRange.Columns(2).SpecialCells(12).Interior.Color = RGB(255, 128, 128) Target(1, 2).Interior.ColorIndex = xlNone UsedRange.EntireRow.Hidden = False Application.EnableEvents = -1 End Sub