Over 1 million tech questions and answers.

Solved: Excel 2003 macro halts during execution - no error message

Q: Solved: Excel 2003 macro halts during execution - no error message

I am working in Excel 2003, within XP and have the following situation.

For approximately 18 months, I have been running the macro listed below without issue. Now, for no apparent reason, the macro fails to execute in its entirety. When executing the macro from within Excel, the execution starts and proceeds a few lines and then just stops. No error, no warning, nothing, the macro just stops.

If I open up the Visual Basic editor screen from within Excel and attempt to execute the macro with F5 or step through line by line with F8, execution will proceed to the end of the Selection.TextToColumns command line, and the insertion point goes back to the start of this same command once executed. If F8 is pressed a second time, the insertion point goes all the way back to the Sub line at line 1 of the macro and tries to run the macro again. The behaviour is consistent, and no error code or indication occurs. The code has not changed.

If I break up the macro into a series of smaller macros at each error point, and run them sequentially, I get the desired outcome.

I have tried renaming, copying and pasting the text into different macro files, exporting the macro and re-importing into different worksheets (this one is currently sitting in personal.xls which is still sitting in my /xlstart subfolder.

I have 8 similar macros that now all do the same thing - very puzzling.

Would welcome any suggestions you may have. Thanks all.

ps. for all you real VBA folks out there, no this isn't pretty, but it works.

VBA macro follows
---------------------------------------------------------------------
Sub MacPac_UsageImportForPC99()
'
' MacPac_UsageImportStep1 Macro
' Macro recorded 6/14/2005 by Tim Bremner
' Raw materials at HCA
'
Dim myRange As Range
Dim TestRow As Integer
Dim EndTrigger As Integer
Dim RowCounter As Integer
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(22, 1), Array(47, 1), Array(49, 1), _
Array(51, 1), Array(62, 1), Array(65, 1), Array(68, 1), Array(70, 1), Array(75, 1), Array( _
80, 1), Array(90, 1), Array(102, 1), Array(115, 1), Array(126, 1), Array(138, 1), Array(140 _
, 1), Array(145, 1), Array(153, 1), Array(160, 1), Array(171, 1), Array(181, 1), Array(193, _
1)), TrailingMinusNumbers:=True
'EXECUTES TO HERE, STOPS, AND PLACES THE INSERTION POINT BACK ON THE SAME EXECUTION LINE
'PRESSING F8 AGAIN FOR THE NEXT LINE PLACES THE INSERTION POINT BACK ON LINE 1 OF THE MACRO AND STARTS AGAIN

Rows("1:3").Delete
Rows("1:3").Select
Selection.Insert Shift:=xlDown
ActiveWindow.Zoom = 80
'Make a copy of the original sheet and label it so.
Worksheets(1).Select
Worksheets(1).Name = "Original"
Sheets("Original").Copy After:=Sheets(1)
Worksheets(2).Select
Worksheets(2).Name = "Working"

Range("B1").Value = "PN"
Range("C1").Value = "Description"
Range("D1").Value = "PT"
Range("E1").Value = "MB"
Range("F1").Value = "Valve Type"
Range("G1").Value = "PC"
Range("H1").Value = "SC"
Range("I1").Value = "CD"
Range("J1").Value = "QTY"
Range("K1").Value = "INCR"
Range("L1").Value = "Qty on Hand"
Range("M1").Value = "Invoiced YTD"
Range("N1").Value = "Qty Issued to MO's"
Range("O1").Value = "Tot Usage This Year"
Range("P1").Value = "Tot Usage Last Year"
Range("Q1").Value = "LT"
Range("R1").Value = "Lead Time"
Range("S1").Value = "TRN Cum Day LT"
Range("T1").Value = "Safety Stock"
Range("U1").Value = "Std Unit Cost"
Range("A1").Value = "Index"
'Find the approximate end of the range so that we can set an index column.
'Scan down column B until we find 20 consecutive rows that are empty.
EndTrigger = 0
TestRow = 0
Range("B2").Select
Do Until EndTrigger = 100
If ActiveCell.Offset(TestRow, 0).Value <> "" Then
ActiveCell.Offset(TestRow, -1) = TestRow + 1
TestRow = TestRow + 1
Application.StatusBar = "Indexing row number " & TestRow
EndTrigger = 0
Else
ActiveCell.Offset(TestRow, -1) = TestRow + 1
EndTrigger = EndTrigger + 1
TestRow = TestRow + 1
End If
Loop
Application.StatusBar = False
'Now sort and delete the rows that aren't
' 9P = Plastic Pellets
' 9M = Miscellaneous

Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
myRange.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
EmptyCheck = False
nRows = myRange.Rows.Count
Application.ScreenUpdating = False
myRange.Cells(2, 8).Select
Do While EmptyCheck = False
If ActiveCell.Value = "9M" Or ActiveCell.Value = "9P" Then
ActiveCell.Offset(1, 0).Select
CellValue = ActiveCell.Value
EmptyCheck = IsEmpty(CellValue)
Else
ActiveCell.EntireRow.Delete
CellValue = ActiveCell.Value
EmptyCheck = IsEmpty(CellValue)
End If
Application.StatusBar = "Filtering check on row " & ActiveCell.Row()
Loop

Application.StatusBar = False
ActiveCell.Offset(0, -7).Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Set myRange = ActiveCell.CurrentRegion
myRange.EntireRow.Delete
Range("A1").Select

'Apply some heading formats, delete useless colums, and adjust column widths
' for readability.
ActiveWindow.Zoom = 80
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.SmallScroll toRight:=6
Columns("V:X").Select
Selection.Delete Shift:=xlToLeft
Columns("Q:Q").Select
Selection.Delete Shift:=xlToLeft
Columns("I:K").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("O:O").ColumnWidth = 6
Columns("M:M").ColumnWidth = 10
Columns("L:L").ColumnWidth = 9
Columns("K:K").ColumnWidth = 9
Columns("I:I").ColumnWidth = 8
Columns("J:J").ColumnWidth = 7
Rows("1:1").EntireRow.AutoFit
Columns("Q:Q").Select
Selection.Style = "Currency"
Range("A1").Select

