Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Excel VB Sripting

Posted on 2013-01-15
3
Medium Priority
?
244 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

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

Question has a verified solution.

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

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…
This lesson discusses how to use a Mainform + Subforms in Microsoft Access to find and enter data for payments on orders. The sample data comes from a custom shop that builds and sells movable storage structures that are delivered to your property. …

604 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