Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. HorseGoose

    Copy range managing external links

    How to re-link formulas from workbooks which have been renamed and contain broken links to the current or a new workbook, assuming it is just the link which is broken but the reference sheets still exist in the workbook. Clearly this can be done using the menus but if you dont want to user to...
  2. HorseGoose

    Error Excel 2007 cannot access file "~ar28CE.xar"

    Thanks Strongm. OS is XP Pro. 2002 SP3 Path is the documents and settings for that user files then excel. Thats a great help though, I have disabled the autorecover function as it is not needed for this application. Thanks. HG
  3. HorseGoose

    Error Excel 2007 cannot access file "~ar28CE.xar"

    Hello I have a program which has been running on excel 2003 and has been migrated to 2007. Most things are working fine except. When the program is left open for a while it returns the following error. Microsoft excel canot find the following file "path\~ar28CE.xar" When the user clicks OK a...
  4. HorseGoose

    How can I make this code faster?

    Thanks for all the comments, indeed events, screenupdating etc are toggled but that is done in the calling routine. I tried do loop and for next and there is not that much difference at least its not noticable. Maybe it needs to be a long loop before you notice the difference. Cheers HG
  5. HorseGoose

    How can I make this code faster?

    Hello, This is the new code, it work like a rocket. Thanks for all your hellp, simplicity is indeed the best answer. Sub bev_cogs_format() ' Formats the beverage COGS sheet for printing ' if the line has nothing in it in terms of weight then it is hidden...
  6. HorseGoose

    How can I make this code faster?

    The output is to be printed and is automated within the application. It prints batch sheets for our factories to use. So the rows have to be hidden in order to get a good looking format. there is data underneath these rows which always needs to be present. In addition the sheet can have many...
  7. HorseGoose

    How can I make this code faster?

    Thanks for your inputs. Makin the changes suggested it was the same speed. The issue seems to be the processing of the line of code which hides the row. Anyway, I speeded up by hiding everything then unhiding the rows with data, as there are less of them. I tried for next, do while I also...
  8. HorseGoose

    How can I make this code faster?

    The worksheet has a grid containing raw materials, in order to format the worksheet correctly the first cell = "." if there is data in the row otherwise it is blank. The following code then goes through each row, if the row is blank it is hidden. Other information, it is called from the...
  9. HorseGoose

    Too cell formats error

    This is helpful, thanks. I guess the only way to make this work is after every 5 changes of colours make the applicatin save automatically, that then resets the formats in the mind of Excel, if I udnerstand you well. I imagine nobody has found a VBA way to set the formats back to 0 in the mind...
  10. HorseGoose

    Password Protection solution

    ...For loops = 1 To var_len Select Case Right(Left(var_pw, loops), 1) Case Is = "A", "a" var_num = var_num * 0.005489 Case Is = "B", "b" var_num = var_num * 2789 Case Is = "C", "c" var_num = var_num * 312...
  11. HorseGoose

    Too cell formats error

    I have an application to which I have added an option so the user can change the colours of the environment. There is a pallet down the side of the screen which is clickable and runs a proc. for changing the colours in the unlocked user entry cells of the application. I understand the maximum...
  12. HorseGoose

    Same calculation gives different answers....

    bugger! Thanks for setting me straight. HG
  13. HorseGoose

    Same calculation gives different answers....

    thanks steve, in fact they make sense to a chemist so thats OK. I wasn't sure if you dimmed many variables on the same line and then gave a variable class at the end i thought all the variables in that line then took that class e.g. dim a,b,c as string ' all dimmed as strings dim a,b as...
  14. HorseGoose

    Same calculation gives different answers....

    Thanks for taking the time anyway, I am pleased it is solved but a bit embarrassed that it was just typos. Cheers HG
  15. HorseGoose

    Same calculation gives different answers....

    I only have two eyes and as many brain cells, you are correct. Sorry to ask such a dumb question but the numbers were spinning around and around there for a minute. THANKS!!!! HG
  16. HorseGoose

    Inserting a variable into a formula

    ...you are trying to do. Sub dump() Dim varwks As String varwks = Sheets("sheet1").Name Range("$B$1").Formula = "=" & varwks & "!$A$1*$A$2" End Sub you can store the name of any sheet into a variable in so many ways that until i know your specific request it is difficult to...
  17. HorseGoose

    Impossible to open excel workbook

    If you send the file to me I can try and look at it for you, two minds may be better than one in this case.
  18. HorseGoose

    Same calculation gives different answers....

    ...= 10 ^ (varpH - varpka1) varr2d = 10 ^ (varpH - varpka2) varr3d = 10 ^ (varpH - varpka3) 'ERROR HAPPENS HERE..... varf1d = 1 / (1 + varr1d + varr1d * varr2d + varr1d * varr2d * varr3d) varf2d = varr1d * varf1d varr3d = varr1d * varr2d * varf1d varr4d = varr1d * varr2d * varr3d * varf1d...
  19. HorseGoose

    problem with custom right click menu

    I have a query in my worksheet. Normally when i right click on a worksheet I have code which allows me to customise the "cell" menu. This works fine everywhere. However, when i right click on the data which is the body of the query I cannot customise the "cell" menu anymore. I imagine it is...
  20. HorseGoose

    Security Algorithim

    ...Sub savesecurekey() Dim fs, f, ts, s, varpos As Integer Do filesavename = Application.GetSaveAsFilename(FileFilter:="SLDS User Key (*.SLD), *.SLD") If filesavename = 0 Then Exit Sub Set fs = CreateObject("Scripting.FileSystemObject") If...

Part and Inventory Search

Back
Top