'Now make a copy of the Working Sheet and do
'Raw, Mix, Cold Bushing and Hot Bushing Sheets

Worksheets(2).Select
Sheets(2).Copy After:=Sheets(2)
Sheets(2).Copy After:=Sheets(3)
Worksheets(3).Name = "SC=9P Pellets"
Worksheets(4).Name = "SC=9M Misc"

Worksheets(2).Select
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
ActiveWindow.LargeScroll toRight:=-1
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
myRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Worksheets(3).Select
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
nRows = myRange.Rows.Count
Application.ScreenUpdating = False
For nCount = myRange.Rows.Count To 2 Step -1
If myRange.Cells(nCount, 8).Value <> "9P" Then
Application.StatusBar = "Working on row " & nCount & " of " & Worksheets(3).Name
myRange.Rows(nCount).Delete
End If
Next
Application.StatusBar = False
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
ActiveWindow.LargeScroll toRight:=-1
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
myRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Worksheets(4).Select
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
nRows = myRange.Rows.Count
Application.ScreenUpdating = False
For nCount = myRange.Rows.Count To 2 Step -1
If myRange.Cells(nCount, 8).Value <> "9M" Then
Application.StatusBar = "Working on row " & nCount & " of " & Worksheets(4).Name
myRange.Rows(nCount).Delete
End If
Next
Application.StatusBar = False
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
ActiveWindow.LargeScroll toRight:=-1
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
myRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

RELEVANCY SCORE 200
Preferred Solution: Solved: Excel 2003 macro halts during execution - no error message

I recommend downloading and running Reimage. It's a computer repair tool that has been proven to identify and fix many Windows problems with a high level of success.

I've used it in the past to identify and fix everything from blue screens (BSOD's), ActiveX errors, corrupt files and processes, dll/exe/sys errors, recover lost memory, Windows update problems, defragging, malware removal etc.

You can download it direct from this link http://downloadreimage.com/download.php. (This link will automatically start a download of Reimage that you can save to your computer.)

A: Solved: Excel 2003 macro halts during execution - no error message

Read other 7 answers
RELEVANCY SCORE 89.6

I have a macro I wrote in excel 2003 (by recording small steps as a chain of macros), I just upgraded to a new machine and Office 2010.

When I try and run the macro it comes back with error message "Run time error 438, Object doesn't support this property or method."

When I run debug the code line that is flagged is:

Selection.End(X1 to Left).Select

Are there any commands or options which have changed between 2003 and 2010 and is there a conversion list anywhere?

George intermediate user running Windows 7 64bit, Office 2010
 

A:Solved: Excel macro 2003 to 2010 error 438

Read other 16 answers
RELEVANCY SCORE 88.8

When I try to compile the Excel Macro, I get the following error message:

"Compile error: Procedure too large"
 

A:Solved: Excel Macro - Error Message

Read other 15 answers
RELEVANCY SCORE 81.6

I’m using Windows 7 and I used a macro which worked totally fine under Excel 2003. Now, under Excel 2007 it does not run anymore but displays the following error message:

"Run-time error '445':
Object doesn't support this action.

The function of the macro is to open up all other Excel spreadsheets located in the same folder and copy data out of them into the spreadsheet in which the macro is stored.

When I click on "Debug" the Visual Basic Editor highlights the row which says: Set FilSrch = Application.FileSearch

Can you help me with this? I've searched for a solution for a long time but could not find anything which worked.

The following is the start of the macro code:

Sub UpdateTable()
Dim X As Range, I As Integer, J As Integer, RecNo As Integer, CopyVal As Variant
Dim SourceBk As Worksheet, DestBk As Worksheet, StartRow As Integer, IndRange As Range
Dim ServRange As Range, SrcOpen As Boolean, SourceName As String
Dim FilSrch As Object, MyFilArray() As String

'MsgBox "This function not available in this version.", vbInformation, "Function Not Available"
'Exit Sub
'Sheets("LookUp").[a12] = Now
With Application
.ScreenUpdating = False
.StatusBar = "Counting source files ..."
End With
Set FilSrch = Application.FileSearch
With FilSrch
.NewSearch
.LookIn = ActiveWorkbook.Path
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
ReDim MyFilArray(.FoundFiles.Count)
For I = 1 ... Read more

A:Solved: Excel 2003 Macro Doesn't Run in Excel 2007 - Help Requested

Read other 7 answers
RELEVANCY SCORE 81.6

When I attempt to open an Excel file using Excel 2003, the following error message occurs:

"this file is not in a recognizable format" etc...

Why does this occur, and how can I open the file successfully?
 

A:Solved: Excel 2003 - error message when opening file

Check the file extension. Am sure it has an extension ".xlsx" which means that the file was created using microsoft office 2007 excel or higher. This is why your computer does not recognize the extension of the file. the 2003 version of excel can only open files with the extension ".xls". The solution to this is to get microsoft office 2007 or higher version and install it or got the following link and download Microsoft Office Compatibility Pack and install it. it will enable you to open the file without having to install the office 2007 which may not be fit for your machine specifications.
http://www.microsoft.com/downloads/...70-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=en
 

Read other 1 answers
RELEVANCY SCORE 78.8

I'm trying to populate blank fields with data from above. For example, in a column, there will be one cell containing data, I'd like to populate the blank cells below until another populated cell appears etc...

I think this is a "Run a For Each...next Loop" macro but do now know VBA language well enough to build.

Any ideas?
 

A:Solved: Excel 2003 macro

Read other 16 answers
RELEVANCY SCORE 78.8

Hi

I'm hoping someone can help me, what I'm trying to get it to do is copy info from one sheet and paste it into another sheet but in a slightly different format.

If I was to write what I want in english it would go like this :

