|
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, |
my incomplete macro to fill in 8000 rows - pls help
You macro doesn't seem consistant. In on place you are transposing 30 cells
and another place you are transposing 39 cells. I may be better if you explain how your data is placed inthe worksheet. Any spaces between rows and columns. It is hard to see how your data is repeating from the macro. There may be better ways of solving the problem then the code you tried to write. "dribler" wrote: 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, |
my incomplete macro to fill in 8000 rows - pls help
right..sorry, i recorded again and here it goes below for the unfinished macro ----------------- Sub FILLIN() ' ' FILLIN Macro ' Keyboard Shortcut: Ctrl+Shift+W ' 'for ROW 1 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 2 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L325:AX325").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 3 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L326:AX326").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 4 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L327:AX327").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub ----------- i need to continue the transpose via macro in a *sequence* until such time that J324="END" I think i am stuck with this *so-on and so-forth* command line in vb.. thanks for trying again. regards, driller "Joel" wrote: You macro doesn't seem consistant. In on place you are transposing 30 cells and another place you are transposing 39 cells. I may be better if you explain how your data is placed inthe worksheet. Any spaces between rows and columns. It is hard to see how your data is repeating from the macro. There may be better ways of solving the problem then the code you tried to write. "dribler" wrote: 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, |
my incomplete macro to fill in 8000 rows - pls help
Your macro seem to be copying the same data over and over again instead of
moving down the worksheet 1) You code keeps on copying J324 to C88 Range("J324").Select Selection.Copy Range("C88").Select 2) The range E225:E263 is copyied down the worksheet to columns L - AX. Shouldn't E225:E263 be moving down the worksheet? It look like you are copying 39 cells. The next 39 cells does it start at E264 or is there some rows that need to be skipped? Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select "dribler" wrote: right..sorry, i recorded again and here it goes below for the unfinished macro ----------------- Sub FILLIN() ' ' FILLIN Macro ' Keyboard Shortcut: Ctrl+Shift+W ' 'for ROW 1 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 2 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L325:AX325").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 3 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L326:AX326").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 4 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L327:AX327").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub ----------- i need to continue the transpose via macro in a *sequence* until such time that J324="END" I think i am stuck with this *so-on and so-forth* command line in vb.. thanks for trying again. regards, driller "Joel" wrote: You macro doesn't seem consistant. In on place you are transposing 30 cells and another place you are transposing 39 cells. I may be better if you explain how your data is placed inthe worksheet. Any spaces between rows and columns. It is hard to see how your data is repeating from the macro. There may be better ways of solving the problem then the code you tried to write. "dribler" wrote: 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, |
my incomplete macro to fill in 8000 rows - pls help
thanks for your effort. Due to urgency, yesterday, I restarted another q.
thread "a few adjustment for a do-loop escape". If possible, please analyze/repair/correct the short macro i had over there with the same *target* per this thread. "Joel" wrote: Your macro seem to be copying the same data over and over again instead of moving down the worksheet 1) You code keeps on copying J324 to C88 Range("J324").Select Selection.Copy Range("C88").Select 2) The range E225:E263 is copyied down the worksheet to columns L - AX. Shouldn't E225:E263 be moving down the worksheet? It look like you are copying 39 cells. The next 39 cells does it start at E264 or is there some rows that need to be skipped? Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select "dribler" wrote: right..sorry, i recorded again and here it goes below for the unfinished macro ----------------- Sub FILLIN() ' ' FILLIN Macro ' Keyboard Shortcut: Ctrl+Shift+W ' 'for ROW 1 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 2 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L325:AX325").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 3 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L326:AX326").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 4 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L327:AX327").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub ----------- i need to continue the transpose via macro in a *sequence* until such time that J324="END" I think i am stuck with this *so-on and so-forth* command line in vb.. thanks for trying again. regards, driller "Joel" wrote: You macro doesn't seem consistant. In on place you are transposing 30 cells and another place you are transposing 39 cells. I may be better if you explain how your data is placed inthe worksheet. Any spaces between rows and columns. It is hard to see how your data is repeating from the macro. There may be better ways of solving the problem then the code you tried to write. "dribler" wrote: 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, |
my incomplete macro to fill in 8000 rows - pls help
I could not find yur new posting. will help if I understand the problem.
"dribler" wrote: thanks for your effort. Due to urgency, yesterday, I restarted another q. thread "a few adjustment for a do-loop escape". If possible, please analyze/repair/correct the short macro i had over there with the same *target* per this thread. "Joel" wrote: Your macro seem to be copying the same data over and over again instead of moving down the worksheet 1) You code keeps on copying J324 to C88 Range("J324").Select Selection.Copy Range("C88").Select 2) The range E225:E263 is copyied down the worksheet to columns L - AX. Shouldn't E225:E263 be moving down the worksheet? It look like you are copying 39 cells. The next 39 cells does it start at E264 or is there some rows that need to be skipped? Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select "dribler" wrote: right..sorry, i recorded again and here it goes below for the unfinished macro ----------------- Sub FILLIN() ' ' FILLIN Macro ' Keyboard Shortcut: Ctrl+Shift+W ' 'for ROW 1 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L324:AX324").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 2 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L325:AX325").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 3 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L326:AX326").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 'for ROW 4 Range("J324").Select Selection.Copy Range("C88").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E225:E263").Select Selection.Copy Range("L327:AX327").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End Sub ----------- i need to continue the transpose via macro in a *sequence* until such time that J324="END" I think i am stuck with this *so-on and so-forth* command line in vb.. thanks for trying again. regards, driller "Joel" wrote: You macro doesn't seem consistant. In on place you are transposing 30 cells and another place you are transposing 39 cells. I may be better if you explain how your data is placed inthe worksheet. Any spaces between rows and columns. It is hard to see how your data is repeating from the macro. There may be better ways of solving the problem then the code you tried to write. "dribler" wrote: 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, |
| All times are GMT +1. The time now is 07:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com