IT Answers » Excel 2003 macros

Macro using Visual Basic

JoyStrassacapa — Tue, 23 Oct 2012 16:28:52 +0000

New Answer by TomLiotta

Message Alert Box in Excel 2003

Eron09 — Mon, 20 Dec 2010 10:30:10 +0000

I have a two files, one is the consolidated time monitoring and the other file is the individual time monitoring.

The individual time monitoring file has 30 sheets which is the name of each agent and in shared mode. On that file, agents are responsible to provide/indicate the things that they’ve done everyday…for the whole week. The total time should not be less that 40:00 hrs (8hrs x 5 days). Each sheet ha a formula in “B2″ that sums all time they entered in column J.

The Consolidated time monitoring, is a file wherein all data in Individual Time Monitoring is placed in 1 sheet. This file has a macro that I run to copypaste all data in each sheet of Individual Time Monitoring. My proble is, I am having a hard time with the total number of hours because I have to check each sheet if its already 40hrs or more. My question is, how can i add a macro where in a message alert will pop-up and show that a certain sheet/s’ total time is not yet 40hrs and if possible to give the name of the sheet where the total time in “B2″ is not yet 40 hrs.

Here is the macro that I run in the Consolidated Time Monitoring File.

    ChDir “P:MY REPORTDecemberDecember 20 – 25″     Workbooks.Open Filename:= _         “P:MY REPORTDecemberDecember 20 – 25December 20 – 25 Data Team Utilization Report.xls”     Sheets(“Mon”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Alma”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Ivan”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“RC”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Tala”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Peter”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Gerry”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Zhaque”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Rona”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Ize”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Dana”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Jojie”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Erwin”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Nino”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Anne”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Heizel”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Aaron”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Delia”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Edsel”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Bless”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Jaz”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“PJ”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Bran”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Richmon”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Billy”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Ryan”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Cris”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Dean”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Irish”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Patrick”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Gem”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Aileen”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Sheets(“Carlo”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False

    Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Range(“G6″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“G2:G6000″).Select     Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False     Windows(“December 20 – 25 Data Team Utilization Report.xls”).Activate     Range(“I6″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“I2:I2030″).Select     Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False     Range(“A2″).Select

    End Sub

Excel 2003 Macros with Org Chart Parent

Vanillathunderrr — Wed, 15 Dec 2010 15:53:45 +0000

Hello, I have a corporate org chart for which I am trying to write a macro. The Excel workbook is set up so that each company is in a unique cell. The subsidiary is one column to the right. For instance, I would like to return the values in the far right column for the data below. Thank you.

COL
A B C F

AAA

BBB AAA

CCC AAA

DDD CCC

EEE AAA

VBA macro to search macros in workbooks

Smf — Tue, 03 Aug 2010 14:54:02 +0000

I have an Excel macro that will search folders for .xls workbooks and can open them. Now I need to search the macros for any reference to a unc path. How do I search a macro?

Getting rid of multiple macro copies in Excel 2003

Rerics59 — Tue, 13 Apr 2010 06:06:27 +0000

Somehow, in Excel 2003 I have 4 copies of the same macro on the
toolbar (not sure how that happened). However, when I click on
Tools>Macro>Macros, there are no macros shown, and all options are grayed
out except Cancel. When I go to
Tools>Add-ins, one copy of the macro is shown, and it is checked. How do I remove the copies on the toolbar so
that just one is showing?

Microsoft Excel 2003 Macros

Danielm55 — Tue, 30 Mar 2010 12:45:04 +0000

I have an shared excel workbook that has a macro for auto save (update), The problem users are having is while working on different excel workbooks not linked to the shared workbook, when the auto save starts on the shared workbook all other excel workbooks become inactive until the auto save is complete.

Is there a macro to stop other workbooks from becoming inactive when the shared workbook starts auto saving?

Missing reference to Microsoft Office 11 Object Library

Smf — Wed, 30 Sep 2009 13:29:52 +0000

Using MS Office Excel 2003 on XP

I have written a number of macros that use the following code,

With Application.FileDialog(msoFileDialogFilePicker)….

Something (?) has happened and now this portion doesn’t work any longer. When clicking on the macro I get the error variable not defined with the msoFileDialogFilePicker highlighted.

When I look at the references I don’t have the choice of the Microsoft Office 11 Object Library. The macros have been working for several months so I know that the code is OK.

What dll could have changed or is missing?

Thanks

Susan

Horizontal to vertical

Mike50 — Fri, 10 Apr 2009 20:09:11 +0000

how do you change a horizontal excel 2003 spreadsheet with qty breaks to a vertical speadsheet with quantitiy break or is there a marco

Excel 2003 Help: How to delete duplicates from specific colums and criteria

Groom — Mon, 23 Mar 2009 23:02:44 +0000

Hi
I have already sent my question here: http://www.vbforums.com/showthread.php?p=3477514#post3477514

But I will ask the same again:

In my Excel file I have several columns and lots of rows.

I want the macro to check the column named REF (let say it’s in the B column).
And it will check if other data contains the exact same characters/word. (this is a possible duplicate)

If yes, then the next column to be checked is SEQ (let say it’s in the column F).
If other data contains the exact same characters/word. (this confirms that this is a duplicate, but no deletion yet, see below)

Then the last column to be checked is STAT (let say it’s in column K).

Now here is where the deletion will take on. The criteria is:

Example:
Row 321 och 400 has the same REF and SEQ

STAT for 321 is other than MAK and
STAT for 400 is other than MAK,
then only one of them should stay.

STAT for 321 is MAK and
STAT for 400 is other than MAK,
then MAK should stay

STAT for 321 is MAK and
STAT for 400 is MAK,
then only one of them should stay.

How can I program this?

Thanks in advance
Best Regards
Groom

I am getting “compiler error in hidden module” error in Excel 2003 while running Macro

Shirishbidarkar — Wed, 03 Dec 2008 07:24:05 +0000

I am getting :”compiler error in hidden module ” error in EXCEL 2003 only while running MACRO. Actully this MACRO is running on some PCs & for some PCs it is showing that error. The installation of MS EXCEL 2003 is same on all PCs. Please help me ASAP.

Thanks in advance !