я 0 в ВБА (кажется так называется...) как мне соединить 2 команды Private Sub Worksheet_Change
1 Код
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target '???????? ?? ???? ?????????? ???????
If Not Intersect(cell, Range("C2:C100")) Is Nothing Then '???? ???????????? ?????? ???????? ? ???????? C2:C100
With cell.Offset(0, -1) '?????? ? ???????? ?????? ?????? ????
.Value = Now
.EntireColumn.AutoFit '????????? ?????????? ?????? ??? ??????? B, ????? ???? ????????? ? ??????
End With
End If
Next cell
End Sub |
2 Код
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Reply As Long
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$G$2" Then
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Range("Сотрудники"), Target) = 0 Then
lReply = MsgBox("Добавить введенное имя " & _
Target & " в выпадающий список?", vbYesNo + vbQuestion)
If lReply = vbYes Then
Range("Сотрудники").Cells(Range("Сотрудники").Rows.Count + 1, 1) = Target
End If
End If
End If
End Sub |
и вообще реально соединить не только 2 такие команды, а 3 или 5???........ (у меня еще 1 выпадающий список и хочу добавить в него 2 код тоже...)
ВЫХОДИТ #Н/Д ...... выложу оригинал.....