Copy select columns from a row given a criteria was met
Closed
Voarkin
Posts
1
Registration date
Saturday January 10, 2015
Status
Member
Last seen
January 10, 2015
-
Jan 10, 2015 at 07:10 PM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - Jan 13, 2015 at 12:36 AM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - Jan 13, 2015 at 12:36 AM
Related:
- Copy select columns from a row given a criteria was met
- Vba select case like - Guide
- Saints row 2 cheats - Guide
- How to delete a row in a table in word - Guide
- To create a network bridge you must select at least two lan - Network Forum
- If cell contains (multiple text criteria) then return (corresponding text criteria) ✓ - Excel Forum
1 response
vcoolio
Posts
1411
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 6, 2024
262
Jan 13, 2015 at 12:36 AM
Jan 13, 2015 at 12:36 AM
Hello Voarkin,
Perhaps the following code may help:-
You can have a look at my test work book here:-
https://www.dropbox.com/s/79nfe8xg4banv6d/Voarkin.xlsm?dl=0
to see if it works for you.
The code also deletes your daily log entries as I have assumed that you would not want your input sheet cluttered up with used data.
The blanks that I have left in the test work book are deliberate.
I hope it helps.
Kind regards,
vcoolio.
Perhaps the following code may help:-
Sub TransferIt()
Application.ScreenUpdating = False
Dim lRow As Long
Sheets("Daily Log").Select
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each Cell In Range("A2:A" & lRow)
If Cell = "ACD" Then
Range(Cells(Cell.Row, "C"), Cells(Cell.Row, "E")).Copy Sheets("ACD Call Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
ElseIf Cell = "Walk-in" Then
Range(Cells(Cell.Row, "C"), Cells(Cell.Row, "E")).Copy Sheets("In Store Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
ElseIf Cell = "Both" Then
Range(Cells(Cell.Row, "C"), Cells(Cell.Row, "E")).Copy Sheets("ACD Call Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Range(Cells(Cell.Row, "C"), Cells(Cell.Row, "E")).Copy Sheets("In Store Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next Cell
Sheets("Daily Log").Range("A2:E" & Rows.Count).ClearContents
MsgBox "Data transfer completed!", vbExclamation
Application.ScreenUpdating = True
End Sub
You can have a look at my test work book here:-
https://www.dropbox.com/s/79nfe8xg4banv6d/Voarkin.xlsm?dl=0
to see if it works for you.
The code also deletes your daily log entries as I have assumed that you would not want your input sheet cluttered up with used data.
The blanks that I have left in the test work book are deliberate.
I hope it helps.
Kind regards,
vcoolio.
