Private Sub Worksheet_Change(ByVal Target As Range)
Dim Shet As Worksheet
Set Shet = ThisWorkbook.Worksheets(1)
If Target.Column = 2 And Application.WorksheetFunction.CountIf(Shet.Columns(1), Target) = 0 Then
Target.Resize(, 3).Copy Shet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
Else
With Shet
Set cell = .Columns(1).Find(Target)
.Cells(cell.Row, 2) = .Cells(cell.Row, 2) + Target.Offset(0, 1)
.Cells(cell.Row, 3) = .Cells(cell.Row, 3) + Target.Offset(0, 2)
End With
End If
End Sub
Vadim Mikayilov, Вам нужно что бы товар с номер присваивался сам, а вы вводите количество и стоимость? думаю вам стоит опиисать словами по порядку как в ы делаете вручную это
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
Dim cell As Range, i As Long
For i = 10 To 92 Step 7
For n = 12 To 26 Step 5
If cell Is Nothing Then
Set cell = Range(Cells(n, i), Cells(n + 3, i + 2))
Else
Set cell = Union(cell, Range(Cells(n, i), Cells(n + 3, i + 2)))
End If
Next n
Next i
If Not cell Is Nothing Then cell.ClearContents
End If
End Sub
Николай Ершов, в модуль листа - возможно кося в диапазоне очистки ну подправите
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
Union(Range( _
"BG22:BI25,BN22:BP25,BU22:BW25,CB22:CD25,CI22:CK25,J12:L15,Q12:S15,X12:Z15,AE12:AG15,AL12:AN15,AS12:AU15,AZ12:BB15,BG12:BI15,BN12:BP15,BU12:BW15,CB12:CD15,CI12:CK15,CI17:CK20,CB17:CD20,BU17:BW20,BN17:BP20,BG17:BI20,AZ17:BB20,AS17:AU20,AL17:AN20,AE17:AG20" _
), Range("X22:Z25,AE22:AG25,AL22:AN25,AS22:AU25,AZ22:BB25,J17:L20,J22:L25,Q17:S20,Q22:S25,X17:Z21")).ClearContents
End If
End Sub
papay, здесь в правилах есть пункт о файле-примере с исходными данными, и показанным желаемым результатом (если конечно хотите оперативно получить помощь) есть формулы округления
Дмитрий(The_Prist) Щербаков написал: Можете в приложенном примере показать на паре строк(вбив руками): вот это исходные данные, а вот это надо получить? Там, думаю, всем будет понятнее.
Иванов Иван, для того что бы вы получили совет или готовое решение Вам необходимо предложить новое название темы (предложить тут в сообщении), а модераторы изменят (вы не сможете) в котором будет понятно что делаете (например Произвести расчет площади круга) и пример приложить с исходными данными и желаемым результатом. сейчас тема не соответствует правилам и помощь скроют или тему удалят.