Assuming that users cannot disable the macros - how can I disable the shift print and print screen keys (whole time workbook is open)?

How can I disable the shift key during a macro ?- this inturrupts my macros. I already use error handler to block Esc, and other keys, but I cannot seem to block this one. Any help appreciated.

I am trying to gather about 200 printer's usage counts with Excel VBA code, I can get about 75 by just doing a simple query, but the rest all I get is the Web page headers.
I can see the counts by manually using URL view-source:http://printer host name and viewing the source code, but excel doesn't like it as a address. Any ideas on how to open web source code or any better way of accomplishing my task would be greatly appreciated.

I've tried your fnShellOperation function and I can get it to open an .xpt file within SAS Viewer. However, I've haven't been successful with sending keys (Control A) to the SAS Viewer window in order to paste the information back to Excel. I'm trying to automate opening of the .xpt file, coping all contents, and then pasting into Excel.

Any help would be greatly appreciated!

Getting Macro Short cut keys Addin

I can not thank you enough for the free addins you offer. It has saved me tons of time.

I need VBA code to take a list of names ("A1:A24")on sheet 1, and create a shape (rectangle, 1in. x .5in.) for each name, with the name in the shape. I need them to line up in rows on sheet6 in 6, 7 or 8 columns depending on the number of rectangles. They should snap to grid, and if one is placed over another, they should exchange positions... here's the problem.. I need them to be move-able with the mouse, but NOT have sizing handles... I've heard this can be done, but how? (This is basically a seating chart).

Edited by author 09-23-2009 12:47 PM
I am trying to link 2 pages and have the link pick up on certain Data that needs to be counted from sheet 1 and put the sum into page 2

I need information on how to get my Excel form to update to a spreadsheet. I can only get one field from my form to update.
Thanks

How to download MySpace music? Have you ever thought about extract MP3 from FLV? That’s easy, Wondershare Streaming Audio Recorder is the best tool which has been proved by many users to download MySpace music and extract MP3 from FLV. Meanwhile, want to download Google Video? Streaming Video Recorder is your best choice. YouTube Downloader is a professional one to let you download YouTube videos freely. Believe it or not, these software will surprise you a lot.

With "setting","record" and "browse" just 3 steps, you will be free to download imeem musicand then save imeem songs. Don't be just waiting, try Audio Recorder now. Sure you will like the stuff to download imeem songs and save imeem songs, enjoy them freely.

Wondershare Streaming Video Recorder is the best streaming video recorder,it can download yahoo video,download metacafe video,download dailymotion video easy.

7IQNnv

A9JPfK

Very nice site!

Great site heaps of help thanks

Do you want to extract mp3 from YouTube videos, FLV video with high quality? Wondershare Streaming Audio Recorder will help you perfect. It is a treaming mp3 recorder to extract mp3 from YouTube, extract mp3 from flv with high quality.

Use Wondershare Streaming Video Recorder,you can download metacafe video,download google video,download dailymotion video easy,you also can convert the video to all popular formats you need.

qwPinv comment4 ,

PKyJqU comment2 ,

Aimersoft DVD Creator , Aimersoft Video to DVD Converter and Aimersoft DVD Copy are professional and powerful software to convert or copy your video to DVD (also can convert and burn iTunes videos/YouTube FLV movies/ AVI files/QuickTime movies/MKV Files etc. to DVD).
They are with high compatibility and great quality. With Aimersoft DVD backup software , you will never need to worry about backup your DVD.

ed hardy is one of the most popular brands. ed hardy clothes displays the brilliant work of Don ed hardy uk. He is a gifted painter, printmaker and tattoo artist. cheap ed hardy

Does anyone know what the file format is for an exported form FRX file? It is quite different to that exported by VB6.0.

This page alludes to some knowledge but doesn't give any details: http://www.xcelfiles.com/FRX.html

Can anyone help?

I have received your mail, which one I have to send?
vgk



--
Exclusive spy camera shots of the Tata Nano only on ZigWheels.com http://www.zigwheels.com/tata-nano/
< replied-to message removed by QT >

I'm not able to download your image to Excel converter. The download link goes to 'Downloadcounter' site and there is no further information on how to download.
Could you email me this application.
I would like to experiment on it

k_seshagiri@yahoo.com

I need to add a lot of images into an Excel workbook using the comments box. Is there anyway I can change the default size of the comments box at core level rather than entering each box and changing it there. I would prefer not to use a macro or write code.

Cheers
Stewart

Mmoinn.com is a professional trade platform, you can rest assured to buy cheap wow gold , we provide you with more cheap wow gold , there are players of the required wow power leveling .

I need a macro that will delete the header of an email. Eg below.
From: Jenny@gmail.com
Sent: Thursday, December 11, 2008 10:50 PM
To: amp@hotmail.com
Cc: Sarin@yahoo.co.in
Subject: Tables

I required only the contents of an email and not the header. Each cell contains a chain of emails.

My email id is ampleshisha@gmail.com

