• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 82
  • Last Modified:

I need to read from sheet1 and produce sheet2 as attached

I need to read from sheet1 and produce sheet2 as attached.
This is the same as ticket ID: 28570578 but with modification on sheet1

I need to read from the sheet1 and produce sheet2
Asked by: dallagmm
Solved by: Haris Djulic

Please note that the sheet1 could have more than one well
Mohammed Dallag
Mohammed Dallag
2 Solutions

pls try

Sub Macro()
IdxRow = 2
For Each c In ActiveSheet.Range(Range("B2"), Cells(3, Cells.Columns.Count).End(xlToLeft))
    c.Copy Destination:=Sheets("Sheet2").Range("C" & IdxRow)
    Cells(c.Row, "A").Copy Destination:=Sheets("Sheet2").Range("A" & IdxRow)
    Cells(1, c.Column).Copy Destination:=Sheets("Sheet2").Range("B" & IdxRow)
    IdxRow = IdxRow + 1
End Sub

Open in new window

Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Please find attached. Please see the formulas used in Sheet2.
Martin LissOlder than dirtCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

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.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now