Приносим извинения, если этот вопрос был дан ответ раньше, я не был уверен, как его спросить. Я делаю почтовый отчет для работы. Есть область, в которую мы вводим пакетную информацию. Колонны A-F (партия №, схема, время выпадения, суммарные предметы, скидка и почтовая оплата). У меня есть область в колонках K-O, чтобы суммировать партии (все части из партии 1 будут суммироваться в колонке K)Добавление нескольких ячеек в столбце на основе значения в другом столбце, но в том же ряду
Теперь иногда мы можем иметь партии 1a, 1b и до 1c. То, что я пытаюсь сделать, это суммировать общие партии партии 1, даже если их больше одной, все в одной ячейке под столбцом Total Pieces. Более конкретно: ячейки ячеек в столбце D, где строка имеет пакет # в столбце A. Есть ли формула для этого или мне нужно пересмотреть лист по-другому?
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
With ws
.Cells(iRow, 1).Value = Me.TextBox1.Value
.Cells(iRow, 2).Value = Me.TextBox2.Value
.Cells(iRow, 3).Value = Me.TextBox3.Value
.Cells(iRow, 4).Value = Me.TextBox4.Value
.Cells(iRow, 5).Value = Me.TextBox5.Value
.Cells(iRow, 6).Value = Me.TextBox6.Value
End With
Unload Me
End Sub
Что вы все пробовали? Отправьте свой код. – Rdster
@Rdster Извините за поздний ответ:/ Private Sub CommandButton1_Click() Dim IRow As Long Dim WS Как Worksheet Set WS = ThisWorkbook.ActiveSheet IRow = ws.Cells (Rows.Count, 1) _ .END (xlUp) .offset (1, 0) .Row С WS .Cells (IRow, 1) .Value = Me.TextBox1.Value .Cells (IRow, 2) .Value = Me. TextBox2.Value .Cells (iRow, 3) .Value = Me.TextBox3.Value .Cells (iRow, 4) .Value = Me.TextBox4.Value .Ce LLS (IRow, 5) .Value = Me.TextBox5.Value .Cells (IRow, 6) .Value = Me.TextBox6.Value End With Выгрузка Me End Sub – Corbinjt101
Редактировать свой пост с кодом. – Rdster