Excel vba copy data from general sheets and organize them in separate sheets.

**excelsubb** · 01-20-2013, 12:56 PM

Hello,

We have been using this excel is sheet in our business manually, so in the process we commit a lot of errors. It will be great to be able to enter all data into "Sheet 1" and "Sheet 2" for example, and then excel automatically takes this data and organize it in the rest of the sheets as we need it in this case, separated by banks accounts.

I hope someone of you can help me learn what should I do here, what function do I need or maybe what vba code should I use. However, I do not have good knowledges on visual basic.

Regards
Daniel

**arlu1201** · 01-20-2013, 01:19 PM

You do not have a Sheet1 and Sheet2 in your file. Are you talking about the 3 green tabs?

Also, which if the field which contains the Bank account name? Is it column C?

**excelsubb** · 01-20-2013, 01:23 PM

Yes, when I meant Sheet 1 and sheet 2, I refered to the 3 green tabs. I want to be able to fill information in those 3 tabs only, and automatically fill info in the gray tabs. If not, I will have to enter information 2 or 3 times each time.

Thats correct, in Sheet "Ingreso" is column C.

So Banco Ingreso --- Bank that received money.
Banco Egreso -- Bank from which we will send the money.

thanks,
Daniel

**arlu1201** · 01-20-2013, 01:30 PM

What should go into the tab titled "Balance" ?

**excelsubb** · 01-20-2013, 01:32 PM

Balance will be gathering all the information. As first sheet will gather incoming money and second sheet will gather outgoing money, "Balance" will recopilate the 2 transactions so that you can see the total amount of liquid money in the the current date.

Regards
Daniel

**arlu1201** · 01-20-2013, 01:36 PM

Do you want the "Balance" sheet to be populated by the macro?

Also, the "Ingreso" sheet is not in the same format as the other 2. Is that fine? Will it always be having 4 columns while the "Egreso" sheet has 6 columns?

**excelsubb** · 01-20-2013, 01:43 PM

that is right, "balance" sheet I want to be populated by ingreso and egreso sheets. Yes, ingreso doesn't have description or category as it is always the same sale.

**arlu1201** · 01-20-2013, 01:44 PM

So you do not want the macro to populate the other sheets? Only the balance sheet should be populated?

**excelsubb** · 01-20-2013, 01:47 PM

Yes the other sheets too. For example and incoming money enters into the bank "Oficina", and the user will fill the info in "Ingreso". Then, I want excel to put that information in Balance, as well as the bank "oficina". With this, I will be able to know how much the current balance of the business, and the current balance and detailed operations of each bank account.

Regards
Daniel

**arlu1201** · 01-20-2013, 01:48 PM

Ok possibly the last question.

Suppose today you populate the data into the green sheets and then run the macro. The data will get copied into the respective sheets. Then tomorrow, you want to populate more data. Will you be clearing the 3 sheets and putting in fresh data or will you put data in the next available row of the 3 sheets?

**excelsubb** · 01-20-2013, 02:47 PM

Do you think you can help me with this?

Regards
Daniel

**excelsubb** · 01-20-2013, 01:51 PM

I will put the data in the next available row of the 3 first sheets.

**arlu1201** · 01-21-2013, 06:20 AM

I was working on your code when i got stuck here -

In the Tinterna sheet, there are 2 columns C & D. So where should the data go from this sheet? Into the sheet names given in column C or in column D?

**excelsubb** · 01-21-2013, 07:39 AM

Tinterna will be to record internal transfers, so we can move money between our own accounts. It will not affect the Balance sheet, as no money is coming in or out, it is just moving. However, it will change money between banks account. So banco egreso means money will go out of that bank account into banco ingreso, reflected in the sheet of each account.

Regards
Daniel

**arlu1201** · 01-21-2013, 08:11 AM

So whatever details are present in Tinterna dont need to go into the "Balance" sheet right? But if i need to copy paste the data into the other sheets for the respective accounts, which column holds the sheet name? Column C or D?

**excelsubb** · 01-21-2013, 08:36 AM

Both. For example, in Tinterna - Banco Egreso = "Mercadopago", and banco ingreso = "Oficina", amount 2000. That will means that in bank account Mercadopago, 2000 will go out from the account, and in bank account sheet "Oficina" 2000 will go into the account.