Edited by author 02-19-2009 04:58 PM
I need a macro that will check the first two alpha values in an cell (for example "CC" and move the the end of those values. Thxs

Mikeblaze@rogers.com

Edited by author 02-18-2009 02:47 PM
somehow the "format" function on my excel has become grey and no longer works, along with the right mouse button. every file i open is this way. i can't find anything i understand here to fix it. i have excel 2003.

thanks my email is bbinder2002@yahoo.com

A file with some code / macro asks if you want to 'Enable Macros / Disable Macros' every time you open it. Is there a way to stop this message from appearing forever without compromising Security?

How can we determine Number of Logical Pixels per Inch based on the system configuration using API and return the value to Cell A1 of Sheet1.

How can be tracked who was the last one who modified an excell file?

wholesale jewelry from china

I, too, have the question that was asked by Gary Smith on this board about three months ago, namely: "Where can I get the excel addin for Getting Macro Short cut keys? I have tried the download from the page I see the example on, but it takes me to a download page which has nothing selected, or to a page about selling XML software?"

Welcome come to Nike Store, we specialize in collecting Nike Shoes, Air Jordan shoes, Nike Air Force Ones, Nike Shox and Nike Air Max online since 2003, we get cheap Nike Dunk SB and new Adidas Shoes every month, our Adidas Sneakers are in highest quality, if you see our Air Jordan shoes you will definitely love those Air Jordans.

One such program Gary Winnick has helped to support by a grant from the Winnick Family Foundation is the Jewish Federation’s Holy Land Democracy Project. The goal of this educational initiative is to prepare Catholic teachers in the Los Angeles parochial high school system to teach a unit about modern Israel. The program is now in its fifth year, and by all standards, has been a phenomenal success for both communities. It has reached more than 7,000 Catholic students.

Hi, i would love to get the file for the awesome "Image to XL"
but the download link is dead, any idea how to get it?
commander8866@hotmail.com

Can anyone help me out.I need a code to save a file in VB6 using common dialoge control using comdlg32.dll.please provide me as soon as possible

how to save a file in VB6 using common dialoge control using comdlg32.dll?

Edited by author 10-18-2008 03:08 AM
i'm new to VBA and don't know how i can make a code that would permit me to view, edit and add more keywords, using a combo box. Please help. Please reply at veena_sarin@hotmail.com. Thankyou (in advance)

Here's a challenge. I have been looking all over the web for some kind of clue on how to do something that seems so simple that I assumed that it would be included in Excel and most especially in the 2007 version. I was disappointed.
Is there a way to force an automatic tab to the next cell after a specified # of digits has been reached? I want a cell to take 1 character and then move to the next cell automatically.
~Can it be done?
Thanks
Gina

Edited by author 09-22-2008 06:12 PM
Where can I get the excel addin for Getting Macro Short cut keys? I have tried the download from the page I see the example on, but it takes me to a download page which has nothing selected, or to a page about selling XML software?

Edited by author 09-16-2008 05:18 AM
How can i use texbox in a protected sheet. I have designed a worksheet to be a form. The page include protected cells and textbox. The sheet is operated in protected mode. My problem is in a protected mode, i can't enter more than one line in a textboxé Can't use the <return key> to change line. Using it cause the cursor to step out of the box and go to the next cell.
Any idea.

Excuse my english

M.Theriault.

mtheriault3000@yahoo.ca

Is there a way that a scanned document (image saved in pdf format)having contenets both text & numerics can be converted into excel. If yes what is the procedure to do the same. Please advise @
amit.agarwal@contractadvertising.com

Is there a way that a scanned document (image saved in pdf format)having contenets both text & numerics can be converted into excel. If yes what is the procedure to do the same. Please advise

Hi, I think you are a very helpful person.

My businnes is:

I need to use Oledrag from a listview to excel, but i need to do it in mode manual in order to move not only a date but a reference to link dates to others cells not only the selected.

I hope i've been clear enoufg

I've been working a lot in this but i can't figure this out

HI ALL
Please Email me DIRECT for any files you want.
Due to personal circumstances I have not been able to update my site.

http://www.xcelfiles.com/EmailImg.html
Cannot locate example workbook to download, seems to be a broken link. Can anyone help?

Edited by author 08-29-2008 05:43 PM
Once a Userform is running I need to be able to use excel and then go back to the form and keep using it, how do I do that? my e-mail is danielrc_050883@hotmail.com

can anyone plese tell me how to place "vertical freeze pane" at specified row. for example horizontal freeze pane line should apear at 6th row and vertical freezepane line should start at 6th row. on clicking horizontal scroll bar first five row should not be affected at all.

thanks in advance.

I'm trying to download the file that shows me how to keep a userform on top of all other windows and your site redirects me to another site for shopping instead. Can someone tell me how to view/get the file?

I need to use two indexes on the Y axis in order to measure two concentrations of data, one a set of spikes, the other the remaining data.

satdudez

hex.file

Hi, i'm creating a database with products and materials with their prices. To search easier I have an advanced filter macro that can copy some rows in another sheet which contains the criteria wanted. In my list, there are some hyperlinks that brings you to another worksheet in the same document. The problem is that when i filter my list, the hyperlinks won't show in the filtered rows. Is there a way to see the hyperlinks in the filtered rows?
My email is thalieloz@hotmail.com
thanks in advance!

I am creating a database that has a list of names and address. I need to get a code for a form that will sort out a date that I put into this form and put all those names onto another sheet. This way I can create a mail merge and have it generate letters. Is there also a code that will open word, insert the mail merge for me and then print them? Please email your answers to jwebber001@ec.rr.com

Edited by author 07-10-2008 03:07 AM
Hello,
I am almost done with creating a user form in VB GUI .
when I run the application: by default, in the title bar there is only one button "X" which is used to close that user form. but I want to place a minimize and restore buttons as well in that user form.is it possible?? if there is no way to put those buttons in the title bar, is there a way to make the user form to be minimized upon a click on the command button?
I found some code written by you in the excel challenges in this forum...but Don't know where to paste that code.
I was searching in this site through out the day, but failed to get required info. please help me.
thanks in advance !!!

The 'FTP in Excel' example is very useful. I couldnt figure out when to call the Sub ShowError. Basically I was to display the error message it an ftp process fails. Can you please advice?

"Changing the colour of the Tab" when runing this in macro i get thhis error " Compile error" "only comments may appear after End Sub, End Function, or end Property"
Thanks in advance
P

Edited by author 05-22-2008 05:53 PM
Ivan, when I try to download the menumaker_UF_API.zip, I am brought to a sponsor screen, but no download. How do I get this incredible code?

I used to be able to enter the date with just the month and day, the year would fill automatically (to current year) unless I typed in a different year to over-ride it. Now if I type "Jan 1" the program assumes that it is Jan 1, 2001. I've tried all the setting I can find - no luck. Help!

Edited by author 05-05-2008 12:16 PM
Can someone please tell me how to use the Disable Cut, Copy & paste macro for one column only? I need to use it for column A on my worksheet called "Pool Attainment Report 1."

Option Explicit


Sub DisableCopyCutAndPaste()
    EnableControl 21, False ' cut
    EnableControl 19, False ' copy
    EnableControl 22, False ' paste
    EnableControl 755, False ' pastespecial
    Application.OnKey "^c", "Dummy"
    Application.OnKey "^v", "Dummy"
    Application.OnKey "+{DEL}", "Dummy"
    Application.OnKey "+{INSERT}", "Dummy"
    Application.CellDragAndDrop = False
    Application.OnDoubleClick = "Dummy"
    CommandBars("ToolBar List").Enabled = False
End Sub

Sub EnableCopyCutAndPaste()
    EnableControl 21, True ' cut
    EnableControl 19, True ' copy
    EnableControl 22, True ' paste
    EnableControl 755, True ' pastespecial
    Application.OnKey "^c"
    Application.OnKey "^v"
    Application.OnKey "+{DEL}"
    Application.OnKey "+{INSERT}"
    Application.CellDragAndDrop = True
    Application.OnDoubleClick = ""
    CommandBars("ToolBar List").Enabled = True
End Sub

Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
  
On Error Resume Next
For Each CB In Application.CommandBars
    Set C = CB.FindControl(Id:=Id, recursive:=True)
    If Not C Is Nothing Then C.Enabled = Enabled
Next

End Sub

Sub Dummy()
    '// NoGo
    MsgBox "Sorry command not Available!"
End Sub

Edited by author 04-23-2008 09:00 PM
I am trying to use excel to track a list of tasks that require a certain amount of time to complete. I would like to total the h:mm:ss to days, h:mm. Can tht be done? If so how do I format the cells and configure the formula?
Please reply to: themanroom@vcn.com

Hi Ivan,

First of all, my congratulations on your impressive site ... and your in-depth knowledge ...
In your opinion, is there a way to hook the Excel spinbutton control (FM20.dll)... In order to visually help users, I wish I could end up with different colors for each arrowhead ...
Thanks in advance for your comments

Rose
If you are inserting the images as a link they will not show up.
How exactly are you inserting the images?

I am using Excel 2003. I have created a brochure with images I want to send to clients but the images disappear when they get it, how do I embed images or send it so they can see the pictures in this excel sheet??

Thank you. This is the first time I'm using WMI event notification from Excel.

urkec, the performance hit I speak of was if running "my" code from pure vba, i.e using Do Loop and DoEvents ..... YOUR code in a Clas module should work OK.

Recently I ran into your post named 'Monitor Directory' from 7th July 2006 on 'Daily Dose of Excel' that shows how to monitor a directory for file system changes. You use VBScript because there is 'a performance hit' when converting the code to VBA. I need this functionality, so I put together some code that uses Excel VBA rather than VBScript. I haven't noticed any performance degradation in comparison to VBSCript code, but am still reluctant to use this in a production environment. So, please explain in more datail what were the difficulties that you ran into when using WMI event notification in VBA. ( posted a question here, but received no comments yet:
http://groups.google.com/group/microsoft.p...ad/40ebcfecbffa9900# )

Thanks in advance.

I have a custom excel workbook with a macro that changes the background image of a specific sheet, I want to add a built-in theme selector which changes the background of a sheet by using images or objects stored witin the workbook itself. Is there a way to set a background image of a sheet from an existing object image embedded within the workbook or sheet itself?

Tom

Which page is that on. I am having problems with my Downloader + I have been away with personal problems to tend to so I have not paid much attention to my site.

Hello, I like to download your Animated gif using an OCX. But when I click on it it takes me to this site ??
 http://wwwz.websearch.verizon.net/search?q...&rn=e88YFYVgot60kxr

It does not let me download the oxc

Is there any other way to do this.

Regards, Tom

Hai..
I am working on Excel Macro..Down the line i av listed a example.
we have data in 4 column (Eg)
      Existing Proposal

Column A Column B Column X Column Z
1 100 1 100
60000000 64999999 0000120000 0000129999
these are the example of Number Range
Now what do i need is to compare between these four column weather these are getting overlaped.
Pls Reply to my Email- Partha2day@gmail.com
Regards
  Partha

Hi,

I've been using some of your code to determine certain things about a users pc such as RAM, model, manufacturer etc. However, there are a couple of details I need to find out that your code doesn't include.

Firstly, I need to retrieve the serial number of the user's machine, which I'm assuming is relatively easy, if the model and manufacturer can be retrieved.

Secondly, I need to find out whether a machine is a desktop or a laptop. I don't even know if this is possible via code but I reckon if it is, you're probably the best person to ask!

Many thanks

neiljimack@liberata.com

Hi, I'm wondering if is any way to make the windows to blink when an event occurs (for example in workshet_change), like messenger when a contact talks to you.

I have a web query, and i want that the excel windows start blinking when it ends the update.

Thank you, the site is very usefull. (Sorry about my english).

Hello my email is kalbe00@hotmail.com
please reply about my questions.

Kindly tell me one thing.

i have downloaded one work sheet but when i open i can only see limited cells i checked this sheet is not protected even there is no lock.

i can only see A to F column and 1 to 11 rows after 12 there is nothing and after F there is nothing when i click after the F my cursor doesn't go there doesn't select that.

Limited area is showing cell and everything but rest of the sheet is light grey and there is not cell nothing.


How can i do it if i want to do this in new sheet how ? kindly let me know.

Hi Ivan, i came across your site today and it is great! i was trying to download the excel addin which is titled "Getting Macro Short cut keys" and i was unable to download it. I was wondering (and i know this will sound cheeky) can you email it to me? I hoping to do a tech presentation tomorrow to my manager (yes on a Sunday) and it would be great to show this functionality
Thanks
My email addy is benjacko44@hotmail.com

I visit your site occasionally. I was wondering if there is a way to format a number using exponential notation, i.e. 5 to the sixth power, 4 to the fifth power etc. I don't want the scientific notation format using custom format in Excel, but the format where the power of the number is smaller and to the upper right of the base number. Any help would be greatly appreciated.

Hi Ivan,

I visited your website a couple of days back (I am a frequent visitor BTW) and downloaded an interesting piece of code. The code gets Images from the VBA FRX files. I went through the code and understood the logic you have used (cool) to show the pictures. However my question is somewhat in different lines.

I would like to know if there is a way that you can get the list of controls that exist in the .FRX forms to be used to create the actual .FRM form (the .FRM file only has the code and basic header and not the details of the controls unlike the VB .FRM file) I have searched the length and breadth of my knowledge and on the internet without any specific details on the VBA .FRX file structure. If you would be kind enough to let me know how to go about it that would be great. I do have the code to transform a VB form to VBA however I need to the reverse!!!

Any help / pointers and guidelines will be immensely helpful.

Thanking you in advance in anticipation.

Regards
Shuvro

Hi,

I'm pulling real-time data into an Excel spreadsheet. I think that this information is pulled in pulses, how can I set my excel spreadsheet to pull in data in realtime.

Many thanks

Edward

Hello,
I was just wondering if there is any way to change this code, which I found at Ozgrid.com(another excellent site by the way) to also tell you Who made the changes. I am on a network and every computer in my office has a name. We all work in the same excel files and change them constantly. I don't like the track changes function, it takes away alot of our ability to make changes needed in that workbook. Any help would be greatly appreciated. Thank you, Rhonda


Dim vOldVal 'Must be at top of module

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim bBold As Boolean

If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next

    With Application
         .ScreenUpdating = False
         .EnableEvents = False
    End With

    If IsEmpty(vOldVal) Then vOldVal = "Empty Cell"
    bBold = Target.HasFormula
        With Sheet1
            .Unprotect Password:="Secret"
                If .Range("A1") = vbNullString Then
                    .Range("A1:E1") = Array("CELL CHANGED", "OLD VALUE", _
                        "NEW VALUE", "TIME OF CHANGE", "DATE OF CHANGE")
                End If
                
          
            With .Cells(.Rows.Count, 1).End(xlUp)(2, 1)
                  .Value = Target.Address
                  .Offset(0, 1) = vOldVal
                      With .Offset(0, 2)
                        If bBold = True Then
                          .ClearComments
                          .AddComment.Text Text:= _
                               "OzGrid.com:" & Chr(10) & "" & Chr(10) & _
                                  "Bold values are the results of formulas"
                        End If
                          .Value = Target
                          .Font.Bold = bBold
                      End With
                   
                .Offset(0, 3) = Time
                .Offset(0, 4) = Date
            End With
            .Cells.Columns.AutoFit
            .Protect Password:="Secret"
        End With
    vOldVal = vbNullString

    With Application
         .ScreenUpdating = True
         .EnableEvents = True
    End With

On Error GoTo 0

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    vOldVal = Target
End Sub

May I connect 2 different excel files as a single file?

Hi Ivan,

Your Animate Var2 Excel file was really useful. Just have one clarification, in the Code you have mentioned Shapes("Picture " & x), which refer to the pictures inserted in to the sheet. If i put JPEG Pictures with name Excel 1, Excel 2.... and so on and then change the code to .Shapes("Excel " & x), it shows an error "object not found". Do i have to use some specific formats of Pictures for the animation.

Sir,
       i put copy, cut & paste code in excel than i delete it but i have problem is that some excel file after this action in problem

1. some time it disable copy cut paste some time not
2. year automatically change Or in copy pasate year change in other file.

plz help me about this

Hi friends, need help in excel vba programming. I am searching a word "bcc" using Find syntax in the excel file. Now after getting the BCC in the sheet i want to copy a value which in the next column of same row. Please advise the requisite code for the same.

 have a cell with an unknown number of words in it, all in lower case. I want to capitalize the first letter and leave all others as lower case using VBA. Is this possible?

Hi again,

There is a column limit in ListBox1.AddItem statement (up to 10 column). So, I'm trying to find another way for this situation. When I find that, I'll share in here.

More power to your elbow!

Hi,

I'm trying to get some datas from an Access (*.mdb) file. And I'm trying to show all datas in a ListBox. Every Column in ListBox connectting to Textboxes in UserForm. There are 27 Columns in ListBox and there are 27 TextBoxes in UserForm. In this level the codes are working properly. But when I look at the Listbox when program running, I can see only 10 Columns. (ListBox.ColumnCount=27)
I missed something but what?

The codes are:
Sub RefreshDB()
On Error Resume Next
  Set RS = CreateObject("ADODB.recordset")
  strSQL = "SELECT * FROM [datas] ORDER BY Column2"
  RS.Open strSQL, adoCN, 1, 3
  RS.MoveFirst
  ListBox1.Clear
  Do While Not RS.EOF
     ListBox1.AddItem
            ListBox1.Column(0, X) = RS("Column1")
            ListBox1.Column(1, X) = RS("Column2")
            ListBox1.Column(2, X) = RS("Column3")
            ListBox1.Column(3, X) = RS("Column4")
            ListBox1.Column(4, X) = RS("Column5")
            ListBox1.Column(5, X) = RS("Column6")
            ListBox1.Column(6, X) = RS("Column7")
            ListBox1.Column(7, X) = RS("Column8")
            ListBox1.Column(8, X) = RS("Column9")
            ListBox1.Column(9, X) = RS("Column10")
            ListBox1.Column(10, X) = RS("Column11")
            ListBox1.Column(11, X) = RS("Column12")
            ListBox1.Column(12, X) = RS("Column13")
            ListBox1.Column(13, X) = RS("Column14")
            ListBox1.Column(14, X) = RS("Column15")
            ListBox1.Column(15, X) = RS("Column16")
            ListBox1.Column(16, X) = RS("Column17")
            ListBox1.Column(17, X) = RS("Column18")
            ListBox1.Column(18, X) = RS("Column19")
            ListBox1.Column(19, X) = RS("Column20")
            ListBox1.Column(20, X) = RS("Column21")
            ListBox1.Column(21, X) = RS("Column22")
            ListBox1.Column(22, X) = RS("Column23")
            ListBox1.Column(23, X) = RS("Column24")
            ListBox1.Column(24, X) = RS("Column25")
            ListBox1.Column(25, X) = RS("Column26")
            ListBox1.Column(26, X) = RS("Column27")
                                    
     RS.MoveNext
    X = X + 1
  Loop
  
    Set RS = Nothing
  Set RS = Nothing
    
End Sub

'Every Column in ListBox connectting to Textboxes in UserForm:
Private Sub ListBox1_Click()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
  strSQL = "SELECT * FROM [Datas]Where Column1='" & ListBox1 & "'"
  RS.Open strSQL, adoCN, 1, 3
    TextBox1 = RS("Column1")
    TextBox2 = RS("Column2")
    TextBox3 = RS("Column3")
    TextBox4 = RS("Column4")
    TextBox5 = RS("Column5")
    TextBox6 = RS("Column6")
    TextBox25 = RS("Column7")
    TextBox7 = RS("Column8")
    TextBox8 = RS("Column9")
    TextBox9 = RS("Column10")
    TextBox10 = RS("Column11")
    TextBox26 = RS("Column12")
    TextBox27 = RS("Column13")
    TextBox28 = RS("Column14")
    TextBox29 = RS("Column15")
    TextBox15 = RS("Column16")
    TextBox16 = RS("Column17")
    TextBox17 = RS("Column18")
    TextBox18 = RS("Column19")
    TextBox19 = RS("Column20")
    TextBox20 = RS("Column21")
    TextBox22 = RS("Column22")
    TextBox21 = RS("Column23")
    TextBox23 = RS("Column24")
    TextBox24 = RS("Column25")
    TextBox11 = RS("Column26")
    TextBox12 = RS("Column27")

  Set RS = Nothing
End Sub

We have a recently rebuilt pc that now allows any user the ability to open a spreadsheet and make changes to it even if someone else already has it open. The "File in use" message no longer appears. What pc setting would override this security feature?

Can you add the toolbar on Userforms?

My mouse cannot adjust the page while in preview mode in excel. It just shows a "+" sign and cannot drag on the blue dotted line to adjust. The same is the case with drag and copy. The mouse is not accessing the lower right hand corner of the cell to drag and copy. What could be reason? Please advise.

Brilliant_i'm not

Right click on your sheet tab and select View code.
The code should be in one of your sheets.

Cobra

Have a look here ... the code in this file contains a routine
to keep your form on top.

http://www.xcelfiles.com/XLMagnifier.html

I have used colour banding code that I found on the net to highlight active cells. I followed the instructions in VB, and now I want to remove it altogether but I don't know how, or where to do it. The code I cut and pasted into VB was:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer

'// Note: Don't use if you have conditional
'// formatting that you want to keep

'// On error resume in case user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex

'// Leave On Error ON for Row offset errors
If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If

'// Need this test in case Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete

'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

'// Vertical color banding
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & _
   Target.Offset(-1, 0).Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub

I have no idea of what I am doing - could someone please help me?

Is it possible to have an userform always on top with VBA Excel ?
I develop only from 2 days...

Edited by author 10-23-2007 06:32 AM
I am calling an excel from an excel file.
1. When i close excel, it close both the excel but an excel instance visible in the desktop with out a workbook.
2. If i open an excel file and run my excel file after closing the excel file its doesnot show the excel file.
How to solve this proble...

Ex.
1. Testing is my excel file which calls Testing1 excel file. When i close the testing1 file from user form. Its close all excel file but showing a excel
instance without a workbook.

2. Open MainTest.xls, then open testing.xls file. when close its close everything but its doesnot close the Maintest.xls and not show excel instance which have no worksheet.


Thanks & Regards
Neelaya

Is it possible to change the hand pointer for hyperlinks to something other than the microsoft hand?

Thank you Ivan,

I'm sending you (consult@xcelfiles.com) the Workbook that i'm talking about. I think this is the wright email.
Thanks once more.

Hi Chris
unfortunately that API will not allow. AFAIK, attachments

jmenezes
If you can ?? It may be easier if I saw the workbook.
Is it possible to email me ?

Hi everyone, i've been trying to use the "API Menu maker - for Userforms" together with the "Userform to System Tray" code, it is eveything ok till the moment i resize the form from the system tray.I can manage to choose the menu or submenu but nothing happens, i.e. none of the procedures run. I really don't know what is wrong with this...Can anyone help...
Many thanks in advance.
JM

Is there anyone out there who knows how to do the following or even if it's even possible:-
I have created a ladder in excel 2007 for a football league in the last but 1 column is the point that each team has scored for the season so far. In the last column I want to sort the positions out with 1st,2nd,3rd,etc.

My question, is there a formula that will do this automatically or do I have to type it in every time it changes.

If you do not understand what I am asking by all means ask more questions.

Cheers

hi,i'm trying to find an api timer vb to get the actual time to a cell without excel crash....is that possible?????

Hello,

Creating a form that uses "send keys" function heavily to another program that's reeks Dos based. The form has options with userid and password txtboxes. I'm pasting a easy to use face on a confusing DOS enviroment.

It works BUT...need code to handle errors and stop the Dam send keys.
Is their a way to look for words in the other program and when seen
continue with send keys or else stop the program and send a msgbox with error. Sometimes the load times may change and this causes excel(vba) to open it the program over and over.
and over.

Hello I NEED to send an email using the default email program. I was using the following code however I need to attach a file and I can not see how. PLEASE help
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String


' Get the email address
        Email = Range("B1")
        
' Message subject
        Subj = "Completed BIF from " & Range("E13")

' Compose the message
        Msg = ""
        Msg = Msg & "Dear Admin" & "," & vbCrLf & vbCrLf
        Msg = Msg & "I am pleased to inform you that " & Range("E13") & " has complered their BIF, see attached." & vbCrLf & vbCrLf
        Msg = Msg & "Customer # " & Range("C4") & vbCrLf & vbCrLf
        Msg = "" & vbCrLf

        
' Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
                
' Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
' Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
        
' Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus


' Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:00"))
        Application.SendKeys "%s"

Hello,

Why can't y see the VBA code of the sitekeys workbook? I won't know if there is in fact a virus...

Tks.

Hi Jake, colour listbox items, I don't think so ??
But you can do this for a listview control.

Hi Ivan,

I want some data and numbers in excel form so I can work with them but they are available in gif images - with your program - will they be converted into numbers? or is there any other way?

I know adobe can be converted into excel sheets. So what if I change gif to adobe and then to excel?
Any help will be great! :)

