Добрый вечер друзья.
Есть файл с выпадающими списками с добавлением новых элементов. Нужно вписать код в макрос, чтобы после добавления новых элементов в список сразу же и сортировался список по алфавиту от А до Я.
Вот макрос. Файл тоже добавлен.
Есть файл с выпадающими списками с добавлением новых элементов. Нужно вписать код в макрос, чтобы после добавления новых элементов в список сразу же и сортировался список по алфавиту от А до Я.
Вот макрос. Файл тоже добавлен.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) Dim lReply As Long If Target.Cells.Count > 1 Then Exit Sub 'B2 xanasina mallarin adini daxil etmak ucun If Not Intersect(Target, Range("B2:B2")) Is Nothing Then If IsEmpty(Target) Then Exit Sub If WorksheetFunction.CountIf(Sheets("CADVALLAR").Range("MALLAR"), Target) = 0 Then lReply = MsgBox("Daxil edilmis """ & Target & """ sozu siyahiya alava edilsin?", vbYesNo + vbQuestion) If lReply = vbYes Then Sheets("CADVALLAR").Range("MALLAR").Cells(Sheets("CADVALLAR").Range("MALLAR").Rows.Count + 1, 1) = Target End If End If End If If Target.Cells.Count > 1 Then Exit Sub 'B9 xanasina Malsatanlarin adini daxil etmak ucun If Not Intersect(Target, Range("B9:B9")) Is Nothing Then If IsEmpty(Target) Then Exit Sub If WorksheetFunction.CountIf(Sheets("CADVALLAR").Range("MALSATANLAR"), Target) = 0 Then lReply = MsgBox("Daxil edilmis """ & Target & """ sozu siyahiya alava edilsin?", vbYesNo + vbQuestion) If lReply = vbYes Then Sheets("CADVALLAR").Range("MALSATANLAR").Cells(Sheets("CADVALLAR").Range("MALSATANLAR").Rows.Count + 1, 1) = Target End If End If End If End Sub |