• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Search results

  1. K

    Replace text between two text references within existing string

    sub splitNinsert dim theArray as variant dim newstring as string theArray = split(Range("A2").value,"&") newstring = thearray(0) & "&" & range("A1").value & "&" & theArray(2) range("A2").value = newstring
  2. K

    Help: Go to this page, based on this cells value

    cmdButton_click() dim aCellvalue as string acellvalue = sheetname.range("A1").value select case acellvalue case "JOB 1" : sheets("JOB 1").activate case "JOB 2" : sheets("JOB 2").acitvate case else : 'something else end select End Sub
  3. K

    Currency Converter Macro

    sorry, after reading more.... this is NOT what your looking for.
  4. K

    Currency Converter Macro

    I don't know if this is what you need, but I used this cool user defined function to spellnumber. Paste into your code. in the cell you want the number spelled out, make the formula '=spellnumber(cell)' cell, of course is your source number. '****************' Main Function...
  5. K

    Run time error in the shared workbook

    you must first 'unshare' the workbook. Application.DisplayAlerts = False ' get rid of sharing prompt If ActiveWorkbook.MultiUserEditing Then 'if shared then ActiveWorkbook.ExclusiveAccess 'don't share End If 'reshare when you save ActiveWorkbook.SaveAs FileName, , , , , , xlShared...
Back
Top