Spread sheet problem

SOURCE: Macro

Hi alwinkumar

You can set a default value in most form items under the properties of that item. Look for "value". You can also do this in code, by setting up a sub routine to set/reset the values on your form. Then just run the sub routine before you open or enter the form.

Private Sub resetForm()

'formname.itemname = value
UserForm1.Label1 = "Hello World"

End Sub

For the second one you have a couple of options, you can find the bottom on the data and store the row index in a variable, use a loop to find the next empty cell in a row, and store the value or you can use the current region method to select all the cells with data continously touching the selected range. Example below

numberOfRows = Sheet1.Range("A1").CurrentRegion.Rows.Count

SOURCE: EXCEL

When you say prepare . .
What data is going in - and what needs to come out ?

At the moment - it looks like you just need standard coloumn control...
From the standard input columns do you need to break the data down into specifics (Ie time frames etc...which will incorporate cumulatives..)
I would personally suggest using MS Access - you will have greater control and GUI to minimize accidental deletion etc..

SOURCE: Creating vacation accrual spreadsheet

Here is one way to do it:
1. In column A enter the name
2. In column B enter their start date in the format day-month-2008 (31-12-2008 for Dec. 31, 2008); if a day is less than 10, put zero in front (03, 04, etc.)
3. In column C put 31-12-2008 (December 31, 2008, the last day of the year)
4. In column D, put C1-B1 and format as a number with 2 places after the period (10.25 for example) if you want to track partial days, other format for no zeroes after the period (13)
5. In column E, put this formula:
(D2/30)*1.25 (assuming this is line 2)
You can then copy these lines as many times as you need to, total them, etc.

ali_zulfikar

• 156 Answers
• Posted on Mar 21, 2009

SOURCE: Change of colummn

Macro1
Sub Dist1()
'
' Dist1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub

Macro2
Sub Dist2()
'
' Dist2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

if have any probs pl contact me

Zulfikar Ali
[email protected]
09899780221