on the progress bar example msctls_progress32

I really don't have excellent VB macro knowledge/experience.

How would I go about adding this feature to already created macros?

Hi Ivan,

I would like to change the color of individual rows in a listbox. Do you know if this can be done? Thank you!

Jake

Is there any way to stop your data being imported into a new workbook? I have been trying variations on the Workbook_BeforeXmlExport and Workbook_BeforeXmlImport event with no success.
Any guidence greatly appreciated

I am creating a portfolio manager in excel. All transactions of buy/sell are entered in one sheet. Closing stock and capital Gains in seperate sheets. I want to create a macro so that at any point of time I get the cost of the closing stock of shares valued in FIFO basis. Also after one year since the captial gain becomes long term I want the total gain segregated into short term and long term (FIFO basis). Please help

Edited by author 09-05-2007 02:25 PM
how do you add microsoft web browers to the list of additional control box i do not have that in the list

Hi Ivan!
I want to call exe-file from VBA. It works with simple command Shell if this executable file is an autonomous file, I mean if it doesn't open any data file to read smth from it. But the problem is arisen when this executive file need to read input data from datafile. Excel just close this executive file and continue to perform rest part of the code. I've tried to use your code, such as http://www.xcelfiles.com/ShellOp.htm or http://www.xcelfiles.com/Excel01.html#anchor_20, but it still doesn't work. Do you know how to call such executable files, which uses input files? Thanks in advance.