In this way, money was transfer between accounts. When I enter then in Mercadopago, there will be no more those 2000, as they will be in Oficina.

Best REgards,
Daniel

**arlu1201** · 01-21-2013, 08:47 AM

So the records should go only into the sheets stated in column D?

**excelsubb** · 01-21-2013, 08:53 AM

Into the sheets stated in Column C and D, as sheet in column C will register an "Egreso" and sheet in column D will register an "Ingreso"

**arlu1201** · 01-21-2013, 09:35 AM

One last question - should the information from Tinterna go into the Balance sheet?

**excelsubb** · 01-21-2013, 09:44 AM

It can go in balance sheet or not. Le me explain, if current balance in balance sheet is for example 1500USD, and I make an internal transfer from "mercadopago to oficina", the balance of the business should still be 1500USD. That is because no money have gone out of our accounts, just ttransfered between them. So, from that point, is not necessary to appear in balance. However, it can also appear in balance sheet as an outgoing "Egreso" and then as an incoming money "Ingreso". In that way, an internal transfer of 1000 will be 1000-1000 = 0, and does not alter the balance.

**arlu1201** · 01-21-2013, 09:48 AM

Ok. Try this code - instructions are given below the code on how to use it -

Option Explicit

Sub update_sheets()
Dim ws As Variant
Dim lrow As Long, i As Long, lastrow As Long
Dim sname As String

Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            lrow = .Range("A" & .Rows.Count).End(xlUp).Row
            If lrow > 4 Then .Range("A5:G" & lrow).ClearContents
        End If
    End With
Next i

