LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 6
Default my incomplete macro to fill in 8000 rows - pls help

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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
DGET only limited to 1000 Rows, but I need 8000 rows for DGET funt Chiann Looker Excel Worksheet Functions 1 March 9th 10 02:36 AM
macro to fill in rows with blanks hnyb1 Excel Discussion (Misc queries) 5 September 9th 09 03:26 PM
Macro Formula for counting rows and doing a fill in afterwards Bud Excel Worksheet Functions 0 September 25th 08 08:10 PM
8000 formual issue Chris Excel Discussion (Misc queries) 1 September 5th 07 08:21 PM
Macro to limit fill-down rows Mike Fogleman Excel Programming 2 September 24th 03 03:05 AM


All times are GMT +1. The time now is 02:46 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"