Thanks Ivan.

That is what I meant. It was to change the colors of particular parts of the image and then save it as a new jpeg, gif, etc., image file. So that when you use an application such as Paint, you would see the changes.

Since I am not good programer to begin with, it will take me awhile to understand what you have written. So going in reverse will just take me a bit longer to write.

Many thanks.

RichardG

Maxwell
Excel is not that secure. what type of data do you need secured ??

Hi Richard
Do you mean ... "you make changes to Sheet cell, then want to save this as an image file ?"
If so then what you would get is NOT be accurate in terms of original colours as Excel (At least 2003) is limited to 56 colours. 2007 (when I had the Beta version could handle the colours)
What you would need to do would be to reverse the deciphering routine and create the file from the ensuring data. It can be done BUT I have not looked into doing this.

Ivan,

I have started to take a look at your spreadsheet that converts an image to an XL sheet. Very interesting. Is there a way to save any changes done on the XL sheet as a new image file?

Thanks.

RichardG

Im working in co.where i need to send across certain excel files via email. Now what i want is that the reciver of the file can only read it,, neither he can do SELECTION of the cells and nor do he can perform CUT,COPY,Paste & SAVE AS function. What i want is he can read that excel file and all the function gets disabled. I have tried this with macros,but macros can be disabled and also tried protecting the workbook but there also data can be copied.

