Здравствуйте. на одном листе можно ли вставить два макроса.
Код |
---|
Public VVV As String
Public WWW As String
Private Sub Worksheet_Activate()
Sheets("расход").Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'проверка излишков на "минус"
If Cells(Target.Row, Range("остатка").Column) < 0 Then
MsgBox "На складе нет!" & vbCr & "столько товаров!"
Cells(Target.Row, Target.Column) = VVV
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 10 Then
On Error Resume Next
VVV = Target.Value 'активная ячейка
WWW = Cells(Target.Row, Range("остатка").Column) 'ячейка с излишком
End If
End Sub |
____________________________________________________________
______
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("B2:B1000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub |
я вот так и поставил выводит ошибку. спасибо