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!

Register Log in
  • Congratulations Chriss Miller 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. smozgur

    Set e-mail category

    Hi, Goto VBA in OL (Alt+F11) and Insert->Module to add a new module then copy & paste the following code into this new module: '----Code Start---- Sub SetCategory() Dim olMail As MailItem If Application.ActiveExplorer.Selection.Count = 1 And _...
  2. smozgur

    P.S. Since I was working within a

    Replied in your other same question. Suat Oz www.TheOfficeExperts.com
  3. smozgur

    Format Date Problem

    Use this: Me.FYTrackNo = "CY" & Format(DateSerial(Me.FYYear.Value, 1, 1), "yy") & "-" & Format(iCount, "000") Or this: Me.FYTrackNo = "CY" & right(Me.FYYear.Value, 2) & "-" & Format(iCount, "000") instead yours. It fails...
  4. smozgur

    Inserting quote marks around existing cell values

    Nice to hear that. Oz www.TheOfficeExperts.com
  5. smozgur

    Inserting quote marks around existing cell values

    Hi, If you enter only one single quote before entering your real data then excel cell will see that you are entering a "text" by ignoring the real data type. So if you enter '1255 in a cell then excell will see that you are entering 1255 as string and remove ' from the beginning...
  6. smozgur

    Ouch, password encryted VBA

    Oz@TheWordExperts.com Oz www.TheOfficeExperts.com
  7. smozgur

    Ouch, password encryted VBA

    Try your chance. Oz www.TheOfficeExperts.com
  8. smozgur

    ListBox -- deselect ..the highlighted text ???

    You can set listindex property to -1 when listbox clicked. Private Sub List1_Click() List1.ListIndex = -1 End Sub I hope this helps. Regards Oz www.TheOfficeExperts.com
  9. smozgur

    "On error....go to" staement is not working in my macro

    .... Windows(file).Activate ActiveWorkbook.Close (False) err: RESUME NEXT Next i .... And also put On Error line before Loop Regards Oz www.TheOfficeExperts.com
  10. smozgur

    Excel Macros - need help

    Perfect! Oz www.TheOfficeExperts.com
  11. smozgur

    Method '~' of object '~' failed

    If you are using ADO then I suggest reading this article and re-installing MDAC. http://support.microsoft.com/default.aspx?scid=kb;EN-US;q255986 Actually when I got this error it was about a reserved word I used as field name in my sql connection string and fixed after changing it but I also...
  12. smozgur

    TabExcel: Is there "code" for setting a custom Tab order

    First, you can still protect your cells. Just select your changable cells (which macro modifies) and click Format Cells then click Protection tab and clear the Locked checkbox. Now Protect your worksheet. And for Tab order for this unprotected cells open the VBA and select the Sheet1 object in...
  13. smozgur

    Using DAO objects in Excel

    You're welcome! Oz www.TheOfficeExperts.com
  14. smozgur

    Excel - Disable Auto Hyperlinking?

    Wow, I was away for a while and everything solved :) Oz www.TheOfficeExperts.com
  15. smozgur

    Using DAO objects in Excel

    Click Tools_References (in VBE) Insert Microsoft DAO 3.X Object library. Now it will work. Regards Oz www.TheOfficeExperts.com
  16. smozgur

    Excel range names in lookup formulas

    This should work if B4 exactly has the range name as text even as a result of another function. =hlookup(10,INDIRECT(B4),100) Regards Oz
  17. smozgur

    Excel, Clear selected - a Cool Reset Button ???

    Hi, If you know the cells exactly then you can use Range object with an array like below (A1,A3,A5 and A9 are sample cells to clear): Range("A1,A3,A5,A9").ClearContents Or for a general way (you don't know exact cells or they are too much), 1- (They are too much) Select those...
  18. smozgur

    Excel - Disable Auto Hyperlinking?

    I don't know if there is a switch but this way worked to disable auto hyperlink. Actually just a cheat what deletes hyperlinks if entered value is an hyperlink. 'Code goes to SheetX object module in VBA. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Hyperlinks.Count > 0...
  19. smozgur

    Excel Macros - need help

    This may help. Runs for selection and increasing value variable is incVal. Sub IncreaseMacro() Dim myrng As Range Dim mycell Dim incVal As Double incVal = 0.1 Set myrng = Selection For Each mycell In myrng.Cells mycell.Value = IIf(mycell.Value * incVal < 10, mycell.Value +...

Part and Inventory Search

Back
Top