Please help me out. I need this information on urgent basis.

Thanks & Regards
Maxwell

Hello i hope you can help me solve some formula in excel.

Well i have a spreadsheet that contains document register (incoming / outgoing) drawings. My spreadsheet contains many information about a certain drawing. i.e. dwg number, drawing revision, title etc. my problem is how to make a formula in excel that will show only latest revision of drawings only (excample of log below)

Doc No. Rev No. Title
CIVIL-DW-001 B0 XXX
CIVIL-DW-001 00 XXX
CIVIL-DW-001 0A XXX
CIVIL-DW-001 0B XXX

In this example the latest revision is "0B" so i would want to have a formula that would identify that CIVIL-DW-001 REV 0B is the latest. Can you please show what syntax or how to use if then else or array function to use just to identify the latest revision of drawing. thank you

Larry, concening the ListMacro short cuts.

The Addin has been amended to fix this error

Ivan

I have a question about opening xcel spreadsheets in outlook. Until friday the 13th a report we received from an out of office source opened and saved in outlook with no problems/no errors.
Friday the 13th when the xcel attachment was opened in outlook it opened with errors (the column headings were missing) and the previously saved ones also opened w/ the column headings missing.

Virus scans turned up nothing. A forwarded copy of the original message w/spreadsheet attachment DOES open accurately. The forwarded copy is from an employee in our e-mail domain. Can anyone explain this?
Thanks!

