Search results

  1. E

    copy first cell that doesn't have a zero in it

    This is what I have tried and it didn't work Dim LastMeter As Integer For LastMeter = Sheets("summary").Range("AB1008").End("E1008").Columns To 1 Step -1 If Cells(LastMeter, 1) <> 0 Then GoTo foundit End If Next LastMeter foundit: AD1008.Value = LastMeter
  2. E

    copy first cell that doesn't have a zero in it

    Dim LastMeter As Integer For LastMeter = Sheets("summary").Range("AB1008").End("E1008").Row To 1 Step -1 If Cells(LastMeter, 1) <> 0 Then GoTo foundit End If Next LastMeter foundit: Cells(LastMeter, 1).Copy Cells(LastMeter, 2) this is what I have I figure i need to change Row to something...
  3. E

    copy first cell that doesn't have a zero in it

    what if the numbers are in row instead of col and what is the last line of code doing? Thanks
  4. E

    copy first cell that doesn't have a zero in it

    I have 24 fields that auto populate based on time I would like to return the value of the last hour meter. so I need a code that looks at the cells and returns the last value that is not zero. exampe 24 36 20 10 0 0 0 I would like the cell to copy the 10 value I know I can do this if about...
  5. E

    ontime function

    OK I have put DIM NowTime as String at the top of the workbook code and added NowTime = Time() (won't this only happen once do I need to call this funtion over and over again and added Select Case NowTime Case "10:15:00", "10:36:00", "10:45:00", "11:00:00" Call Macro11 Case etc...
  6. E

    ontime function

    So this would go in the workbook part of the code? what about the macro part of the code would I need all the ONTIME functions in there?
  7. E

    import excel different file everyday

    This is a 7 day everyday it takes snapshots every 15 mins and logs them in a sheet then at the end of the day it takes all 24 sheets (1 for each hour) and builds a summary I would like this to be imported in to access every day just after 2 am. I think it might be easier if I tell excel to save...
  8. E

    ontime function

    Ok you lost me. can you explain what each line of the code does so I can understand what is happening here. Thanks
  9. E

    ontime function

    OK think I have too much code since it seems to be running about 8 times instead of the once. This is a sample of what I have in the thisworkbook code Application.OnTime TimeValue("03:00:00"), "Macro03" Application.OnTime TimeValue("03:03:00"), "Macro04count" Application.OnTime...
  10. E

    import excel different file everyday

    OK I have a Excel file that is created every day and is saved at 2am with "file name + date" example "myfile (90809).xls" this will change everyday but at 2:05am I want this data to be imported into access. I have thought about importing all the data wiping the sheet and starting with the same...
  11. E

    List Box Sub Form

    I had a Space in the subform name so that is working now. But what if i want to make sure that a record has been started before they go into the subform. Were would I put the MSGBOX vb code to get this check for me.recordnumber is not null when they selected a subform field.
  12. E

    Where Clause Trouble

    Well you did help after all, I did try and change it but it will not allow me to. Sorry but at first your reply didn't help. I figured it out on my own within my code. I don't think anyone reading the first two posts, if they did a search for this would have helped them at all either(or maybe...
  13. E

    List Box Sub Form

    Ok I have a list box in the main Form and when I double click on the information in that list box I want that information to be copied to the Subform. I have tried something like this Forms!MainForm!ComplaintAboutsubform.Form!ComplaintAboutNum = Me.List52.Column(0) but this isn't right...
  14. E

    Where Clause Trouble

    Right it will be either their home property or all I use the PropertyWhereGlobal here 'construct a where clause as required for the list box 'if the Manufactur box is blank then all games will show up on the list If Mfg = "0" Then Mfg = "*" If Denom <> "" Then where = "DenomFix LIKE '"...
  15. E

    Where Clause Trouble

    Yes I got that now I ended up looking up the where clause on google and reading the background on how this works and noticed I was missing the "AND" Private Sub ApplyPropertyWhere() If PropertyGlobal = "BT" Then PropertyWhereGlobal = "BTID > 0 AND " If PropertyGlobal = "DV" Then...
  16. E

    Where Clause Trouble

    Yes I got help with some of this code awhile ago and some of it is mine. but I have never made where clause using the greater then symbol that is all I need help with how to make a clause with the Greater then symbol. Can someone please help
  17. E

    Where Clause Trouble

    OK I have code to make a where clause this is working fine. Now I have to add another piece of code to filter it even more, this is where I am having trouble Code that works fine 'construct a where clause as required for the list box 'if the Manufactur box is blank then all games will show...
  18. E

    Combine Multiple properties lists

    This worked thanks. I just made a macro to run the appends at startup to this will happen in the background. again thanks
  19. E

    Query input question

    Can someone clue me in on this? I have a query that links a bunch of tables how can I get a form to show all these fields and input new data. In the past I could always look at data but never add. Is there anyway to do this. I have added the database just in case in need to see what I was...
  20. E

    Combine Multiple properties lists

    OK, not sure how to search for this so I am just going to ask. I have two properties that send me excel sheets with the name of the employee, employee number, department, and title. What I would like to do is make this into one list. So just one table that would list these fields and maybe...
Back
Top Bottom