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.
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.