I need to link a Draw object in Excel to a Macro or VB.
example: control the fill-colour of a Rectangle (or other object), via a value in a cell.
Can anybody help, with concrete code sample.
Thanks
Sams

I have a mac running the latest version of excel. I have a single column worksheet containing a long list of URL's that need normalizing as to format, and also need to be checked. Some URL's are in this format: xxxxxxx.com and others are in this format: www.xxxxxxx.com. None of the links are showing active in the column, and right now, to activate them and check them, I have to one-by-one use command K to go to the linking window and do it as a manual process. Is there an easy way both to normalize the format, and also autmoatically go down the column and check the list, and put some notification by links that are bad?

Thanks. If you want to email me directly you can do so at quixos@sbcglobal.net

Hi Arulmohan
Yes, via the web control...

Have a look here..
http://www.xcelfiles.com/AnimatedGif.html

Dear All,

there is Any chance to play GIF file in Excel Spreadsheet

Hi Ivan, im currently using your code in http://www.xcelfiles.com/IsFileOpen.html as part of my Excel VBA codes to retrieve the username that is openning a specified Excel file, it works fine for me both API and VBA methods. However, i have realised that if i have set a password to read in the Excel file, the methods cant seem to retrieve the username anymore.

i wouldnt mind hard coding the password into my codes, is there another way to retrieve the username? Thank you.

