Transfer between excel worksheets
Closed
Vira
-
Jul 19, 2016 at 02:58 PM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Jul 20, 2016 at 12:32 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Jul 20, 2016 at 12:32 AM
Related:
- Transfer between excel worksheets
- Transfer data from one excel worksheet to another automatically - Guide
- Free fire transfer - Guide
- Excel date format dd.mm.yyyy - Guide
- Kernel for excel - Download - Backup and recovery
- Screenshot in excel - Guide
1 response
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Jul 20, 2016 at 12:32 AM
Jul 20, 2016 at 12:32 AM
Hello Vira,
Perhaps the following code may do the task for you:-
Following is the link to my test work book for you to peruse. Click on the "RUN" button to see it work.
https://www.dropbox.com/s/9wc4n3kdeboa20j/Vira%28transfer%20to%20sht2%2Cautofilter%29.xlsm?dl=0
The code filters Column B for the numerical value zero (0) and then transfers the relevant row of data to sheet2. The relevant entry from sheet1 (your input) sheet is deleted.
Try the code in a sample of your work book first.
I hope that this helps.
Cheerio,
vcoolio.
Perhaps the following code may do the task for you:-
Sub Transfer() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("B1", Range("B" & Rows.Count).End(xlUp)) .AutoFilter 1, 0# On Error Resume Next .Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues .Offset(1).EntireRow.Delete End With .AutoFilterMode = False End With Application.CutCopyMode = False Application.ScreenUpdating = True Sheet2.Select End Sub
Following is the link to my test work book for you to peruse. Click on the "RUN" button to see it work.
https://www.dropbox.com/s/9wc4n3kdeboa20j/Vira%28transfer%20to%20sht2%2Cautofilter%29.xlsm?dl=0
The code filters Column B for the numerical value zero (0) and then transfers the relevant row of data to sheet2. The relevant entry from sheet1 (your input) sheet is deleted.
Try the code in a sample of your work book first.
I hope that this helps.
Cheerio,
vcoolio.