Need Major Help on the Macro
Hi
Try to see if this is what you need:
Sub Help()
TargetCol = "Q"
DestRow = 26
DestCol = "AZ"
For TargetRow = 26 To 1000
CopyCols = Cells(TargetRow, TargetCol).Value
Range("V" & TargetRow).Resize(1, CopyCols).Copy
Sheets("Sheet1").Cells(DestRow, DestCol).PasteSpecial
Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
DestRow = DestRow + CopyCols + 2
Next
Application.CutCopyMode = False
End Sub
Regards,
Per
On 24 Okt., 00:33, bioyyy wrote:
Hello:
I need your help desperately. Transpose the columns into rows with a
condition. For example,
* * * * * * * *Q * * * *R * * * * *S * * * * *T * * * * U * * * * *V * * * *
X * * * *Y * * * Z * * AA * *AB
Row 26 * *6 * * * * A1 * * * B1 * * * * C1 * * * D1 * * * * 1:1 * * * 1:2 * *
*12:2 *
Row 27 * *5 * * * *B2 * * * *C1 * * * * -- * * * * *-- * * * * --- * * * * *--
So, here are the steps what I would like to you help me,
(1) if row 26, col Q has 6, copy 6 columns from V to AB (ie. # column copy =
number enter in row 26 col Q.
(2) Tranpose and put in col AZ, row 26 (starting on row 26)
(3) Skip 2 rows,
(4) then repeat for row 27. So, if row 27, col Q has 5, copy 5 columns from
V to AA. Tranpose, skip 2 rows and repeat that up to row 1000.
Your help is greatly appreciated.
|