With Worksheets("Ingreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("D" & i).Copy Worksheets(sname).Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:B" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("D5:D" & lrow).Copy Worksheets("Balance").Range("D" & lastrow + 1)
End With

With Worksheets("Egreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("F" & i).Value
        .Range("A" & i & ":C" & i).Copy Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("E" & i).Copy Worksheets(sname).Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:C" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("E5:E" & lrow).Copy Worksheets("Balance").Range("E" & lastrow + 1)
End With

With Worksheets("Tinterna")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("F" & i).Copy Worksheets(sname).Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
        sname = .Range("D" & i).Value
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
        .Range("F" & i).Copy Worksheets(sname).Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
End With

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button

**excelsubb** · 01-21-2013, 09:59 AM

Thanks!, I have inserted and it is starting to work, however dome numbers does not appear well. I attach the file so you can see. For example in "Banesco" first transaction has an incoming and an outgoing at the same time. which can not be. the "ingreso which is 1000 is good" but the number in "egreso" 1760 corresponds to the reference code G102 which is below along with also wrong numbers.

REgards
Daniel

**arlu1201** · 01-21-2013, 10:29 AM

Try this updated code

Option Explicit

Sub update_sheets()
Dim ws As Variant
Dim lrow As Long, i As Long, lastrow As Long
Dim sname As String

Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            lrow = .Range("A" & .Rows.Count).End(xlUp).Row
            If lrow > 4 Then .Range("A5:G" & lrow).ClearContents
        End If
    End With
Next i

With Worksheets("Ingreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets("sname").Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("D" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:B" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("D5:D" & lrow).Copy Worksheets("Balance").Range("D" & lastrow + 1)
End With

With Worksheets("Egreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("F" & i).Value
        lastrow = Worksheets("sname").Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":C" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:C" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("E5:E" & lrow).Copy Worksheets("Balance").Range("E" & lastrow + 1)
End With

With Worksheets("Tinterna")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets("sname").Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
        sname = .Range("D" & i).Value
        lastrow = Worksheets("sname").Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
End With

Application.ScreenUpdating = True

End Sub

**excelsubb** · 01-21-2013, 01:26 PM

It says script out of range.

**arlu1201** · 01-21-2013, 01:44 PM

Which line is highlighted?

**excelsubb** · 01-21-2013, 01:54 PM

lastrow = Worksheets("sname").Range("A" & Rows.Count).End(xlUp).Row

**arlu1201** · 01-21-2013, 01:59 PM

Oops am sorry. You will see multiple such rows in the code. Please remove the " before and after the sname. It should only be worksheets(sname).

**excelsubb** · 01-21-2013, 02:08 PM

Wow its incredible what you did! Thank you very much! I know that is a lot of effort!

**excelsubb** · 01-21-2013, 02:12 PM

What should I put in the code so that in Sheet "Balance" I also can see the bank into which the transaction is registered. AS the field Bnaks remains in blank right now.

**arlu1201** · 01-21-2013, 02:14 PM

Which is the column which contains that info?

**excelsubb** · 01-21-2013, 05:47 PM

Don't worry its ok without that. When running the macro, when I go to a bank account sheet it has frist incoming, then outgoing and then internal transfer? If I want them to be in order by date, should I insert a filter and each time running the macro organize filter as descending date? or can I put a code in the macro to do it automatic?

Regards

**arlu1201** · 01-22-2013, 05:29 AM

You do not need filter. You need to include the sort code. Do you want all sheets (except the 1st 3) to be sorted by date?

**excelsubb** · 01-22-2013, 07:32 AM

Yes all of them except the first 3

**arlu1201** · 01-22-2013, 08:44 AM

Updated code

Option Explicit

Sub update_sheets()
Dim ws As Variant
Dim lrow As Long, i As Long, lastrow As Long
Dim sname As String

Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            lrow = .Range("A" & .Rows.Count).End(xlUp).Row
            If lrow > 4 Then .Range("A5:G" & lrow).ClearContents
        End If
    End With
Next i

With Worksheets("Ingreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("D" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:B" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("D5:D" & lrow).Copy Worksheets("Balance").Range("D" & lastrow + 1)
End With

With Worksheets("Egreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("F" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":C" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:C" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("E5:E" & lrow).Copy Worksheets("Balance").Range("E" & lastrow + 1)
End With

With Worksheets("Tinterna")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
        sname = .Range("D" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
End With

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("A:A") _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Range("A:G")
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    End With
Next i

Application.ScreenUpdating = True

End Sub

**excelsubb** · 01-22-2013, 09:08 AM

This is what I get: the sort reference is not valid. make sure it is withing the data you want the sort, and the first sort by box isnt the same or blank.

Highlited line : .Apply (at the end)

**arlu1201** · 01-22-2013, 09:20 AM

Sorry a typo in the code. I have edited the code above.

**excelsubb** · 01-23-2013, 12:36 AM

But the code works perfectly, I never thought I would have found someone to help me do this!

**excelsubb** · 01-23-2013, 12:35 AM

I have tried it, but the manu bar went out of position. I attach an image

**arlu1201** · 01-23-2013, 05:10 AM

I have corrected the code - sorry i didnt realise it was creating a problem -

Option Explicit

Sub update_sheets()
Dim ws As Variant
Dim lrow As Long, i As Long, lastrow As Long
Dim sname As String

Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            lrow = .Range("A" & .Rows.Count).End(xlUp).Row
            If lrow > 4 Then .Range("A5:G" & lrow).ClearContents
        End If
    End With
Next i

With Worksheets("Ingreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("D" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:B" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("D5:D" & lrow).Copy Worksheets("Balance").Range("D" & lastrow + 1)
End With

With Worksheets("Egreso")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("F" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":C" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
    Next i
    lastrow = Worksheets("Balance").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:C" & lrow).Copy Worksheets("Balance").Range("A" & lastrow + 1)
    .Range("E5:E" & lrow).Copy Worksheets("Balance").Range("E" & lastrow + 1)
End With

With Worksheets("Tinterna")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 5 To lrow
        sname = .Range("C" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("E" & lastrow + 1)
        sname = .Range("D" & i).Value
        lastrow = Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & i & ":B" & i).Copy Worksheets(sname).Range("A" & lastrow + 1)
        .Range("E" & i).Copy Worksheets(sname).Range("C" & lastrow + 1)
        .Range("F" & i).Copy Worksheets(sname).Range("D" & lastrow + 1)
    Next i
End With

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Ingreso" And .Name <> "Egreso" And .Name <> "Tinterna" Then
            lrow = .Range("A" & .Rows.Count).End(xlUp).Row
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("A4:A" & lrow) _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .Sort
                .SetRange Range("A4:G" & lrow)
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    End With
Next i

Application.ScreenUpdating = True

End Sub

**excelsubb** · 01-24-2013, 07:55 AM

Thank you very much!, it worked out perfectly!

**arlu1201** · 01-24-2013, 08:01 AM

Am glad it worked for you.

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

Excel vba copy data from general sheets and organize them in separate sheets.

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Re: Excel vba copy data from general sheets and organize them in separate sheets.

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions