You can use the following code (slightly changed from original).
Sub RedemptionsUSD()
Dim ModelCash As Worksheet
Dim CashFlow As Worksheet
Set ModelCash = Workbooks("Model.xls").Worksheets(1)
Set CashFlow = Workbooks("Model.xls").Worksheets(2)
Dim j As Integer
Dim c As Integer
'set all values to zero at first
For c = 4 To 50
ModelCash.Range("D" & c).Value = 0
Next c
For j = 14 To 200
For c = 4 To 50
If CashFlow.Range("D" & j).Value = ModelCash.Range("A" &
c).Value And CashFlow.Range("C" & j) = "USD" Then
'add to the original value every time the same date is found
ModelCash.Range("D" & c).Value = ModelCash.Range("D" &
c).Value + CashFlow.Range("B" & j).Value
End If
Next c
Next j
End Sub
Akhilesh Kumar Karna
On Wed, May 6, 2009 at 2:43 PM, Samir Agayev <saga...@gmail.com> wrote:
> Dear Group members,
>
> In attached excel file, I have a little vba code.
>
> It gets data from Column B in Sheet2 to Column D in Sheet1 if Column D in
> Sheet2 equals Column A in Sheet1.
>
> The only problem occurs when the Items of Column D in Sheet2 are not
> unique. You can see there three 15-May-09. So it gets only the last data,
> which is 100,000,000.00 (at B19 in Sheet2), and ignores B17 and B18).
>
> Is there any way of improving this code to get the sum of B17, B18 and B20
> into D13 in Sheet1?
>
> Thank you in advance.
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
