2016-12-15 6 views
0

ich entschuldige mich, wenn diese Frage beantwortet wurde, bevor, ich war nicht ganz sicher, wie es zu fragen. Ich mache eine portofreie Meldung für die Arbeit. Es gibt einen Bereich, den wir in den Stapelinformationen Spalten A bis F eingeben (Stapel-Nr., Schema, Ablegezeit, Gesamtstückzahl, Rabatt und Porto). Ich habe eine Fläche in den Spalten K-O, um die Chargen zusammenzufassen (Alle Teile aus der Charge 1 würden in der Spalte K zusammengefasst werden)Hinzufügen mehrerer Zellen in einer Spalte auf einem Wert in einer anderen Spalte basiert aber gleichen Zeilen

Jetzt können wir manchmal die Chargen 1a, 1b und bis 1c haben. Was ich versuche, ist die Summe der gesamten Teile von Stapel 1, selbst wenn es mehr als einen gibt, alle in einer Zelle unter der Spalte Gesamtstücke. Genauer gesagt: Summenzellen in Spalte D, in der die Zeile in Spalte A Stapel-Nr. Hat. Gibt es eine Formel, um dies zu tun, oder sollte ich das Blatt anders überarbeiten?

enter image description here

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 
+1

Was alle haben Sie versucht? Sende deinen Code. – Rdster

+0

@Rdster Sorry für die späte Antwort:/ 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 Mit ws .Cells (iRow, 1) = .Wert Me.TextBox1.Value .Cells (iRow, 2) .Wert Me =. TextBox2.Value .Cells (iRow, 3) .Wert = Me.TextBox3.Value .Cells (iRow, 4) .Wert = Me.TextBox4.Value .Ce lls (iRow, 5) .Value = Me.TextBox5.Value .Cells (iRow, 6) .Value = Me.TextBox6.Value End With Unload Me End Sub – Corbinjt101

+0

bearbeiten Sie Ihre Post mit Ihrem Code. – Rdster

Antwort

Verwandte Themen