Transfering data from tab to tab

[Dw136905]

Here is the code that i have so far:

Worksheets ("FCL").Cells( 1,  2).Value = Worksheets ("LoanListFCL").Cells( 2,  1,).Value
Worksheets ("FCL").Cells( 1,  4).Value = Worksheets ("LoanListFCL").Cells( 2,  2).Value
Worksheets ("FCL").Cells( 1,  6).Value = Worksheets ("LoanListFCL").Cells( 2,  3).Value
Worksheets ("FCL").Cells( 2,  2).Value = Worksheets ("LoanListFCL").Cells( 2,  4).Value
Worksheets ("FCL").Cells( 2,  4).Value = Worksheets ("LoanListFCL").Cells( 2,  5).Value
Worksheets ("FCL").Cells( 5,  5).Value = Worksheets ("LoanListFCL").Cells( 2,  6).Value
Worksheets ("FCL").Cells( 5,  2).Value = Worksheets ("LoanListFCL").Cells( 2,  8).Value
Worksheets ("FCL").Cells( 5,  3).Value = Worksheets ("LoanListFCL").Cells( 2,  9).Value
Worksheets ("FCL").Cells( 5,  4).Value = Worksheets ("LoanListFCL").Cells( 2,  10).Value
Worksheets ("FCL").Cells( 5,  6).Value = Worksheets ("LoanListFCL").Cells( 2,  11).Value

Worksheets ("FCL").Cells( 13,  2).Value = Worksheets ("LoanListFCL").Cells( 3,  1).Value
Worksheets ("FCL").Cells( 13,  4).Value = Worksheets ("LoanListFCL").Cells( 3,  2).Value
Worksheets ("FCL").Cells( 13,  6).Value = Worksheets ("LoanListFCL").Cells( 3,  3).Value
Worksheets ("FCL").Cells( 14,  2).Value = Worksheets ("LoanListFCL").Cells( 3,  4).Value
Worksheets ("FCL").Cells( 14,  4).Value = Worksheets ("LoanListFCL").Cells( 3,  5).Value
Worksheets ("FCL").Cells( 17,  5).Value = Worksheets ("LoanListFCL").Cells( 3,  6).Value
Worksheets ("FCL").Cells( 17,  2).Value = Worksheets ("LoanListFCL").Cells( 3,  8).Value
Worksheets ("FCL").Cells( 17,  3).Value = Worksheets ("LoanListFCL").Cells( 3,  9).Value
Worksheets ("FCL").Cells( 17,  4).Value = Worksheets ("LoanListFCL").Cells( 3,  10).Value
Worksheets ("FCL").Cells( 17,  6).Value = Worksheets ("LoanListFCL").Cells( 3,  11).Value

What i am trying to do is be able to put as many lines as possible in LoanListFCL and have it populate over to FCL without having to write this code over and over changing the cell numbers. Also, after about 40 or so it errors out because the code is just too long. Any help is much appreciated.

[Leith Ross]

Hello Dw136905,

Welcome to the Forum!

There is probably a lot more code than what you have posted here. To answer your questions correctly, and effectively code solutions to your problem, you should post your workbook.

[Dw136905]

Thanks for the assistance.
I know that this code is written out long and and sloppy im just not sure of another way to do it.

Private Sub CommandButton4_Click()
Worksheets("FCL").Cells(1, 2).Value = Worksheets("LoanListFCL").Cells(2, 1).Value
Worksheets("FCL").Cells(1, 4).Value = Worksheets("LoanListFCL").Cells(2, 2).Value
Worksheets("FCL").Cells(1, 6).Value = Worksheets("LoanListFCL").Cells(2, 3).Value
Worksheets("FCL").Cells(2, 2).Value = Worksheets("LoanListFCL").Cells(2, 4).Value
Worksheets("FCL").Cells(2, 4).Value = Worksheets("LoanListFCL").Cells(2, 5).Value
Worksheets("FCL").Cells(5, 5).Value = Worksheets("LoanListFCL").Cells(2, 6).Value
Worksheets("FCL").Cells(5, 2).Value = Worksheets("LoanListFCL").Cells(2, 8).Value
Worksheets("FCL").Cells(5, 3).Value = Worksheets("LoanListFCL").Cells(2, 9).Value
Worksheets("FCL").Cells(5, 4).Value = Worksheets("LoanListFCL").Cells(2, 10).Value
Worksheets("FCL").Cells(5, 6).Value = Worksheets("LoanListFCL").Cells(2, 11).Value

