?
Solved

Excel VB Sripting

Posted on 2013-01-15
3
Medium Priority
?
243 Views
Last Modified: 2013-01-16
Hello people, I have an excel Spreadsheet that has a sheet in an excel workbook named Summary and multiple other sheets (the sheet names can be named different).  what i am looking to accomplish is combing the cells in C9:H44 into the summary sheet.  All the sheets have the same information in them but for instantance sheet 1 would have A's in the above cells Sheet two would have B's and so on.  On the summary sheet it would basically combine the cells using the & function and would be displayed as AB.  I have some sample code that completes this but it only works if the sheets are named what they are in the code. Can i set this up as a varible and have it go through all the sheets.  

thanks in advance.

Sheets("Summary").Select
    Range("C9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C9").Select
    ActiveCell.FormulaR1C1 = _
        "='sheet2'!RC&'Person2'!RC&sheet3!RC&sheet!RC"
    Range("C9").Select
    Selection.AutoFill Destination:=Range("C9:C45"), Type:=xlFillDefault
    Range("C9:C45").Select
    Selection.AutoFill Destination:=Range("C9:H45"), Type:=xlFillDefault
    Range("C9:H45").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-9
0
Comment
Question by:kkenison
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 26

Accepted Solution

by:
redmondb earned 2000 total points
ID: 38781041
Hi, kkenison.

Please see attached. The code is...
Option Explicit

Const xRANGE = "C9:H44"

Sub Summarise_Sheets()
Dim i          As Long
Dim j          As Long
Dim xArray_Wrk As Variant
Dim xArray_Out As Variant
Dim xSheet     As Worksheet

Sheets("Summary").Range(xRANGE).ClearContents
xArray_Out = Sheets("Summary").Range(xRANGE)

For Each xSheet In ThisWorkbook.Sheets
    If xSheet.Name <> "Summary" Then
        xArray_Wrk = xSheet.Range(xRANGE)
        For i = 1 To UBound(xArray_Wrk, 1)
            For j = 1 To UBound(xArray_Wrk, 2)
                If xArray_Wrk(i, j) <> "" Then xArray_Out(i, j) = xArray_Out(i, j) & xArray_Wrk(i, j)
            Next
        Next
    End If
Next

Sheets("Summary").Range(xRANGE) = xArray_Out

End Sub

Open in new window

Edit:Range converted to a constant to make it easier to change.

Regards,
Brian.Summarising.xlsm
0
 

Author Closing Comment

by:kkenison
ID: 38784091
Thank you very much for your help this worked perfectly.
0
 
LVL 26

Expert Comment

by:redmondb
ID: 38784115
Thanks, kkenison!
0

Featured Post

Will your db performance match your db growth?

In Percona’s white paper “Performance at Scale: Keeping Your Database on Its Toes,” we take a high-level approach to what you need to think about when planning for database scalability.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article helps those who get the 0xc004d307 error when trying to rearm (reset the license) Office 2013 in a Virtual Desktop Infrastructure (VDI) and/or those trying to prep the master image for Microsoft Key Management (KMS) activation. (i.e.- C…
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question