Posts by rem1224

Hi Colin -
This will close excel with no questions asked (changes will be lost) - Take out the displayalerts line if you want to be prompted to save changes.

Sub QuitExcel()
Application.DisplayAlerts = False
Excel.Application.Quit
End Sub

Hope this helps

.....Ralph

This thread certainly brought back the memories (good :biggrin: and bad :mad: )

In my days at the University, it was Fortran IV and COBOL with those dreaded punch cards others have mentioned. The worst feeling in the world was having a project due the next day - going to turn in your deck of cards to run and seeing the "turn-around" time clock set to "infinity" - - the Univac 1108 was down again - - only to find out that you spelled "Environment" wrong in your COBOL deck which bombed the program before it got started.

Was working part time at Radio Shack when the TRS-80's hit the market. Spent all my time (between customers of course :wink1: ) trying to get a bowling game programed - - a little white dot shooting across the screen at 10 other little white dots.

Onward and upward to the Atari 800 and C64 era - - cutting notches in single sided floppy disks to make them double sided to save money!!

The company I worked for then had a "Basic 4" computer system with 2 - 75MB disk drives (each the size of a 2 drawer file cabinet)

I have to agree with Dennis that I sometimes would like to "maintain the simplicity". Some days I miss the ease DOS with the command line functions....... but then again, the only smilies we could use were with a colon and a paran :cheers:

.....Ralph

Hi Philip,

Paste Values is about the easiest way. Instead of going throught the Edit / Paste Special / Values menus, you could add the Paste Value button to your toolbar - Under View / Toolbars / Customize / Commands - look in the EDIT category and drag the Paste Values icon up to the toolbar where you want it (looks like a clipboard with "12" on it).

.....Ralph

Hi Cornina,

Are both lists in the same workbook?
Is it possible to include the "Paid" status in the master list instead of a seperate list?

I'm thinking "Conditional Formatting" here.

.....Ralph

Hi dk,

Have you tried Data / Filter / Autofilter for this? Might be a start, but I don't think it will give you everything you want though - - and I'm not sure I understand all of the filters you are trying to define.

It might be possible to build "Advanced Filter Criteria" then put them in a drop down menu or a userform, then display the results of the filter on a different sheet.

Could you further explain the filters you are trying to get? example - - what does "last x odd/even rows" mean? And how do you determine the "Last x" of any filter - are the rows always in the same order or do they get sorted somehow?

.....Ralph

Hi enner,

The Gill font files (there are 8 font files) are in the OFFICE1.CAB file on the Microsoft Publisher CD in Office XP Pro. I could not find them on the install CD for Word/Excel, etc. If you have Office Pro, you can either install Publisher and the font files will be included or you can unzip them from the .CAB file.

Hope this helps

.....Ralph

Hi chico,

If you are trying to verify that a folder exists?

If I missed the question, try it again :wink2:

.....Ralph

Hi Gary,

Probably the easiest way is to autofit the columns after it is exported to excel.

Open the new excel file
Click on the small box to the left of the Col A heading and above the Row 1 heading (this will highlight/select the entire worksheet)
Click on Format / Column / Autofit Selection
That will make all the columns on the worksheet the correct size for the imported data.

Hope this helps
.....Ralph

Hi maluodo,

You could create a workbook_open event macro that asks for a username & password, then applies the "xlveryhidden" property to the worksheets not associated with that user. If you are using the "Share Workbook" feature in Excel, however, I've heard that VBA routines sometimes don't act right with sharing.

Another possibility, which may be easier, would be to have 3 individual workbooks for the 3 users, then create a 4th workbook (password protected) to consolidate the 3 sheets using links.

Post back with some more details if this doesn't do it.

.....Ralph

HI Gary,

Are you doing the export in VBA? Perhaps you could autosize the columns after the export is complete - -

Columns("A:Z").AutoFit

.....Ralph

HI Ross,

Try this - - ActiveCell.Offset(Worksheets("sheet1").Range("c1").Value, 0).Select

.....Ralph

Hi duke,

That's a pretty open-ended question..

How many workbooks do you need to combine? Are they in the same directory? All worksheets formatted the same in each workbook? Do you need to add the values together from Sheet1!A1 in each workbook and put the result in Sheet1!A1 of the combined workbook?

Pass on a few more details of the project and I'm sure someone can help get you started. Also try using the search function here to look for other posts on the same subject - I think there have been a few similar that may help.

.....Ralph

Hi keith,
Couple of ideas - -
--Check excel status bar for "EXT" or "ADD" near the right side - Press F8 to get rid of this.

--Check the Windows Control Panel / Mouse Properties / Buttons - - make sure "ClickLock" in not on.

--Try a different mouse - even try a switch from PS2 to Serial

Any similar problems in other programs?

.....Ralph

Click on the "35" (on the left of the screen) to highlight the whole row. Then click on Edit / Clear / Formats. That will wipe out all formatting in that row and allow you to change the formats. Some cells were formatted as a group previously.

Hope this helps

.....Ralph

When you say "nothing happens" do you mean that the cell is not even outlined with the black border like when you select another cell? - or you just can't change the formatting of that cell?

Also, which cell is it?

Hi kalijwv,

the formula =P3*SUM(Q10:Q13) will give you what you need for cell J1.

If you copy that down to K1 it will change to =P4*SUM(Q11:Q14)

Not sure if that's exactly what you want - - if not post back.

.....Ralph

An add on to Tom's comment.

If you are using XP (not sure about earlier versions) - -
Lock all the cells on the worksheet (under Format / Cells / Protection)
Turn Protection on (Tools / Protection / Protect Sheet)
Assign a protect password
In the "Allow All Users of this worksheet to:" box - - make sure nothing is checked (especially, select locked cells and select unlocked cells)

Then user can scroll around the sheet using the scroll bars, but can't select any cells - which locks them out of copy and paste function.

.....Ralph

Hi mj,

No "magic number" that I know of, unless you are short of RAM and there is a lot of memory to disk swapping going on - but it still should not take 9 minutes.

Can you post a copy of the excel file (with the data you are copying) and the macro that creates the word file so someone can take a look?

.....Ralph

Hi wildboar,

Give the attached at try.

Run the macro called MoveData by pressing Alt-F8 and selecting that macro to run.

View the code by going in the VBE Alt-F11.

Hope this helps

.....Ralph

Hi Cronina,

This may get you started - its not real elegant. Just a simple combo box with a drop down list - when the value is changed, it runs a macro that does a FIND on Col A. The ranges need to be expanded for more entries

.....Ralph