Worksheets("FCL").Cells(13, 2).Value = Worksheets("LoanListFCL").Cells(3, 1).Value
Worksheets("FCL").Cells(13, 4).Value = Worksheets("LoanListFCL").Cells(3, 2).Value
Worksheets("FCL").Cells(13, 6).Value = Worksheets("LoanListFCL").Cells(3, 3).Value
Worksheets("FCL").Cells(14, 2).Value = Worksheets("LoanListFCL").Cells(3, 4).Value
Worksheets("FCL").Cells(14, 4).Value = Worksheets("LoanListFCL").Cells(3, 5).Value
Worksheets("FCL").Cells(17, 5).Value = Worksheets("LoanListFCL").Cells(3, 6).Value
Worksheets("FCL").Cells(17, 2).Value = Worksheets("LoanListFCL").Cells(3, 8).Value
Worksheets("FCL").Cells(17, 3).Value = Worksheets("LoanListFCL").Cells(3, 9).Value
Worksheets("FCL").Cells(17, 4).Value = Worksheets("LoanListFCL").Cells(3, 10).Value
Worksheets("FCL").Cells(17, 6).Value = Worksheets("LoanListFCL").Cells(3, 11).Value

Worksheets("FCL").Cells(25, 2).Value = Worksheets("LoanListFCL").Cells(4, 1).Value
Worksheets("FCL").Cells(25, 4).Value = Worksheets("LoanListFCL").Cells(4, 2).Value
Worksheets("FCL").Cells(25, 6).Value = Worksheets("LoanListFCL").Cells(4, 3).Value
Worksheets("FCL").Cells(26, 2).Value = Worksheets("LoanListFCL").Cells(4, 4).Value
Worksheets("FCL").Cells(26, 4).Value = Worksheets("LoanListFCL").Cells(4, 5).Value
Worksheets("FCL").Cells(29, 5).Value = Worksheets("LoanListFCL").Cells(4, 6).Value
Worksheets("FCL").Cells(29, 2).Value = Worksheets("LoanListFCL").Cells(4, 8).Value
Worksheets("FCL").Cells(29, 3).Value = Worksheets("LoanListFCL").Cells(4, 9).Value
Worksheets("FCL").Cells(29, 4).Value = Worksheets("LoanListFCL").Cells(4, 10).Value
Worksheets("FCL").Cells(29, 6).Value = Worksheets("LoanListFCL").Cells(4, 11).Value

Worksheets("FCL").Cells(37, 2).Value = Worksheets("LoanListFCL").Cells(5, 1).Value
Worksheets("FCL").Cells(37, 4).Value = Worksheets("LoanListFCL").Cells(5, 2).Value
Worksheets("FCL").Cells(37, 6).Value = Worksheets("LoanListFCL").Cells(5, 3).Value
Worksheets("FCL").Cells(38, 2).Value = Worksheets("LoanListFCL").Cells(5, 4).Value
Worksheets("FCL").Cells(38, 4).Value = Worksheets("LoanListFCL").Cells(5, 5).Value
Worksheets("FCL").Cells(41, 5).Value = Worksheets("LoanListFCL").Cells(5, 6).Value
Worksheets("FCL").Cells(41, 2).Value = Worksheets("LoanListFCL").Cells(5, 8).Value
Worksheets("FCL").Cells(41, 3).Value = Worksheets("LoanListFCL").Cells(5, 9).Value
Worksheets("FCL").Cells(41, 4).Value = Worksheets("LoanListFCL").Cells(5, 10).Value
Worksheets("FCL").Cells(41, 6).Value = Worksheets("LoanListFCL").Cells(5, 11).Value
End Sub

As you can see this way to get my information from cell x on LoanListFCL to cell y on FCL is quiet cumbersome. The purpose that i am using it for is adding a line of information on the LoanListFCL sheet and its populating onto the sheet FCLwhere i have various formating and functions already tied in. Thanks in advance for any help.