Help automating a row copy feature

[ZapatoGrande]

Hi guys,
I need to copy an entire row from a worksheet ("Today") to another worksheet ("Summary") based upon the value of column K in the worksheet "Today" not being empty. I would like a macro to do it so I can assign it to a button.
Thanks in advance,
ZG

 

[mahen77]

Hi,

can you be more specific and send the data file so that I can do somthing on this.

Thanks
Mahen

 

[ZapatoGrande]

I don't own the file, so I cannot send it out, sorry. What more specifics do you need? Column K of each row is either a number (a percent improvement) or blank.
ZG

 

[jindon]

Hi

assuming row 1 has headings

Sub transfer()
Dim r As Range, LastR As Long
Application.ScreenUpdating = False
With Sheets("Today")
    If Application.CountA(.Range("k:k")) < 1 Then GoTo Last
        Sheets("Summary").Cells.Clear
    For Each r In Range("k1", Range("k65536").End(xlUp))
        If Not IsEmpty(r) Then
            LastR = Sheets("Summary").Range("k65536").End(xlUp).Row
            r.EntireRow.Copy Destination:=Sheets("Summary").Rows(LastR + 1)
        End If
    Next
End With
Last: Application.ScreenUpdating = True
End Sub

hope this helps
jindon