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