Ivan
I predetermined the help file window size in HTML Workshop at less than full screen. That is why I use 1. If the user maximises from there that's ok. But my aim is if they minimise the .chm to the taskbar and forget and then hit the userform cmdbutton a SECOND time I would like to Restore the help file to the state prior to minimising.
As I said I could always create a warning message but it might be neater to Restore the window.

Geoff

change

1 to vbMaximizedFocus or 3
in RetVal = Shell("hh.exe c:\xxx.chm", 1)

I have used the code below to shell out to a help file I have created in the c directory. I call the help file from a cmdbutton on an Excel userform. Multiple instances of the help file are prevented by the code and I could provide a msgbox message should the user try to do so, say if the help file is minimised to the taskbar.
I thought it would be a neat idea to Restore the help file window (to its original state) instead of showing a message but cannot achieve this.
I have tried various solutions and whilst some will activate the help file it is not restored.
How can this be done?

Thanks

Geoff

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
                                                  ByVal bInheritHandle As Long, _
                                                  ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal lnghProcess As Long, _
                                                  lpExitCode As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private RetVal As Long


Public Function ShlProc_IsRunning(ShellReturnValue As Long) As Boolean

    Dim lnghProcess As Long
    Dim lExitCode As Long
    Dim lRet As Long

    lnghProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, ShellReturnValue)
    If lnghProcess <> 0 Then
        GetExitCodeProcess lnghProcess, lExitCode '''test if help file is running
        If lExitCode <> 0 Then
            ShlProc_IsRunning = True
        Else
            ShlProc_IsRunning = False
        End If
    End If

End Function

Sub ShellTester()

    If ShlProc_IsRunning(RetVal) = False Then '''show help file if not already open
        On Error Resume Next
        RetVal = Shell("hh.exe c:\xxx.chm", 1)
        On Error GoTo 0
    Else
