Copy Data from Row and Paste Values Transposed

[santanukd]

Hi Team,

I wanted to copy "Source" worksheet cells with formula (only non blank with formula) and paste in a separate "Target" worksheet transposed (only value).
Once the value is pasted next cells in the column D of Target worksheet should increment as New Cycle 1, New Cycle 2 ... and corresponding values in Column C should increment with Month 1, 2, 3 etc. Moth increment should happen using the increment given in cell G4.

I have tried my hand. When the cycle in Source ws Cell E4 is 10 it works but when it is less than 10 it is copying blank cells as well.

Please advice code change.

 

[santanukd]

Kindly help on this

 

[Marc L]

Hi,​

​

no answer often means initial post is unclear !​

Maybe with an accurate explanation and an attachment with a before workbook and an after workbook for the expected result …​

​

 

[santanukd]

okay here is the the simplified ask .. I want to Copy data from few columns on a single row.

1. Data Should be copied only on row 7 starting E7 till number of columns given in E4.

 

[santanukd]

I could find the solution as below

>>> use code - tags <<< as written in

Posting a sample workbook

The Chandoo.org Forum now has the facilities to upload files directly into a post. Simply use either the Media icon in the Edit menu or the Upload a File Button next to the Save Changes button Alternatively In the Chandoo.org Blog or here in the Forums you can still upload files using a Free...

chandoo.org

Dim i As Integer
i = Sheets("Source").Range("E4")
ActiveCell.Resize(1, i).Copy