Payment Transfer
Closed
Michael T
-
Mar 29, 2016 at 08:13 PM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - Mar 30, 2016 at 06:35 AM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - Mar 30, 2016 at 06:35 AM
Related:
- Payment Transfer
- Free fire transfer - Guide
- Ssh secure file transfer download - Download - Remote access
- Netflix account payment - Guide
- Transfer mini dv to computer without camcorder - Guide
- Sprint transfer of liability - Guide
2 responses
vcoolio
Posts
1411
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 6, 2024
262
Mar 30, 2016 at 05:12 AM
Mar 30, 2016 at 05:12 AM
Hello Michael,
Are Columns A To C blank?
Cheerio,
vcoolio.
Are Columns A To C blank?
Cheerio,
vcoolio.
vcoolio
Posts
1411
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 6, 2024
262
Mar 30, 2016 at 06:35 AM
Mar 30, 2016 at 06:35 AM
Hello again Michael,
Regardless, the following code may do the task for you:-
Following is the link to my test work book:-
https://www.dropbox.com/s/8ce29y9xesuz8mz/MichaelT%28Master%20sheet%20to%20multi%20sheets%29.xlsm?dl=0
The code transfers data to each individually named sheet (based on Column D names) as long as there is a value in Column F. The code then deletes the "used" data from the Payments sheet.
Click on the blue button to see the code at work.
I hope that this helps.
Cheerio,
vcoolio.
P.S. : I noticed that you are operating a Mac. I do not have any experience with Macs but I believe that Excel for Macs should still work fluently when VBA is added to a spread sheet. One way to find out!
Regardless, the following code may do the task for you:-
Sub TransferData()
Application.ScreenUpdating = False
Dim lRow As Long
Dim lCol As Long
Dim i As Integer
Dim MySheet As String
lRow = Range("D" & Rows.Count).End(xlUp).Row
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
Sheet1.Select
For i = lRow To 2 Step -1
MySheet = Cells(i, 4).Value
If Cells(i, 6) <> "" Then
Range(Cells(i, 1), Cells(i, lCol)).Copy Sheets(MySheet).Range("A" & Rows.Count).End(3)(2)
Range(Cells(i, 1), Cells(i, lCol)).Delete
Sheets(MySheet).Columns.AutoFit
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Following is the link to my test work book:-
https://www.dropbox.com/s/8ce29y9xesuz8mz/MichaelT%28Master%20sheet%20to%20multi%20sheets%29.xlsm?dl=0
The code transfers data to each individually named sheet (based on Column D names) as long as there is a value in Column F. The code then deletes the "used" data from the Payments sheet.
Click on the blue button to see the code at work.
I hope that this helps.
Cheerio,
vcoolio.
P.S. : I noticed that you are operating a Mac. I do not have any experience with Macs but I believe that Excel for Macs should still work fluently when VBA is added to a spread sheet. One way to find out!