'AppActivate "xxx"
'Application.WindowState = vbNormalFocus
'ActiveWindow.WindowState = vbNormalFocus
'ActiveWindow.Visible = True

    msgbox "Help file is already loaded"
    End If

Edited by author 06-22-2007 01:32 PM
I am trying to use your ListMacro_ShortCutkeys XLA, and it does not seem to work? I receive the following Error.

Runtime Error '6'

Overflow

Any suggestions?

Hi, i have a question: i have a row with a calculate cell (D1=b1-c1) i would like that if a person add a new row (for example 3) my cell d3 automatically will contain the formula (d3=b3-c3), but this doesn't work. How can i do? sorry for my english and thanks for your gentle answer!bye.

Hey guys. I would like to see if I could get some help with the workbook I am building. I have several questions and I will try to break them down as best I can. I am somewhat of an Excel novice but trying to get better…. So be gentle with me…….

The way the workbook is set up now; there is a page (tab) for each month in the yr all formatted the same way. In E4:E34 (this last row varies with each month since they all have different lengths i.e.: 31 days/month, 30 days/month, or Feb 28 days/month) the user would input a time value in decimal format (i.e.: 3.0). I want this total to be displayed in column F so that when E4 had 3.0 inserted into it, F4 would show 3.0. When you add an entry into E5 (4.0 for example), F5 would show 7.0. So on and so forth. Easy enough……

Now here is where I get lost. I would like to treat these times in column F as a “rolling total” that only looks back for 30 days, regardless of how many days were in the month and treat each month as if it had 30 days. This can e done by highlighting them with your mouse, then they are totaled in the status bar but I want these displayed in my workbook without having to do this.

For example, when I get to 31 Jan my workbook would only look back as far as 01 Jan and provide you a total (for the last 30 days) in column F. When I moved on to 01 Feb, it would only look back as far as 02 Jan and continue to give you the current total of time inputted in column E in column F. The 30 day look back thing is killing me!

Once that is solved, I would like to subtract the rolling total in column F (as described above) from a given value (in this case 120) which lies in column G. As you add time to column E, column F should increase and column G should decrease by the amount inputted in column E but only for the last 30 days. If you don’t have inputs for 30 days, the total in column F should eventually go back to 0 (zero) and column G would go back to 120.0 (as stated in this example).

I have very similar calculations that need to be performed in H:M only the rolling total is either over 90 days, 2 days or 3 days, again very similar but over different lengths of time.

If you think you can help, please include what I would need to do to the formula to calculate the different lengths as well as what I need to do to link the formulas over different tabs (looking backwards). Thanks in advance….. I am sorry if this is a long post but I was trying to describe things as best as I could to prevent back and forth confusion.

Jonathan
you can adapt the code found here
http://www.xcelfiles.com/Shell32_02.html

or use this

http://www.xcelfiles.com/Shell32_01.html

How can I populate cells in Excel with the information contained within the Summary Tab of the File Properties Dialog Box? To clarify, if I select a pdf file in windows explorer, right-click file properties, select the Summary tab, and enter JB in the Author field, how can I extract that information using either VBA or a window API call? I'm going nuts!!

Hi,
I am running a query on a another sheet in the same file. This results in a ghost instance of the file in VBE Project explorer even after the file is closed.
How do I prevent this from hapenning

TIA
Sam
Excel 2003

I have a 10 Excel workbook with Dropdown Box in a folder. I want to copy the value of Dropdown box from all the workbook in that folder and paste in a new Excel sheet by the help of Excel Macro.

Can anybody help me. I am able to copy the value from Combo boxes but since it is drop down, I am unable to do that.

Hi Matt

for excel 2003

use;
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options\undohistory

sanjiv
I have sent you an email.....

I ran the RegEdit code on this site to change the number of undo's Excel has. I'm using Excel 2003, should it have worked for excel 2003? I changed it and it had no effect, I rebooted the computer also.

Edited by author 05-03-2007 11:05 PM
Ivan,
Is there a way to compress a string using VBA. I construct a rather long string from the contents of the spreadsheet and need to programatically compress it in VBA. Is there a way to compress it programatically in VBA without requiring and external dll like zlib or winzip on the users machine?

Thanks,
Sanjiv

icey__69
There is an error in your routine
should be

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Cells.UnMerge
        If Target = "player" Then [b2:f2,b3:f3,b5:f5,b4:f4,b6:f6].Merge
    ElseIf Target = "team" Then [b1:b2,c1:g1].Merge
    End If

End Sub

for multiple areas look up Application.intersect in your help files.

squintz17
for a custum security msg you will need to place code in the workbook open event
BUT then macros would need to be enabled.

How can i take this and make it for more Cells then just the 2?

I tryed this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells.UnMerge
If Target = "player" Then [b2:f2,b3:f3,b5:f5,b4:f4,b6:f6].Merge
ElseIf Target = "team" Then [b1:b2,c1:g1].Merge
End If
End If
End Sub

But it never worked Can someone help me in my VBA codeing

Can you have a custom security warning pop-up once a excel file has been open? Much like the one that pops-up warning about a macro.
Thanks

Welcome!