Previous Topic Next Topic

Excel 2007 - macros

Solved/Closed
Regina - 14 Jul 2011 à 04:30
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 15 Jul 2011 à 06:06
Hello,

I need to write a macro for following example.
Item Qty
c 2
B 2
b 6
C 5
c 5
a 2

Basically I want to group by Column A (i.e. Item) and Column B (i.e. qty). In this case, the result on new sheet would be as below:

Item Qty
A 2
B 8
C 10

please help me
Related:

1 response

Réponse 1 / 1
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 766
14 Jul 2011 à 06:34
you can do a sumif
Regina
15 Jul 2011 à 04:20
sorry byt I dont know how do it, if you can write please a code
Regina
15 Jul 2011 à 04:57
I hawe this code, but he dont work like must:

Sub Disk1()
Dim lRow As Long
Dim ItemRow1, ItemRow2 As String


Columns("A:B").Select
Selection.Copy

Sheets("Sheet1").Select

Range("A1").Select
ActiveSheet.Paste

Cells.Select
Selection.Sort _
Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlDescending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

lRow = 2
Do While (Cells(lRow, 1) <> "")

ItemRow1 = Cells(lRow, "A")
ItemRow2 = Cells(lRow + 1, "A")


If (ItemRow1 = ItemRow2) Then
Cells(lRow, "B") = Cells(lRow, "B") + Cells(lRow + 1, "B")
Rows(lRow + 1).Delete

Else
lRow = lRow + 1


End If
Loop

End Sub
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 766
15 Jul 2011 à 06:06
change these two lines

ItemRow1 = Cells(lRow, "A")
ItemRow2 = Cells(lRow + 1, "A")
to

ItemRow1 = UCase(Cells(lRow, "A"))
ItemRow2 = UCase(Cells(lRow + 1, "A"))

Similar discussions

Can't open my 2007 document
bernie -
Amir khan -

46 responses