Code to copy text from one sheet to another if the value of a cell is above 0

[darrensconfused]

Hello Everyone

I am very new to VBA so i am at a loss with this code i have tried copying existing codes from other posts but havent had any luck as yet. The workbook is essentially a price book and i am trying to create a macro that will copy the text from the woksheet "flexible duct" to the "summary" worksheet if the value of F9:F18 is above 0

it would be amazing if the pasted text would autofit into the cells of the summary sheet.

any help would be greatly appreciated as i am at a loss

Thanks

Darren

i have posted a link to my workbook below

https://www.dropbox.com/s/r4m9l4ud9d9gz33/ADA Price Book.xlsm?dl=0

 

[darrensconfused]

Re: Please help! looking for code to copy text from one sheet to another if the value of a cell is above 0

Hello Michael

i would love the data to appear from Row 9 down on the Summary sheet.

Thanks

 

[Michael M]

Re: Please help! looking for code to copy text from one sheet to another if the value of a cell is above 0

UNTESTED

Sub MM1()
Dim r As Long, ws As Worksheet, n As Long
n = 9
For Each ws In Worksheets
    If ws.Name <> "ADA" Then
    ws.Activate
        For r = 9 To 18
            If Range("F" & r).Value <> "" Then
                Range("A" & r & ":C" & r).Copy Sheets("Summary").Range("A" & n)
                n = n + 1
            End If
            If Range("Q" & r).Value <> "" Then
                Range("L" & r & ":N" & r).Copy Sheets("Summary").Range("A" & n)
                n = n + 1
            End If
        Next r
    End If
Next ws
End Sub