On Oct 31, 6:43 pm, JE McGimpsey wrote:
One way:

Public Sub OrderingList_Click()
Dim dAdd As Double

With Workbooks.Open(Filename:="Workbook B.xls")
With Sheets("Delays").Range("N6:N300")
dAdd = Application.WorksheetFunction.SumIf( _
.Cells, "Marine Logistics", .Offset(0, 2))
End With
End With
With Workbooks("Workbook A.xls").Sheets("Sheet1").Range("E10")
.Value = .Value + dAdd
End With
End Sub

Change "Sheet1" to the name of your sheet in Workbook A.xls, if needed

In article .com,



wrote:
I have a macro in which I want to copy a value from a cell in Workbook
A to a cell in Workbook B.. However,when pasting it into Workbook B, I
want to add it to the previous value.. Simply pasting it replaces the
value. Is there a way to paste a value while adding it to the previous
value ??

Any help will be greatly appreciated.. Thanks a lot to all the experts
out there..!! I'm copying the code of the macro below.. macro sits in
workbook A :-

Sub OrderingList_Click()

Workbooks.Open Filename:="Workbook B.xls"
Sheets("Delays").Select
Range("n36").Select

For i = 36 To 300
Set curCell = Worksheets("Delays").Cells(i, 14)

If curCell.Value = "Marine Logistics" Then
curCell.Offset(0, 2).Select

End If

Selection.Copy

Windows("Workbook A.xls").Activate
Range("e10").Select

Selection.PasteSpecial Paste:=xlValues ' This replaces the value
each time.code which can add to prev value?

Windows("Workbook B.xls").Activate
'ActiveCell.Offset(0, -2).Select

Next i

End Sub- Hide quoted text -

- Show quoted text -

Hi,

I would like someone to help me out on this.

I have 2 sheets in excel, one is named as "Summarised Statement" and
the other one as "Report"

In Summaried statement, I have the Column A loaded with ID starting
from 1,2,3........ and so on downwards. These ID's are hyper linked
to the Sheet"Report" Cell. L3.

Now what I want is that, when I click on the Hyperlink ID's, the value
if the clicked cell should appear on "Report Cell.L3" .

Thank you for your time on helping me out.