Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Help pls.
I like to use excel03 to transpose the formulated column into a continuous series of adjacent rows. The formulated column of formulated data is at "e225:e263". The rows to fill in is at first row : L324:AX324 the next row : L325:AX325 and so on down to L8615:AX8615. the basic trick i am thinking here is that once the data was 1. select first row "$L324:$AX324", type {=transpose($e$225:$e$263)} <c+s+e and copy and paste the values there, then 2. go to cell $J$324 <a formulated cell then copy and paste the value to cell $C$88. Thru (2) the formulated data on column "$e$225:$e$263" shall update. 3. Then I have to repeat the process 1 & 2, wherein the next row below will be filled with transposed-copy-value data 4. the repeated transpose-copy-value must stop only when the value of $j$324 = "END". A macro was recorded below to fill in the first 2 rows only. --------------------- Sub FILLIN() ' Keyboard Shortcut: Ctrl+Shift+W Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L324:AX324").Select Application.CutCopyMode = False Selection.FormulaArray = "=TRANSPOSE(R[-99]C[-7]:R[-66]C[-7])" Range("L324").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L325:AX325").Select Application.CutCopyMode = False Selection.FormulaArray = "=TRANSPOSE(R[-100]C[-7]:R[-62]C[-7])" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J324").Select End Sub ---------------- I need to possibly fill in @ 8000 rows & avoid repetitive formulas. your encouraging help to complete the macro will suffice. best regards, |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
DGET only limited to 1000 Rows, but I need 8000 rows for DGET funt | Excel Worksheet Functions | |||
macro to fill in rows with blanks | Excel Discussion (Misc queries) | |||
Macro Formula for counting rows and doing a fill in afterwards | Excel Worksheet Functions | |||
8000 formual issue | Excel Discussion (Misc queries) | |||
Macro to limit fill-down rows | Excel Programming |