?
Solved

How can I use Excel VBA to copy cells from one sheet to another and transposing data to a list

Posted on 2014-08-17
4
Medium Priority
?
712 Views
Last Modified: 2014-08-17
Hi.
I'm tryin to figure out how to copy selected cells from one sheet to another and at the sametime transposing the data structure.

I would like to transpose from this:
RawData
to this:
Data
Sofar I'm working on a makro e.g this:
Sub copy()
    Dim strSeek As String
    Dim strSeekWeek As String
    Const strSourceSheet As String = "RawData"
    Const strDestSheet As String = "Data"
    Dim r As Integer
    Dim found As Integer
    Dim rng As Range
    Dim c As Object
    Dim lrow As Integer
    Dim SletData As Range
    Dim i As Integer

    'delete
    Sheets(strDestSheet).Range("A2:A5000").EntireRow.Delete
    
    'select data
    Sheets(strSourceSheet).Select
    Range("A1", Range("A" & Rows.Count).End(xlUp)).Select
    Set rng = Selection
    
    'copy    For Each c In rng

        Sheets(strDestSheet).Range("A1").Offset(r, 0).Value = c.Offset(0, 0).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 1).Value = c.Offset(0, 1).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 2).Value = c.Offset(0, 2).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 3).Value = c.Offset(0, 3).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 4).Value = c.Offset(0, 4).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 5).Value = c.Offset(0, 5).Value
        Sheets(strDestSheet).Range("A1").Offset(r, 6).Value = c.Offset(0, 6).Value
       
       'missing out here
       
        r = r + 1
    
    Next c
      
    MsgBox "Data copy", vbOKOnly
End Sub

Open in new window

but i'm having troble to handle the loops around each dataset in the "rawdata" section (every 15 rows are related to each other) and missing the code to built the new structure

Sincerely :-)
Example.xlsm
0
Comment
Question by:LDiers
  • 2
3 Comments
 
LVL 46

Expert Comment

by:aikimark
ID: 40266637
Do you need the days of the week names translated?
0
 
LVL 46

Accepted Solution

by:
aikimark earned 2000 total points
ID: 40266673
I added the following routine in a module.  For testing purposes, I moved the data into a new worksheet (Sheet1).  I think it is a simpler implementation of what you want to do.
Sub Q_28499549()
    Dim rngTgt As Range
    Dim rngSrc As Range
    Dim rngDays As Range
    Dim rng As Range
    Dim wksSrc As Worksheet
    Dim wksTgt As Worksheet
    Set wksSrc = Worksheets("RawData")
    Set wksTgt = Worksheets("Sheet1")
    Set rngSrc = wksSrc.Range("A1")
    Set rngTgt = wksTgt.Range("A2")
    Application.ScreenUpdating = False
    Do
        For Each rng In wksSrc.Range(rngSrc.Offset(1, 1), rngSrc.Offset(1, 1).End(xlToRight))
            wksTgt.Range(rngTgt, rngTgt.Offset(11)).Value = rngSrc.Value
            wksTgt.Range(rngTgt, rngTgt.Offset(11)).Offset(, 1).Value = rng.Value
            wksTgt.Range(rngTgt, rngTgt.Offset(11)).Offset(, 2).Value = wksSrc.Range(rngSrc.Offset(2), rngSrc.Offset(2).End(xlDown)).Value
            wksTgt.Range(rngTgt, rngTgt.Offset(11)).Offset(, 3).Value = wksSrc.Range(rng.Offset(1), rng.Offset(1).End(xlDown)).Value
            Set rngTgt = rngTgt.End(xlDown).Offset(1)
        Next
        Set rngSrc = rngSrc.End(xlDown).End(xlDown).End(xlDown)
    Loop Until (rngSrc.Row = wksSrc.Rows.Count) _
                Or (Len(rngSrc.Offset(1, 1).Value) = 0)
    Application.ScreenUpdating = True
End Sub

Open in new window

I've also attached the updated workbook with the new code and worksheet.

This does not clear the target worksheet, so you would need to retain that part of your code when you integrate this code into your project, or just clear manually.
Example.xlsm
0
 

Author Closing Comment

by:LDiers
ID: 40267026
Great solution, much more simple! Thank you so much
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
This article describes a serious pitfall that can happen when deleting shapes using VBA.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…

864 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