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 SkipVought 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: *

  • Users: apeoortje
  • Order by date
  1. apeoortje

    VBAProject Password required when closing Excel

    try this Sub fin() Do Until bob = "password" bob = InputBox("enter the password") Loop ActiveWorkbook.Save ActiveWorkbook.Close End Sub
  2. apeoortje

    Adding a button/toolbar to an Add-in

    It's available in the FAQs for this forum, http://www.tek-tips.com/faqs.cfm?fid=5255"
  3. apeoortje

    ActiveSheet.Next.Select in a loop - how to abort without error?

    What about? on error resume next
  4. apeoortje

    PowerPoint Macro needed

    just right click, and then goto custom animation, you should be able to do everything in there
  5. apeoortje

    outlook referencing recieved email

    I've managed to slove the problem, if anyone is interested it's Private Sub Application_NewMail() Dim objItem As Outlook.MailItem Set objItem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast() UserForm1.TextToSpeech1.Speak "You have recieved a new email message...
  6. apeoortje

    outlook referencing recieved email

    I've manger to get the to know which was the last email, but I stuck the reading the senders name this what I have so far: Private Sub Application_NewMail() Set myOlApp = CreateObject("Outlook.Application") Set myNamespace = myOlApp.GetNamespace("MAPI") Set myFolder =...
  7. apeoortje

    outlook referencing recieved email

    I'm trying the write a peiece of code that verbally noticifies the user of the sender of a incoming message but I'm stuck with not know the object name for a newly recieved email code I have so far is: Set myItem = Application.NewMail bob = myItem.SenderName UserForm1.TextToSpeech1.Speak "you...
  8. apeoortje

    Counting rows regardless of whether dat is present

    These may help Counts the values in the range E4:E23 =COUNT(E4:E23) Counts all non-blank cells in the range E4:E23 =COUNTA(E4:E23) Counts blank cells in the range E4:E23 =COUNTBLANK(E2:E23) Counts all values greater than 0 =COUNTIF(E4:E23;">0") Counts all values less than 0...
  9. apeoortje

    Limiting a SheetBeforeDoubleClick to cell range

    thank you very much, you a life saver
  10. apeoortje

    Limiting a SheetBeforeDoubleClick to cell range

    I'm using the following code to enter the time on a goup of cell, is there any way on limiting it'll only work in cells C4:D34? Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Selection.Value = Time End Sub
  11. apeoortje

    Outlook Incoming Log

    The moving files into a folder can be done using Tools/Rules Wizard
  12. apeoortje

    VBA to open group schedule in Outlook

    Personaly I've not done anything like this, but you may be able to find something on www.outlookcode.com
  13. apeoortje

    Random generator Excel spreadsheet

    what you could do it have an extra collum (in this case D) with the formulae in D1 put: =COUNTA(C2:C501) D2 put: =RAND() D3 put: =(D1-1)*D2+2 D4 put: =(D1-1)*D2+2 D5 put: =RAND() D6 put: =(D1-1)*D4+2 then take the get rid of the decimal points, and then cells D5 and D3 will give...
  14. apeoortje

    How do I reference to a userform in another workbook

    I trying to write a code that when you close close workbook1, if the userform in workbook2 is not active then activate it. My only problem is I don't know how to reference the userform in another workbook
  15. apeoortje

    change link on guest IP address

    Thanks, do you know if there is somewhere, where I can find out if it's possable?!?
  16. apeoortje

    change link on guest IP address

    I'm trying to write a script that depending on theier IP address the link will change to a different website. I only normaly wirte in VBA, so as you can guess the code below doesn't work!!! any ideas on what I'm doing wrong?!? <HTML> <HEAD> <TITLE></TITLE> <SCRIPT LANGUAGE="JavaScript">...
  17. apeoortje

    Selecting a group of Cells in a unknown row (Excell 2k)

    Thank you VERY Much It's been driving me mad
  18. apeoortje

    Selecting a group of Cells in a unknown row (Excell 2k)

    I'm in the process of writting a macro to a number of cells into another workbook. the only problem I'm having that the Macro I'm writing needs to find the row it's self before it able of copy the Data. What I need to do is to copy Cells on the Active row from A to D collumn. but I stuck!! I...
  19. apeoortje

    Copying data to a new cell under a specific condition

    Try: Sub findit() Range("A2").Select start: If ActiveCell.Value = "FLAG" Then ActiveCell.EntireRow.Select Selection.Copy Workbooks.Open Filename:="filename.xls" Sheets("Sheet1").Select Rows("1:1").Select Selection.Paste Else If ActiveCell.Value = "" Then GoTo ende Else...
  20. apeoortje

    TTS in excel 2000 on OS: win2k pro

    I have written a Macro so when it runs it reads the daily totals of a report using Text to speech. I just the quick question is it posable to change the default male voice to a female one?!? ================================================ Application.ScreenUpdating = False Workbooks.Add...

Part and Inventory Search

Back
Top