Posts by stevehorton09

  • slow..... slow....... worksheet

    Hi all,


    I have a timesheet that i have constructed that has vlookups, two pieces of vb coding and validation lists. It seems though to take forever when i try to insert a new column or try to copy cells. the sheet is 1.5 mb.


    Is there an easy way to speed the sheet up and also downsize the size of the sheet.


    The other copy which is more or less the same is 225kb!!

  • Date query

    Hi Derk,


    I think it may have been the attachment itself, try this one. What should happen is, as you enter the task todays date is populated as is cells F to I.


    But when you go to a new day it does not populate all the cells.


    Try the sheet, when you enter a task the date will be populated (todays date (3rd)) but the rest of the row will not populate. The only way to make this formulate is by copying the formula down each time the date changes which is time consuming!!!


    to understand this further enter the task and drag the formulas down. then change your system clock to say tomorrow and enter the next task. (this will be helpful to your understanding)


    thanks


    steve

  • Date query

    cool, im having one issue though with the date v.b. it is taking all the other formula out eachtime the date changes!!


    how can i stop this, so it only changes the date and not the other formula,


    example would be :- its the 6th April and i enter all my tasks. now its the 7th April and i do the same but as i select the task only the new date is entered and the rest of the fields are empty!


    cheers, think this is a quick one


    please see the attachment for further help.

  • Date query

    not sure why it was missing! but i treid again and it work, school boy error by me!!


    can i bother you again? if not please ignore......


    I want the sheet to be able to add up each day and if it is more than 7 hours then it will show overtime in say j5 and j6(sheet has been updated now).


    Im expecting it would be best to use the overtime columns by having the dates populated one after the other(j5=1st June,j6=2nd June), then in the next overtime column the amount of time(in hh:mm), if any next to that date. is this possible??

  • Date query

    Hi everyone,


    Im trying to do a timesheet for a uni project but i am having great difficulty with one thing!


    The current coding means that when something is selected in A1, D1 shows todays date (2nd June) which is what i want.


    The problem is that the next day(3rd) when i then say select something in A2, D2 shows the 3rd but changes d1 to the 3rd June aswell!!


    Can anyone help, im desperate to get this right!!!


    Thanks steve

  • Timesheet- splitting up day by percentage/fraction

    Hi again,


    I have enclosed a timesheet which i want to break down the days activities by a percentage, so if my sheet says an activity took an hour then the day column would tell you percentage of a seven hour day.


    Also i want the date column date to change each day. Currently it works for one day but then the next day it changes all the above cells to the current date.


    I have attached the file


    Cheers


    Steve

  • List using the validation tool

    Hi All,


    I have a list that has been created by using the validation tool (Data>Validation)


    Is it possible that when someone wants to choose something from the list they could say type the first few words and it would automatically show.


    I.e you type "holi" or atleast part of the word and the cell shows the whole word.


    Thanks steve

  • help on start / stop problem

    Yjoshi and Roy thankyou,


    both are an amazing help.


    Yjoshi would it be possible to then feed this info into a timesheet of sorts.


    so each day you would start and stop events at the end of the day the info would go into a timesheet, i can send a copy of the timesheet im thinking of?


    what do you think? im doing this to show activity based costing and the relationship with each person. so im now thinking during the day a user can click on each activity and then click a button at the end of the day that creates from a generic timesheet a daily timesheet/summary. maybe i should go on yahoo messenger?

  • help on start / stop problem

    Ok I have work on the code, so one button starts one stops.


    My code needs to be able to start more than one task (i.e walking and talking) but when one stops or both do, the stop time will align back its start time.


    I.e if you started walking at 1:00 and then started talking at 1:02, there would be two start times recorded (a1 and a2). if you then stopped walking at 1:03 and stopped talking at 1:04, the program would assign the correct stop time to the correct start time


    Please ignore the old code.


    Any help let me know


    Private Sub CommandButton1_Click()
    Dim Rng As Range
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
    Rng(1, 1).Value = Date
    Rng(1, 2).Value = Time
    Rng(1, 3).Value = ComboBox1.Value


    End Sub


    Private Sub CommandButton2_Click()
    Dim Rng As Range
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(1, 1)
    Rng(1, 4).Value = Date
    Rng(1, 5).Value = Time
    End Sub

  • help on start / stop problem

    Hi all,


    i have currently a userform which when a user click the start button time the time and date appears a1/b1 respectively.in c1 an activity appears.


    When the user then clicks stop the end time date appears in d1/e1.


    My question is, is it possible to press start and select an activity and then start another activity but the program still remembers when you press stop for a certain activity it remembers which start time to put the stop time to.


    current is this


  • VB stopwatch with form

    hi,


    this works great but when i first load up the sheet, when you push the button it is loading stop time first. then it works after the first time, can you set this so it resets itself to start each time it starts and stops?


    the code is as follows


    If CommandButton1.Caption = "Start" Then
    CommandButton1.Caption = "Stop"
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
    Rng(1, 1).Value = Date
    Rng(1, 2).Value = Time
    Rng(1, 3).Value = ComboBox1
    Else
    CommandButton1.Caption = "Start"
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
    Rng(0, 4).Value = Date
    Rng(0, 5).Value = Time

  • VB stopwatch with form

    thats correct d,e, shou;ld have this.


    I have inserted your code but it still always says the msgbox


    Private Sub CommandButton1_Click()


    Dim Rng As Range
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
    Rng(1, 1).Value = Date
    Rng(1, 2).Value = Time
    Rng(1, 3).Value = ComboBox1.Value


    End Sub


    Private Sub CommandButton2_Click()
    With Cells(65536, 4).End(xlUp).Offset(2, 1)
    If IsEmpty(.Offset(0, -1)) Then
    MsgBox "You forgot to push the Start Button first"
    Else
    .Value = Date
    .Offset(0, 1).Value = Time
    End If
    End With
    End Sub

  • VB stopwatch with form

    i have tried this but it keeps returning the msgbox whatever, im not great on the indexing number, the code is below


    thanks


    steve


    Private Sub ComboBox1_Change()
    ComboBox1.AddItem "Setting up a new Bank"
    ComboBox1.AddItem "New Account"
    ComboBox1.AddItem "Change Account"
    ComboBox1.AddItem "Close "
    'do not hard code
    End Sub


    Private Sub CommandButton1_Click()


    Dim Rng As Range
    Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
    Rng(1, 1).Value = Date
    Rng(1, 2).Value = Time
    Rng(1, 3).Value = ComboBox1.Value


    End Sub


    Private Sub CommandButton2_Click()

    With Cells(65536, 2).End(xlUp).Offset(1, 0)
    If IsEmpty(.Offset(2, -1)) Then
    MsgBox "You forgot to push the Start Button first"
    Else
    .Value = Date
    .Offset(1, 0).Value = Time
    End If
    End With
    End Sub



    Private Sub UserForm_Click()


    End Sub

  • List

    hi,


    what is the code so that my combo box lists data that is not hard coded but taken from a range in the sheet?


    currently i have this


    Private Sub ComboBox1_Change()
    ComboBox1.AddItem "england"


    but want it to select it from a range i.e a1 to b2