Нужно чтобы изменения в умной таблице происходило через UserForm по выбранной дате из столбца, по выбранной категории, так же по заполненным строкам "Фамилия И. О.", пустые строки игнорировались. При выборе столбца даты, если есть заполненные ячейки то информация о них отображалась В качестве примера сделал скрин желаемой Userfom-ы и таблицы
Бюджет 500 р. Если будет готово сегодня в течения дня то 750 р. Если прям все как надо то 1000 р. Оплата возможна на банковскую карту и моб. телефон.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim cell As Range
If Intersect(Target, Range("C13:C112")) Is Nothing Then Exit Sub
For Each cell In Intersect(Target, Range("C13:C112"))
If IsEmpty(cell) Then
NewCellValue = "Ячейка очищена"
Else
NewCellValue = cell.Formula
End If
On Error Resume Next
With cell
OldComment = .Comment.Text & Chr(10)
.Comment.Delete
.AddComment
.Comment.Text Text:=OldComment & Application.UserName & " " & _
Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Shape.TextFrame.Characters.Font.Size = 8
End With
Next cell
For Each cell In Target
If Not Intersect(cell, Range("E13:E112,M13:M112,U13:U112,AC13:AC112,AK13:AK112,AS13:AS112,BA13:BA112,BI13:BI112,BQ13:BQ112,BY13:BY112,CG13:CG112")) Is Nothing Then
With cell.Offset(0, 2)
.Value = Now
End With
End If
Next cell
End Sub
Добрый, в этом коде два макроса но не один не работает если их написать под Private Sub Worksheet_Change (ByVal Target As Range), как правильно их составить чтобы оба заработали для одного листа? В написании VBA кода я ноль)