Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Page 3 of 3 FirstFirst 123
Results 21 to 30 of 30

Thread: NOW SOLVED : JWalk's toolbar calculator problem

  1. #21
    MrExcel MVP Joe Was's Avatar
    Join Date
    Feb 2002
    Location
    Central Florida, USA
    Posts
    7,539
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default

    This is not J-Walker's calculator, but it works. This code pulls the windows default calculator. The code is written to work with a hot-key or form button. It could be made to work as a tool-bar add-in. JSW

    Sub myCal()
    'Open the Windows Calculator.
    Dim RetVal
    RetVal = Shell("C:WINDOWSCALC.EXE", 1)
    End Sub



    [ This Message was edited by: Joe Was on 2002-04-30 08:16 ]

  2. #22
    MrExcel MVP Von Pookie's Avatar
    Join Date
    Feb 2002
    Location
    The act or process of locating.
    Posts
    13,686
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Kristy

  3. #23
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Chris

    Sorry my old mate., very behind.. the comments re button to click YUCK!\the reason i asked was it the key inut works i would say its faster and advanced mode does Hex dec and all you need and is free and in windows..

    the calculator add to system tray.. not in excel.. no point adding to excel

    I even have JAVA calculator that DHTML opening and sweet vcopy paste and all all key input.

    all account bar your self use this method.. so i trust you have reasons but advise this method.

    but again its what ever your happy with thats important...

    I do not like adding toobars thats all.. again my way.

    unless she yellow with pink hair!


    Free Excel based Web Toolbar available here.

    Jack in the UK
    J & R Excel Solutions
    "making Excel work for you"

  4. #24
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-28 14:10, brettvba wrote:
    I have found that code seems to change from version to version of excel i have xp and that code works fine , have you tried debuging the code to see where the error is?
    Gidday Brett,

    yeah... I got the same error position as Ian

  5. #25
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-30 04:22, Ian Mac wrote:
    Ok then,

    All,

    I tried this with XL97 and did indead get an error, it occurs at this point:

    Sub Butt*******()
    ' Event procedure for all button clicks
    ' Depending on the button, it calls other procedures
    Dim BtnIndex
    Dim Btn As Variant
    BtnIndex = Application.Caller(1)
    Btn = Application.CommandBars(APPNAME).Controls(BtnIndex).caption
    Select Case Btn
    Case 0 To 9: Call NumberClick(Btn)
    Case "+", "-", "X", "/", "=": Call OperatorClick(Btn)
    Case Application.International(xlDecimalSeparator): Call DecimalClick
    Case "C": Call ClearClick
    Case "CE": Call ClearEntryClick
    Case "Paste to cell": Call PasteToCellClick
    End Select
    End Sub

    any ideas anyone?
    thanks for this Ian... good to know I'm not totally bonkers !!!

  6. #26
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-30 07:21, JasonLee wrote:
    Change the code on the Butt******* sub to this and it works like a charm. It is a type mismatch error. I think the "." key is translated to a value of 3 and that Case statement grabs it but then it's like hey this is really Text and not a number. Anyway the code below works.

    Sub Butt*******()
    ' Event procedure for all button clicks
    ' Depending on the button, it calls other procedures
    Dim BtnIndex
    Dim Btn As Variant
    BtnIndex = Application.Caller(1)
    Btn = Application.CommandBars(APPNAME).Controls(BtnIndex).caption
    Select Case Btn
    Case Application.International(xlDecimalSeparator): Call DecimalClick
    Case "+", "-", "X", "/", "=": Call OperatorClick(Btn)
    Case "C": Call ClearClick
    Case "CE": Call ClearEntryClick
    Case "Paste to cell": Call PasteToCellClick
    Case 0 To 9: Call NumberClick(Btn)
    End Select
    End Sub
    Jason, thanks.... I shall paste this in tommorrow at work

    *fingers crossed*


  7. #27
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-30 08:38, Von Pookie wrote:
    Or, you could just put a button on the toolbar for the windows calculator an easier way...
    Joe / Kristy,

    thanks for the suggestions

    I had been using the windows calculator, but to get the numbers into Excel meant clicking on copy, then pasting in Excel

    JWalk's calculator does this with a single click which is why it appealed to me...

    (I'm an accountant so the difference between a single and a double mouse click maybe 10,000 times a day can add up to a nice time-saver !!!)

    cheers guys
    much appreciated


  8. #28
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-30 14:49, Jack in the UK wrote:
    Chris

    Sorry my old mate., very behind.. the comments re button to click YUCK!the reason i asked was it the key inut works i would say its faster and advanced mode does Hex dec and all you need and is free and in windows..

    the calculator add to system tray.. not in excel.. no point adding to excel

    I even have JAVA calculator that DHTML opening and sweet vcopy paste and all all key input.

    all account bar your self use this method.. so i trust you have reasons but advise this method.

    but again its what ever your happy with thats important...

    I do not like adding toobars thats all.. again my way.

    unless she yellow with pink hair!


    no worries Jack !! all help gratefully appreciated



  9. #29
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Good stuff Jason... it works perfectly now



    thanks to everyone else for your respective help too

  10. #30
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Chris

    A lot of effort was put in buy guys and yourself, i have spent all day at work as you finance and YES i totally agree, transfreing the data is a pain, this to works and so i pass on thanks top all the guys.



    Free Excel based Web Toolbar available here.

    Jack in the UK
    J & R Excel Solutions
    "making Excel work for you"

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •