RE: Excel - VBA

Hi Arabella

Thank you for your question

You need to create a module and copy the following code into it.

Sub ConditionalCopy()

Dim lngSum As Long

Application.Workbooks("Source").Activate

Sheets("Sheet1").Select

lngSum = Application.WorksheetFunction.Sum(Range("E3:E44"))

If lngSum > 0 Then

Application.Workbooks("target").Worksheets("sheet1").Range("A1").Value = 1

End If


End Sub


This code checks a range in a workbook called source and then copies 1 to a workbook called target if the sum of that range is greater then 0.

The key line of code is


lngSum = Application.WorksheetFunction.Sum(Range("E3:E44"))

This takes the sum of the range of cells that you want to check using the worksheetfunction "sum" and asigned it to a variable called lngSum

This variable is then tested to see if its value is greater than 0 and if it is then the target workbook is opened and the value 1 assigned to range("a1") in Sheet1.

Obviously you will need to rename the workbooks and worksheets

Hope this helps, let me know if you need anything further

Regards

Stephen Williams
Microsoft Office Specialist