I have created an AddIn with code for menu buttons. When I delete the .xlb file it is replace with one about 12 KB. After some use it starts growing. One station had it to 1 meg. Could this increasing file cause problems for the code? If so, is there a way to keep it from growing?
I have a spreadsheet where I want to require certain fields to be completed then I want to have that file auto emailed. I have learned that I do need to have the file saved before sending otherwise the data will not appear in the email, so with this I want to have the file temporarily saved emailed then the temp file deleted.
Here is the code I have so far but it errors on the blue text, I did change the TempFileName from = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") to = [C16] & "_" & [B6] & "_" & [D6]
Private Sub CommandButton1_Click() If Range("B6").Value = "" Or _ Range("d6").Value = "" Or _ Range("f6").Value = "" Or _ Range("E9").Value = "" Or _
I was given a file to edit. This file was created with a theme "Classic Office 2" using Arial fonts. I cannot copy and insert new lines into the file. How do I edit the theme or delete this theme in order to get an editable file?
I am writing a macro that copies a pdf from a temporary directory to a permanent directory. After the copy is complete, I want to delete the original file. Looking in Visual Basic Help, it appears that I need to create a FileSystemObject, but I have no idea what that means or how to do it. sDirectory is a string variable of the path of the file and sBatch is a string variable of the name of file. This isn't working.
Set fs = CreateObject("Scripting.FileSystemObject") sDeleteFile = (sDirectory & sBatch)
Set a = fs.CreateTextFile(sDeleteFile, True) a.DeleteFile.sDeleteFile
I have created a macro that saves a file then emails it out through lotus notes.. The problem is that how to i kill/delete the file that i have just made without it prompting me whether i want to or not? Or is there a way of only saving the file temporarily untill the macro has finishing running then it deletes the temporary file?
Where do i find the numbering add ins for Excel 2000? I receive a message every time I open a document that says: I must load them for optimal numbering and toolbar behavior. I have looked in the add ins by going to add remove program, selecting Microsoft office, then change, then excel. under the add ins there is nothing that says "numbering". I have also looke on line for a down load at the Microsoft web site.
I'm writing a macro in excel that edits a text file runs another program that uses this text file as its input and then stores the results. Perameters are then changed in the input file and it is then repeted over and over again. One of the parts I am stuck on is I need to delete the last 5 lines in the input file called INPfile.txt. See below:............
This section is always at the end of the file, is 5 lines long and always starts with [DEMANDS] and always ends with [END].
I have a macro at work that shows which files are duplicates (same name plus file size) it then produces a list of this with 3 fields file path(excluding file), file name and ext, and size. it produces a duplicate of the file for example:
file a file a file b file b
i would like a macro to delete just 1 of theese (as deleteing both would be bad!! haha) and have no idea how to start this. other than going through all 1679 files that have a duplicate.
I have a huge data file. I would like to have excel automatically delete all rows with the value of 7 in column b. Can I do this without manually selecting all of the rows (I can sort by that value, but there are 120,000 rows).
I am trying to read a text file into a variable with VBA. The files I try to read usually have a bunch of unrecognized characters in them and I can't seem to read through them. I am looking for some code that will delete all unrecognized characters until it finds a string I specify.
Example of file
ΚW ¾J Y D Y ³F Y ZE Y ¨B Z ˜6 Z GOOD DATA
My code works fine if I manually delete all this stuff before GOOD DATA, but wont work if I dont. My "responseposition" is always 0 unless I delete all the nonsense.
Last monday I clicked on my quick launch icon for my time card, which is in excel. It opened up, but I got an error message saying that excel had an error, send report or don't send report. Closed everthing out and clicked on the icon again, but this time excel oppend but the file did not. I get just a blank (don't know what to call it) spreadsheet. There are no cells to enter anything in. I do get the "File, Edit, View, and so on" at the top. I can click on File than Open and browes for the file and open it that way, but I can't open any Excel file by double clicking it in explorer.
I coppied this code from: http://www.contextures.com/xlToolbar02.html. Modified it to show menus but how to add sub menus? (This is the only code I found that works on Excel 2000, so far).
In using Autofilter on a Date column in Excel 2007 compatibility mode (Vista) and in Excel 2000 (XP), I receive different selection criteria (see pictures attached). In Excel 2007, I can select by year, by month. In Excel 2000, I am presented with all dates available in the filtered column.
I realize I can do a custom filter in Excel 2000 with a range of dates to select only the month I wish to query but this is cumbersome for the user. Is there VBA code available that will allow the same or similar selection criteria in Excel 2000 as is available in Excel 2007?
I have a total in F16 that i need to find an average of.
The range is set from f4 - f15 (12 months) and need to find the running average per month. but as we only have done 5 months of the year so far that is the only average required (F16/5).
I need this to count at the end of june (F16/6) basically not counting any zero months (jul, aug, sept etc until the end of each)
I have made a couple of Macros in VBA for 2007 that resize re-font etc a graph, and another one that exports te graph as an image. I want to use these macros on a few other machines but they are running older versions of Excel and i get an error when i try and use the macros.
Would someone mind taking a look and showing me how to adapt them to work in excel 2000/2003
If ActiveChart.HasLegend Then ActiveChart.Legend.Font.Name = "Verdana" ActiveChart.Legend.Font.Size = 16 End If..........................................
I have built a nice employee time tracking device in Excel 2000. It is pretty self explanitory ("IN" time, "OUT" time, total time, etc). What I am having problems with is the VB code that is behind the "OUT" time. In essence, once an "OUT" time is entered, the ms error message box is overwritten to ask what type of break the person took (No Lunch, 1/2 hour, 1 hour) and takes the response and implements it into the Total hours calculation. Works great in 2000, but the users are getting problems in 97. i don't have 97 and can't seem to trouble shoot it. Could some guru with 97 have a look at this and see what exactly I am missing in 97.
The code is a manipulation of Ken Getz's brilliance by Stratos. Which can be viewed at the following: http://groups.google.com/groups?hl=e....warwick.ac.uk
Is there a way to set a tabing order in excel 2000? If so where do I find it or how do I set it up. If there isn't a way might there be a way once i create the permissions in 2003 to revert it back to 2000 and keep the same permissions.
I have an activity recording tool created in Excel 2003 which works perfectly (ish) However when some of my colleagues use it on machines running Excel 2000 it falls over at the following definition
Dim dlgFile As FileDialog
this is part of the following sub routine
Sub doCopy() Application.ScreenUpdating = False Call Archive Dim dlgFile As FileDialog Dim rv As Long Dim sCreated As String Dim sClosed As String Dim wsThis As Worksheet Dim wbkAOM As Workbook Dim sThisCol As String Dim aAOMCol As String Dim strDate As String Dim wsCore As Worksheet Dim wsDiverted As Worksheet Dim iRow As Integer Set wsThis = Application. ActiveWorkbook.ActiveSheet Set dlgFile = Application.FileDialog(msoFileDialogFilePicker) dlgFile.Title = "Select AOM Sheet" dlgFile.InitialFileName = "*.xls" rv = dlgFile.Show.......................