Copy the date from cell F5 on sheet A to the next available row in column A on sheet B, then copy from cell H5 on sheet A to next available row (same row as the date in Col A) in Column B on sheet B. Then copy data from cell F31 on sheet A and to the same row, but if cell B7 on sheet A says 'white' then copy it to Column C on Sheet B, or if cell B7 on sheet A says 'blue' the copy it to Column D on Sheet B, or if cell B7 on sheet A says C then copy it to column E on sheet B and so on, I have 6 different columns. (I do have column titles on sheet B on row 5).

Hope that makes sense, can anyone help?

Thnax in advance.
 

A:Solved: Excel 2003 Macro help

Read other 6 answers
RELEVANCY SCORE 78.8

Hi all, I need some help please with excel 2003 vba code. I have recorder the macro which I want to look at a cell and copy the value, select the custom filter, paste the cell value into the custome filter and then sort the results in Z-A order.

The code however (generated by macro recorder is inserting the text value rather than the cell reference.

Can anyone tell me how to edit the code please?? The part number 2000801990 is shown in red - this should be the cell reference.

Thanks

Nic

Sub engineer_consumption()
'
' engineer_consumption Macro
' Macro recorded 18/09/2008 by Nic Cunliffe
'
'
Range("B1").Select
Selection.Copy
Selection.AutoFilter Field:=2, Criteria1:="=2000801990", Operator:=xlAnd
Range("C177").Select
Application.CutCopyMode = False
Range("A8:C44630").Sort Key1:=Range("C177"), Order1:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortTextAsNumbers
End Sub
 

A:Solved: Excel 2003 macro help

Read other 8 answers
RELEVANCY SCORE 78.8

Hello,
My question is "Is it possible to do what I want to do" in Excel 2003?

I would like to reformat a large list of name and address info from this format:

1. BUSINESS NAME (MILES)
ADDRESS
CITY STATE ZIP
PHONE: 000-000-0000
TYPE OF BUSINESS: XXXX XXXX

TO THIS FORMAT:

A B C D E F G
BUSINESS NAME ADDRESS CITY STATE ZIP PHONE TYPE

I HAVE NO PROBLEM MOVING THE DATA INTO THE DESIRED FORMAT USING A SIMPLE "RECORD NEW MACRO..." THAT I RECORDED.

MY PROBLEM AND QUESTION IS REMOVING THE RED HIGHLIGHTED INFORMATION.
I AM NOT A PROGRAMER AND HAVE NOT FIGURED OUT THE LOGIC IN THE 'VISUAL BASIC'.

I HAVE TRIED MANY "RECORD NEW MACO..." BUT CAN NOT GET IT TO REMOVE THIS UNWANTED INFO.

IS IT EVEN POSSIBLE TO DO THIS WITH EXCEL 2003 ?????????????????????
AS YOU CAN IMAGINE ANY HELPFUL ADVICE WILL BE GREATLY WELCOME.

THANK YOU SO MUCH.
JOHN
 

A:Solved: Excel 2003 MACRO HELP

Read other 16 answers
RELEVANCY SCORE 78.8

Hi Guys

I have a Excel spreadsheet that has a lot of sheets. On the header sheet I have created a checkbox next to the names of each sheet, say "A", "B", etc

I've tried to create a macro that deletes all the sheets with the checkbox checked but unsuccessful so far. Can you guys please help me?
Also what's the best way to get to the sheet from header sheet without slowing down excel too much please? Hyperlink?macro?
 

A:Solved: Need help re Macro in Excel 2003

Read other 16 answers
RELEVANCY SCORE 78.8

I have a userform created in Excel with a combo box. I would like to have the user select an option from a combo box, and then filter/hide data on a worksheet based on the combobox selection.

If any further information is needed please let me know.

Any help with this would be greatly appreciated.
 

A:Solved: Excel 2003 Macro

Read other 16 answers
RELEVANCY SCORE 78

Does anyone know how to setup a command button to run a macro?
 

A:Solved: Excel 2003 Run Macro from CammandButton

I figured out how to get the macro to run from a command button.

Here is the code I used....
Code:


Call MacroName

 

Read other 2 answers
RELEVANCY SCORE 77.2

I have a large file that I print many times and there are some pages included in the list that are not needed and I throw away every time.

Other than print twice, I'm sure there is a macro that can be programmed to skip those pages, or maybe a macro to link the two print ranges.

Can anyone get me started?
 

A:Solved: Interesting Excel 2003 print macro

Read other 16 answers
RELEVANCY SCORE 77.2

Hi Guys,

I'm after a bit of help.

I'm working on a spreadsheet in Excel 2003, it's a sheet to monitor staff Holidays/lieu days/entitlement etc.
The basic setup is as follows:
the main sheet is 'Staff List' and each Staff member will have their own sheet (named as per their initials)

What I like to achieve is to have an 'fool proof' button (macro) to automatically insert a new sheet and insert the staff members name in cell AD2 and name the sheet using the staff members initials
and also insert a row on the 'Staff List' sheet (row 50, I will manually move it to the proper location (this macro is simply for the times I'm not in and colleagues mess up the formulas)).
Now the tricky bit is that there are a number of formulas on the 'Staff List' that would need to be copied to the new row

I have attached a test file to play around with for anyone who would like to.

Any Help/suggestions much appreciated!

regards
mad-martin
 

A:Solved: excel 2003 insert sheet macro

Read other 16 answers
RELEVANCY SCORE 76.4

Hi

I am using excel 2003 (version: 11.8341.8341) SP3 and created a macro to rename the active sheet:
Code:
Sub renamesheets()
Dim activesheet As String
If activesheet = "[B]Sheet01[/B]" Then
Set Sheets("[B]Sheet01[/B]").Name = "[B]qryOfficeNetForeign[/B]"
Application.ScreenUpdating = True
Else: End If
End Sub
SO the active sheetname is: Sheet01 and should be renamed to qryOfficeNetForeign.

This code is not working I am wondering why...

Thanks,
Wouter
 

A:Solved: macro to rename active sheet in excel 2003

You don't need the SET keyword.
Code:
If ActiveSheet.Name = "Sheet01" Then
ActiveSheet.Name = "qryOfficeNetForeign"
End If
or
Code:
If ActiveSheet.Name = "Sheet01" Then
Sheets("Sheet01").Name = "qryOfficeNetForeign"
End If

Regards,
Rollin
 

Read other 2 answers
RELEVANCY SCORE 74.4

Has anyone ever seen the error message "Code execustion has been interrupted" in Excel 2007?
 

A:Solved: Excel 2007 Code Execution Error

Read other 6 answers
RELEVANCY SCORE 74.4

I found how to send an email from an Excel Macro (http://forums.techguy.org/business-applications/1056070-solved-excel-email-outlook-code.html)

Here is the code I'm using:
Code:

Sub Email_Test()
'
' Macro11 Macro
' Keyboard Shortcut: Ctrl+r
Dim eSubject As String
Dim Sendto As String
Dim CCto As String
Dim Body As String
Dim app As Object
Dim Itm As Variant
Set app = CreateObject("Outlook.Application")
Set Itm = app.CreateItem(0)
'Populate variables

mSubject = "Excel EMail Test"
Sendto = "[EMAIL="[email protected]"][email protected][/EMAIL]"
CCto = ""
mMessage = "You have received Knowledge Document Feedback for your domain."

With Itm
.Subject = mSubject
.To = Sendto
If Not IsMissing(CCto) Then .CC = CCto
.Body = mMessage
' .Attachments.Add (NewFileName1) ' Must be complete path
.Display ' This property is used when you want
' .send
End With
Set app = Nothing
Set Itm = Nothing
End Sub
Is there a way to format the message section with bullets? How about paragraph breaks?

Name: John Doe

Date: 6/15/2012
Doc #: KM123456
Etc:
Etc:
Comments:
I'm perfictly willing to look at how-to documentation if someone can point me in the right direction.

Thanks
firstshot
 

A:Solved: Formatting Excel Macro Email Message Section

Hi, I haven't really looked myself but instead of bullets I generally use a dash and a tab
Paragraph as such are not possible but you have the linefeed and carriage return

example to add to your macro code before calling the mail proc
Code:

Dim mytext as string
mytext = vbnullstring
mytext = "Dear Jon Doe" & vbclrf & vbcrlf
mytext=mytext & "-" & chr(9) & "Date :" & the date variable & vbcrlf
mytext=mytext & "-" & chr(9) & "Doc #:" & the dos variable & vbcrlf
mytext = mytext & "-" & chr(9) & "Etc :" "etcetera"
mytext = mytext & vbcrlf & vbcrlf
mytext = mytext & "Sincerely yours," & vbcrlf & vbcrlf
mytext = mytext & "Jane Doe" & vbcrlf

vbcrlf can also be replaced wij Chr(10) or Chr(13)

See it this helps.

Maybe html formattingis possible but this works just as fine.
 

Read other 3 answers
RELEVANCY SCORE 74

Hello,
I've long used a simple macro on various spreadsheets to reset the last used cell:

Sub Reset_Range()
Application.ActiveSheet.UsedRange
End Sub

This works fine, but prior to using it, I would have to press CTRL + End to see where the current last cell is, then manually delete any blank columns and rows appearing at the end of the data, by selecting them by their column letters / row numbers, right clicking and selecting Delete. Failure to do this would mean the macro didn't successfully correct the last used cell.

I would like to add this stage into the macro.
I found some code on the web that allegedly removes all blank rows and columns, so I pasted it at the top of my existing macro:

Option Explicit

Sub DeleteBlankRows()
Dim Rw As Long, RwCnt As Long, Rng As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On Error GoTo Exits:
If Selection.Rows.count > 1 Then
Set Rng = Selection
Else
Set Rng = Range(Rows(1), Rows(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row()))
End If
RwCnt = 0
For Rw = Rng.Rows.count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Rows(Rw).EntireRow) = 0 Then
Rng.Rows(Rw).EntireRow.Delete
RwCnt = RwCnt + 1
End If
Next Rw

Exits:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Sub DeleteBlankColumns()
Dim Col As Long, ColCnt As Long, Rng As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On ... Read more

A:Solved: Excel 2003 macro to delete blank columns & rows, then reset range

Read other 6 answers
RELEVANCY SCORE 72

I am looking for help in writing a macro that will do the following.

With Excel 2003 open and the current workbook open. The macro should be able to save 3 variables from the current spreadsheet (some text, a value and a date ) The macro should open up Outlook 2003 as a task, attach the current workbook. In the Subject field of the task it should add the user's name, then the attached spreadsheet's filename then the text variable, then the value variable and finally the date.

Also it would be great if the Priority of the task could be set to High and the Start and Due dates set to 3 calendar days before the date variable.

Finally the macro would set a list of people the task is assigned to. The macro should NOT save the task as a check would need to be done manually.

I have tried unsuccessfully to write a macro in Outlook as I cannot seem to access the attachment filename or any data from the file. I have tried a macro in Excel which I can create a task and add some text to the Subject of the task but with no real progress on the attachment.

I have tried searching the net for help but a lot of code for Outlook is for the mail side of things rather than tasks and the little code snippets I have found have been of limited use. I have limited skills in programming Visual Basic and C so quite prepared to get my use code which does similar things
 

Read other answers
RELEVANCY SCORE 71.6

Does anyone know how to run Excel 2003 print macro on Excel 2007 or higher? When I tried running my 2003 macro, the VBA editor pops up w dialogue box, " Run-time error '1004': Method 'ActivePrinter' of object'_Application' failed ".

This is my code: Application.ActivePrinter = "Epson LQ-300 ESC/P 2 on USB003"

Can anyone help?

Thanks!
 

A:How to run Excel 2003 print macro on Excel 2007?

Welcome to TSG hope we can help you and you can help others.

I'm not an Excel macro guy but you code looks reasonable. What happens if you run this. I suspect printer name is a little off.

MsgBox "The name of the active printer is " & Application.ActivePrinter
 

Read other 1 answers
RELEVANCY SCORE 70.4

Hi there,
I've cobbled below code together (I'm game but probably not even a pedestrian in VBA, maybe more of a snail) to take some information from an Excel sheet and put it into an e-mail. I also want the active workbook attached to the e-mail and if possible another file with the same name but in pdf (haven't looked at that yet).

The ErrorCatch says it's an object or applications driven error.

I'm not sure about this line: .Attachments.Add ActiveWorkbook.FullName but really have no clue where the problem is.

Any help would be greatly appreciated. Thanks.

Christine

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

On Error GoTo Errorcatch
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Hi Leon" & vbNewLine & vbNewLine & _
"" & vbNewLine & _
"Attached invoice for " & Cells(C14) & ".Can you please approve for payment?" & vbNewLine & _
"Supplier: " & Cells(E43) & vbNewLine & _
"Invoice Number:&quo... Read more

A:Solved: Error 400 in Excel Macro

Read other 14 answers
RELEVANCY SCORE 70.4

This post is related to an earlier one, which has now been solved and closed:http://forums.techguy.org/business-applications/955009-excel-2007-lookup-formula.html. The macro outlined in this thread works fine as long as there are 4 values in each row the macro references. If there are less than 4 values the formula errors when trying to return the

Code:
WorksheetFunction.Large
value. Could somebody please edit the macro so that if it causes an error due to too few values, that it will then break out of the code instead of keep running? The ideal situation would be that it outputs any values it finds, and skips past and carries on if the function errors.
 

A:Solved: Excel Macro Error

No problem - all sorted now A bit of out of the box thinking was all that was needed!
 

Read other 2 answers
RELEVANCY SCORE 70

Does anyone know the best way to setup a Macro in Excel 2007 that will work in Excel 2003 as well?

I have an Excel 2007 workbook that I am using a macro to change the "Fill Color" and "Font Color" of cells. However, I will get everything working in Excel 2007, but when I open the workook in Excel 2003 I get many debug errors.

If I change the code in Excel 2003, and then re-open in Excel 2007 I get debug errors.

There must be a way to setup teh workbook to work on both Excel 2007 & 2003.
 

Read other answers
RELEVANCY SCORE 69.6

We recently migrated from Office 2003 to Office 2010.

Just to give some background, (and I dont' know if this is relevant to this error), the Office 2003 excel did not accurately show the correct file paths where files were linked. It would show something in the C drive.

The issue I am concerned about today is this: when some users close files in 2010 (files were created in they sometimes get the error below:

'"The name ABE2, either conflicts with a valid range reference or is invalid for Excel. This name has been replaced with _ABE2"

Can someone assist me with this? I need to stop it from appearing and I am not sure how.
 

A:Solved: Excel 2010 v Excel 2003 Error Valid Range

Read other 14 answers
RELEVANCY SCORE 69.6

The following macro works perfectly on the Mac I have built it on. But when I transfer it to my server - or try to run it on a Windows machine - it returns a 400 error.

Does anybody know why?

<code>
Sub NextInvoice()
Range("K9").Value = Range("K9").Value + 1
Range("F34:K40").ClearContents
Range("F7:F11").Value = "Name/Address"
Range("K7").ClearContents
Range("F29:K30").Value = "Personal message..."
Range("G21:K21").ClearContents
End Sub
Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = Range("B3").Value
ActiveWorkbook.SaveAs ActiveWorkbook.Path + "\" + NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
ActiveWorkbook.Close SaveChanges:=True
End Sub
</code>
 

A:Solved: Problem with an excel macro 400 error

Read other 16 answers
RELEVANCY SCORE 69.6

Hi,

Every macro enabled file that I try to use on my computer gives me the same error: Runtime error 9 subscript out of range.

I get this error on files that work on other computers, including files I wrote on my computer, they don't work anymore and the all give me the same error.

Even writing a very simple macro I get this error, for example:

Sub MyInfo()
Workbooks("CropTool").Worksheets("RawData").Range("A1").Cells(2,4) = "hi"
End Sub

I have checked about 10 times to make sure that the workbook is indeed called CropTool, and the worksheet is called RawData.

This error has nothing to do with what I write in the module....

Please help.
 

A:Solved: excel 2007 macro error

Read other 7 answers
RELEVANCY SCORE 69.2

In MS Excell 2003 under Tools>Macro>Record New Macro, before when I clicked on "Record New Macro" a dialog box would appear giving me the option for "Relative Reference", that box giving me the option has now disappeared.

How do I get it back?
 

A:MS Excel 2003 Macro

If you mean the Stop Recording toolbar doesn't show up at all, then while recording ; View -- Toolbars -- Stop Recording.

If you mean the button's gone from the Stop Recording toolbar, rightclick any toolbar & select Customize. On the Toolbars tab, highlight Stop Recording and click Reset...

Rgds,
Andy
 

Read other 1 answers
RELEVANCY SCORE 69.2

HI I'm currently looking for assistance with the following.
I have one workbook with two sheets.

I would like a macro that can search text in sheet 1 cell ‘A1’ in sheet 2 ‘column A’, if there is no match I would like for it to search text in sheet 1cell ‘B1’ in sheet 2 ‘column A’ and return the value that is in sheet 2 cell ‘E1’ to sheet 1 Cell ‘F1’

Any help will be greatly appreciated.
 

A:If, then macro excel 2003

What do you want the macro to do if the first value (A1) is found in Sheet2? BTW....what you are wanting to do can probably be done using a formula instead of a macro. Is there any particular reason why you want to use a macro?

Regards,
Rollin
 

Read other 2 answers
RELEVANCY SCORE 69.2

I used the below macro, which worked perfectly the first time. After adding another Excel workbook to the default directory and running the macro, nothing happened. I expected the data to append to the existing worksheet, but it didn't. I would appreciate any help possible.

Sub ConsolidateAll()

' This macro opens all Excel files in the working (default) directory,
' one at a time, and and copies all filled rows from the first worksheet
' of each to the first worksheet in this workbook (the workbook containing
' this macro), only copying the header row 1 once.

Dim Filename As String
Dim ConsolWS As Worksheet 'The worksheet where the data are consolidated
Dim NextRow As Long 'Next available row in ConsolWS worksheet

Set ConsolWS = Worksheets(1)

NextRow = 1

'Look for all files ending with .xls or .xls + any character
'Can include entire path if desired. This example assumes working
'directory so no path specified.
Filename = Dir("*.xls*")

Do While Filename <> ""

If Filename = ThisWorkbook.Name Then GoTo SkipThis
Workbooks.Open Filename
Application.StatusBar = Filename & " added to New workbook."

'Base count of rows in each workbook on the last filled cell
'in column A
Dim LastRow As Long 'Last row in source workbook
LastRow = Range("A65536").End(xlUp).Row
If NextRow = 1 Then
'copy all rows including header (row 1)
Range(Rows(1), Rows(LastRow)).Copy Des... Read more

A:Excel 2003 Macro

would this work for you, I just posted a similar solution here

You can modify the ranges, as this requestor ( who never replied back) asked for a specific range to copy.
 

Read other 1 answers
RELEVANCY SCORE 68.8

Hi All,

I included the macro that was developed last week for this "AIR Log." However, the creator is on leave and I only know how to read and interpret...thus giving me an error that I cannot fix:
I would also like to do the following...

In Column O have a formula... =CONCATENATE(Lxx,Mxx,Nxx)
Hide columns L-N
Remove Table Style
Set font to Arial; size to 9; Make sure all text is Middle & Center Aligned.
Row 1 has a fill color: Blue, Accent 1, Darker 25%
Option Explicit

Sub oooFormatAIRLog()

ActiveWindow.ActivateNext
Sheets(1).Name = "AIRLog"
Columns("P:Q").Delete Shift:=xlToLeft
Range("Table_AIRLog").Select
ActiveWorkbook.Worksheets("AIRLog").ListObjects("Table_AIRLog"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("AIRLog").ListObjects("Table_AIRLog"). _
Sort.SortFields.Add Key:=Range("Table_AIRLog[Risk/Issue/Action Item?]") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Issue,Risk,Action Item", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("AIRLog").ListObjects("Table_AIRLog"). _
Sort.SortFields.Add Key:=Range("Table_AIRLog[Criticality]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, CustomOrder:="High,Medium,Low", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("AIRLog").ListObjects("Table_AIRLog"). _
Sort.SortFields.Add Key:=Range("Table_AIRLog[Due Date]&quo... Read more

A:Solved: Excel Macro: Run-time error '1004'

With the sheet and the charts it's a needle in a haystack.
The error messag is that you're adressing a range or sheet which is either misspelt or hidden or non existant.
You will have to go through the macro step by step.
Open the VBA editor, loop for the macro select it and press F8 so the code will be executed line by line and it will stop when the error occurs.
Check that line and see if what it addresses exists.
Trouble shooting takes time an patience.

Good luck
 

Read other 2 answers
RELEVANCY SCORE 68.8

I have attached a spreadsheet. The first tab (Setup) has buttons 1,2,3,4,5. The purpose of these buttons is to have different years investments. I have a tab (Sheet1) that is hidden in the spreadhseet. Each macro unhides, then changes about 3 formulas on the Investment Analysis Tool tab, simply changing the cell reference. Only it does't ' change. It errors out with the above error. I've never see anything like this happen! Thanks in advance for the help.
 

A:Solved: Excel: Run-time Error 1004 During Macro

Monty75, I am sorry but the spreadsheet that you posted does not have any buttons visible.
The Code is there and I have looked at and run it and the problem is that the Code is not on Sheets("Investment Analysis Tool").Select
This is a quirk of Excel, You need to put activesheet. in from of your "Range selection" like so
ActiveCell.FormulaR1C1 = "=Sheet1!R[31]C[-2]"
 

Read other 3 answers
RELEVANCY SCORE 68.4

Hi,
I'm looking for a search macro in excel that can find something and copy the entire row into another speardsheet.
I've had a google, and can't seem to find anything that lets you specify what you want on the fly.
I kinda want a google-esque search. is that possile to try and tell the macro Searchbox = item to find?
I've renamed the cell to Searchbox, to make it easier to identify, otherwise it's cell C8.
Any help will be greatly appreciated.
 

A:Search Macro for Excel 2003

The macro below should work. Just change the copy destination to reflect the correct destination workbook, sheet, and cell where the line will be copied to (I have put a comment in the code to show where to do this)
Code:
Sub FindIt()

Dim vFound As Range

On Error GoTo ErrorHandle

Set vFound = Cells.Find(What:=InputBox("Enter Term to Search For"), After:=Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not vFound Is Nothing Then

'*************************************************************
' CHANGE THE COPY DESTINATION IN THE LINE BELOW
'*************************************************************
Rows(vFound.Row).Copy Destination:= _
Workbooks("Test.xls").Sheets("Sheet2").Range("A1") 'Change Workbook Name,Sheet Name, and Destination Cell
Exit Sub
Else
MsgBox ("NOT FOUND")
Exit Sub
End If

ErrorHandle:

If Err.Number = 9 Then
MsgBox ("Please Open Destination Workbook")
Else
MsgBox (Err.Description)
End If

End Sub



Regards,
Rollin
 

Read other 3 answers
RELEVANCY SCORE 68.4

Hi
Can any one help me? I have a CSV file that’s exported, (extract attached )and I want a macro to run that deletes the row with 18 or 66 or 39 in Column B. The file is a different length each time its run.
 

A:loop macro excel 2003

Read other 15 answers
RELEVANCY SCORE 68.4

Hi all,

Been browsing through this site and theres alot of helpful people out there which is good to see. I've just joined and am hoping someone could kindly help me on this problem I have.

I've got a Excel template for a file which I want to be able to update quickly and press a comand button to send an email via Outlook that sends the worksheet (not attachment) in the message body.

I need help creating that Macro for the command button that when pressed will email a specific address.

I also need help in formatting the spreadsheet. I have attached it here as well. What I want is for column C, D, E and F to have a drop down list with the information provided. I also want it so that whenever I start a new row, the same dropdown information is available again and so on.

Is this possible?

Really really appreciate anyones help!!
 

A:Excel 2003 Macro Help needed please

Read other 6 answers
RELEVANCY SCORE 68.4

I'm designing some stuff that's a bit above my experience level, and need some help:

I'm looking for a function or perhaps a macro that takes the following info:

Item # Pallets
Carrots 3
Potatoes 4
green beans 1

etc

and return a column like this:
Pallet labels
Carrots
Carrots
Carrots
Potatoes
Potatoes
Potatoes
Potatoes
green beans

etc.

I would greatly appreciate any help you can give me on this. Thanks
 

A:Excel 2003 Function or VBA macro help

Read other 12 answers
RELEVANCY SCORE 68.4

Hi. I have a worksheet with name and date columns among others. I need to format the date cell so that if a date is typed in, it will automatically copy the information from both the name and date columns in that row to an area below. Any idea how I could do this? Would I need to do a macro, function, combination of both or should I keep dreaming? Thank you!
 

A:Excel 2003 Macro or Function or both?

First, welcome to the forum!
A VLOOKUP() formula (or two) could probably do what you want. I would have to know more about the layout of your sheet to help more.
 

Read other 3 answers
RELEVANCY SCORE 68

Hi Folks

I have an Excel 2007 .XLSM file containing the following macro that performs a Fourier analysis
Code:
Sub Macro1()
Application.Run "ATPVBAEN.XLAM!Fourier", ActiveSheet.Range("$C$1:$C$4"), ActiveSheet.Range("$E$1"), False, False
End Sub

The macro works fine when I launch the XLSM file manually. However, if I launch the file from a VB program (in Microsoft Access 2007), I get the following message:

'Cannot launch the macro ". The macro may not be available in this workbook or macros may be disabled'

The code I use to open the workbook and relevant add-ins:
Code:
Set objXL = CreateObject("Excel.application")
Set objBook = objXL.Workbooks.Open(MyPath & "Template1.xlsm")
objXL.Workbooks.Open (objXL.Application.LibraryPath & "ANALYSISATPVBAEN.XLAM")
objXL.Workbooks.Open (objXL.Application.LibraryPath & "ANALYSISANALYS32.XLL")
objXL.RegisterXLL "Analys32.xll"
I then go to the worksheet and try to manually execute macro1 but I get the above error message. Note that:
"enable all macros" is set in Developer/Macro Security
"trust Access to the VBA etc." is turned on. in in Developer/Macro Security
I tried placing the macro in my PERSONAL.XLSB file to no avail (not sure this was worth it, but I found a suggestion to that effect on another forum)
I tried executing macro1 from the VBA program as follows but got the same error:
Cod... Read more

A:Solved: Macro Error when launching Excel as OLE Automation Object

found the answer on:
http://support.microsoft.com/kb/270844

I had omitted the auto open macro. Statement:

objXL.Workbooks("atpvbaen.xlam").RunAutoMacros 1
 

Read other 1 answers
RELEVANCY SCORE 68

Excell 2007, VBA Userform w/Listbox populated w/sheet range rowsource option. Quite simply I would like to execute specific macro's based on the selection in the listbox by the user. I have the userform with the listbox and a command button in place I just need them to select the option and press the command button and it runs a macro assigned to the selection. Even if I could get it to put a number in a cell based on the selection, I could use an If statment to run the specified macro. Can anyone help?
 

A:Solved: VBA Userform listbox rowsource macro execution

The list box "Linked Cell" Property will put the selection in a Cell for you. Does that help at all?
 

Read other 2 answers
RELEVANCY SCORE 67.6

Recently our Office Suite was upgraded from 2000 to 2003.

I had a macro (that you helped with) working well in the old version to upon save take a field from a worksheet 'lists' and write that field into the header and footer, and then update the last saved timestamp....

Now it will not write to the header and footer at all, and will not update the time stamp for last saved.

Here is the code from the worksheet 'lists':
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Or 2 Then
On Error Resume Next

Application.DisplayAlerts = False
'ActiveSheet.protect UserInterfaceOnly:=True
Range("A2").Select
Selection.TextToColumns Destination:=Worksheets("lists").Range("A3"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Application.DisplayAlerts = True
End If

End Sub
(The 'lists' code as far as I know is only there to set the values to be used in the header, the workbook code is the one that takes those values and writes them to the header/footer)


Here is the workbook code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)

Dim filename, rdims, name, fs As String
Worksheets("lists").Range("A6").Value = fs

Call SetSaveLoc
If Worksheets("lists"... Read more

A:Excel 2003 Header/Footer Macro

Read other 12 answers
RELEVANCY SCORE 67.6

Hi, I'm newbie here and an absolute beginner, I'm attempting to put together an excel (2003) spreadsheet to help me pull KPI's together. I'm running XP. In short I've created a worksheet which I want my 6 engineers individually to fill in at accounting period end. The cells are highlighted in yellow on the attached file on tabs eng 1- eng 6.I would like it if they could only fill in these cells and not be able to edit others.I've created a macro which I run at the beginning of the next accounting period which rolls round so that the end column (column O) is always the current period. This macro appears to work OK.There is a further worksheet &quot;project&quot; which is a clone of eng1 - eng6 but which collates the info from the engineers worksheets and either sums or averages to output, again I created a macro to roll round the reporting columns but the data thens screws up the inputs and I lose the formulae.It is essential that the current period and YTD remain static in columns O & P as the company has another programme which picks up data from a fixed point.I'm sure there is a simple solution to this problem, but with my limited knowledge can't fathom out, any help and assistance would be appreciatedL
How do you attach a file to this message???
 

A:Macro help - in Excel 2003 Assistance Required

Read other 7 answers
RELEVANCY SCORE 67.6

Hello,
I have the following bit of code as part of an Excel macro:

'In G1, enter formula to apply 6 character French code for AUT vehicles
ActiveWindow.ScrollColumn = 1
Application.Goto Reference:="R1C7"
Range("G1").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(FIND(""AUTFORD"",RC[-6])),""FORD00"",IF(ISNUMBER(FIND(""AUTVAUX"",RC[-6])),""VAUXHA"",IF(ISNUMBER(FIND(""VNVF1"",RC[-6])),""NISSAN"",IF(ISNUMBER(FIND(""VF1"",RC[-6])),""RENAUL"",IF(ISBLANK(RC[-6]),"""",""MISC00"")))))"
Range("G1").Select

I'd like to be able to add more IFs to it, but there are already 7 conditions in there, which I believe is the max number of nested IFs allowed.
Specifically, at present, I want to add:

IF(ISNUMBER(FIND(""AUTNIS"",RC[-6])),""NISSAN""

But I may need to add more in the future.

Can someone help me write this in a better way? I'm no VB genius...
 

A:Excel 2003 macro - rewrite a little bit of VB Code

Read other 16 answers
RELEVANCY SCORE 67.6

My clients have a macro that automatically generates an email .. however after our recent upgrade to Office 2003 the macro is producing an error on the send mail portion.

Here is the code:

Sub Send_Email()

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim cell As Range
Dim Email1 As String
Dim Email2 As String
Dim Email3 As String
Dim Email4 As String
Dim Email5 As String
Email1 = Range("emailto1")
Email2 = Range("emailto2")
Email3 = Range("emailto3")
Email4 = Range("emailto4")
Email5 = Range("emailto5")
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = Email1 & ";" & Email2 & ";" & Email3 & ";" & Email4 & ";" & Email5
.Subject = "Deal List Update"
.Body = "A transaction requiring special approvals has been entered in the deal list." & _
vbCrLf & vbCrLf & "Trade Date: " & Range("trade_date") & vbCrLf & "Counterparty: " _
& Range("counterparty") & vbCrLf & "Deal Description: " & Range("description")
.Send
End With
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
End Sub

I am hoping it is a simple thing ... really appreciate any assistance.
&n... Read more

A:Excel macro not working after upgrade to 2003

Hi there, welcome to the board!

A couple reasons which may be of issue to you:

1) You will probably need another reference to Outlook 11.0 Object Model (version 2000 was 9.0), or use Late Binding (you are using Early)
2) Your specified ranges are not referenced via worksheet or workbook

So, update the workbook and worksheet in this code and see if it works for you...
Code:
Sub Send_Email()

Dim OutApp As Object ' Outlook.Application
Dim OutMail As Object ' Outlook.MailItem
Dim wb As Workbook, ws As Worksheet
Dim Email1$, Email2$, Email3$, Email4$, Email5$
'// Alter these lines to suit...
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
'//
Email1 = Range("emailto1")
Email2 = Range("emailto2")
Email3 = Range("emailto3")
Email4 = Range("emailto4")
Email5 = Range("emailto5")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0) '(olMailItem)
With OutMail
.To = Email1 & ";" & Email2 & ";" & Email3 & ";" & Email4 & ";" & Email5
.Subject = "Deal List Update"
.Body = "A transaction requiring special approvals has been entered in the deal list." & _
vbCrLf & vbCrLf & "Trade Date: " & ws.Range("trade_date") & vbCrLf & "... Read more

Read other 2 answers
RELEVANCY SCORE 66.8

I have 2 systems, Windows XP desktop systems Dell GX520 that will not retain their Excel Macro Securiy Settings. I want to change the macro security setting from Low to Medium to enable the popup msg to disable Macros when needed. When I select the radio button for Medium and click OK then go right back to settings, its reverted back to Low. I have tried a Repair of MS Office 2003 and even a Uninstall/Reinstall to no avail. Any advice on what to try next?

Thanks
 

Read other answers
RELEVANCY SCORE 66.8

Hello

I need to do the following in VBA:

If cell in column C contains the value GBP, change cell S from that row from 13 to 23
or
If a cell column C contains the value USD change cell S from that row from 13 to 33

exception cell: C1 --> contains the title of the column

How do I do this?
 

A:Excel 2003 replace macro based on value in other cell

Read other 6 answers
RELEVANCY SCORE 66

Good morning All!

I hope you guys can help me. All of the threads I've been looking at on here seem very informative but I'm having a bit of difficulty getting my idea to work in Excel 2003...

I want to creat a macro (button) that a user can click on. It would pop up a window that says "Enter Customer Name", at which point the user would do exactly that without it being case sensitive (hopefully). The macro would then search through the entire workbook for all customers by that name, add the amounts of all their purchases, invoices, etc., and post them into the cells I have designated.

Can something like this be done in Excel? I looked into using Access but it seems to me that we have too many unique items for that to be useful.

Thanks!
 

A:Excel 2003 Macro Help Needed - Search and Post Results

Read other 7 answers
RELEVANCY SCORE 66

Hallo again! How are you keeping?

I have an Excel 2003 spreadsheet with data in columns A thru J and no header row. This will always be the same.
At present, I perform a Find & Replace on the data, to convert any commas into tildes. One of the columns sometimes contains address info, and as such can contain commas that need to be retained.

I then save the file as a *.csv (comma delimited) file.
Then I drag the csv file into another program (PSPad) which allows me to Find & Replace the commas (created by saving as a csv file) with little sqaures (by pressing Alt + 030).
I then convert any tildes back to commas and save the result as a text file which we can drop into our system to update a massive database.

I'm wondering if I really need this stage of converting to a csv in the middle - I'm sure the find & replace stuff can be done in VB code, and I can export directly from Excel into .txt format. I could do record a macro of myself doing it manually, but I'm not sure how to refer to the wee squares or export a .txt version of the file - i.e. would I just save as a *.txt (Text tab delimited) file or something?

Any help with such code would be greatly appreciated!
 

A:Excel 2003 macro code converting comma delimiters

Read other 9 answers