Posted to microsoft.public.excel.programming
|
|
Help Template & Database
Ron,
thank you kindly for the help.
Your site is quite helpful
Best Regards, Steven
"Ron de Bruin" wrote:
Hi Steve
There is a lot of info on that page
But here a small part
The template sheet in my example is named "Sheet1"
Change the cells in this line to yours
Range("a1:c10,e12:g17").Areas
The datbase sheet is named "Sheet2" in my example
Change that to your sheet name(2 time )
Copy the macro and function in a normal module (not a sheet module)
Sub copy_2_NextToEachOther()
Dim destrange As Range, smallrng As Range
Dim I As Integer, lr As Long
I = 1
lr = LastRow(Sheets("Sheet2")) + 1
For Each smallrng In Sheets("Sheet1"). _
Range("a1:c10,e12:g17").Areas
Set destrange = Sheets("Sheet2").Cells(lr, I)
smallrng.Copy destrange
I = I + smallrng.Columns.Count
Next smallrng
End Sub
Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function
--
Regards Ron De Bruin
http://www.rondebruin.nl
"SteveT" wrote in message ...
Ron, thanks for your reply
but
My Co has blocked any websight deemed "Freeware or Software Download"
Don't suppose you could post direct solution?
Brgds, Steven
"Ron de Bruin" wrote:
Hi Steve
Try this
http://www.rondebruin.nl/copy1.htm
Post back if you need more help
--
Regards Ron De Bruin
http://www.rondebruin.nl
"SteveT" wrote in message ...
I am very new with Macros but have grande expectations.
My workbook contains Template sheet that when key cells updated, summary
information auto populates lower section of Template.
I DESIRE & ENVISION
having a Macro button, within the template, that when pushed
1) prints template
2) Updates a Database 2nd wksheet within wkbook.
3) Auto saves information on the next blank available row
4) Deletes template data (returns template to blank condition)
I know this is multifaceted question but have faith possible.
Any assistance wud be most appreciated.
StevenT
There are apx 10 cells that I want a the database sheet within same w.b.
|