Copy and Past if cell equals X for each day of the week

**chris vice** · 11-22-2016, 05:12 PM

I would like to add onto this script that I found on this awesome site. To include all the days of the week..
So basically I have a task for each worker and if Monday column has a "X" in it I copy that row of of data to "Monday"

I want to continue this for each day of the week.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = "x" Then
Range("H" & Target.Row & ":T" & Target.Row).Copy Sheets("Monday").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)

End If
End Sub

**Richard Buttrey** · 11-22-2016, 05:44 PM

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation with manually calculated results, explaining which information is data and which is results, and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.

If this is a data extraction exercise there may well be simpler ways of achieving your goal. A Pivot table springs to mind or an Advanced Data filter. But we need to see your layout.

Copy and Past if cell equals X for each day of the week

LinkBack

Thread Tools

Rate This Thread

Display

Copy and Past if cell equals X for each day of the week

Re: Copy and Past if cell equals X for each day of the week

Thread Information

Users Browsing this Thread

Similar Threads

Copy certain cells from a row to another sheet if cell equals value

[SOLVED] Copy Entire Row if Cell Value Equals X or Y or Z

[SOLVED] VBA copy and past to different cell

If drop down menu equals one of 5 lists, on a certain day of the week, then..

[SOLVED] Copy row to another sheet if cell equals value

If cell equals, copy row

If Cell equals text Copy Cells, B2,B3,B4

Bookmarks

Bookmarks

Posting Permissions