Help with copying multiple rows ??

[sp4rky]

First of all the following code was thanks to this great site. It works a treat however i have a very small query

Sub Transport()
Dim RngColF As Range
Dim i As Range
Dim Dest As Range
Sheets("All Members").Select
Set RngColF = Range("W1", Range("W" & Rows.Count).End(xlUp))
With Sheets("Transport Volunteer")
Set Dest = .Range("A1")
End With
For Each i In RngColF
If i.Value = "X" Then
i.EntireRow.Copy Dest
Set Dest = Dest.Offset(1)
End If
Next i
End Sub


This will copy the exact Row to a new sheet that matches the format in column W. As i said works fine however i do not want all the row information copied only certain columns in the matching rows. I dont know if there is a range command that i could use instead of EntireRow. Can any one help. Then the next thing i wondered is can i apply this to a number of columns simultaneously?
And finally is it possible to creat buttons that will run the macro rather having to get some one who is not as puter savvy to try and run code?

be grateful for your feedback,

Carl.

 

[ravishankar]

Hi
try these codes

Sub Carl()
Dim a As Long, d As Long
d = 2
    For a = 2 To Sheets("All Members").Range("W65536").End(xlUp).Row
        If Sheets("All Members").Cells(a, 1) = "X" Then
        Sheets("All Members").Rane("A" & a & ":Z" & a).Copy
        Sheets("Transport Volunteer").Range("A" & d).PasteSpecial
        d = d + 1
        End If
    Next a
MsgBox "Complete"
End Sub

you can run it on multiple columns and specify how your output should be.Codes need to be tailored to your requirement.Draw any object on the worksheet, right click on it and choose "Assign macro" . Next time you click on it, it will run the macro.
ravi