trying to create

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Trying to create a more functional worksheet that can do multiple tasks. The
problem is I need to create a sheet for several jobsites. Each jobsite will
have mostly the same basic information. However, sometimes there are other
variables. I need to have it so that I can show payments made for certain
tasks completed per sheet basically reconcillation per sheet. Then create
some sort of summary page that will show specific information pertaining to
each jobsite to include total payments made resulting in a final total billed
and paid summary. Help!
 
Maybe....

You could have a worksheet that looked pretty. Nice borders, nice layout. Then
fill in the cells you want to fill in.

When you're happy with it (and printed/saved/emailed???) the results, you could
click a button and have the important cells copied to another worksheet.

(Don't forget to save the workbook after you've appended more data to the
History sheet.)

If that sounds feasible, then maybe this saved post will help get you started:

This might get you started:

Option Explicit
Option Base 0
Sub testme01()

Dim historyWks As Worksheet
Dim curWks As Worksheet
Dim destRow As Long
Dim iCtr As Long

Dim myAddresses As Variant

myAddresses = Array("A1", "B1", "D1", "F1", "H1")

Set curWks = Worksheets("WorkhseetA")
Set historyWks = Worksheets("WorksheetB")

With historyWks
destRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
End With

With curWks
For iCtr = LBound(myAddresses) To UBound(myAddresses)
historyWks.Cells(destRow, 1 + iCtr).Value _
= .Range(myAddresses(iCtr)).Value
.Range(myAddresses(iCtr)).ClearContents
Next iCtr
End With

End Sub

If you don't want to clear the previous entry (if the entries are very similar,
it might be more useful to make that a manual effort), just comment/delete this
line:

.Range(myAddresses(iCtr)).ClearContents

(and change this line to reflect the cells you want copied--and keep them in
order. The first will go to column A, then column B, etc.)

myAddresses = Array("A1", "B1", "D1", "F1", "H1")

(no more than 256 cells--or you'll run out of columns!)


I'd plop a button from the Forms toolbar onto the worksheet (say A1 with the
window frozen to always show row 1. Then have the print range avoid row 1

or rightclick on that button
choose format control|Properties tab|and make sure "print object" is not
checked.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm



Change the worksheet names and fix the addresses on the Input sheet.
 
Thanks for the input. Still going to trials and tribulations trying to
figure out how to get it to work most effectivly. I do have a completed
workbook of this done. However its just not fuctional at all. Yes it looks
good and yes it gives all the information requested. Changing or adding to
it is not easy to say the least.

The summary page took many many hours to finally get completed.

Now i'm just on a mission to make it much more functional and easier to
manipulate.

Thank you again.
 
Back
Top