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?
View 1 RepliesI find the lack of contrasting colors in the "theme" portion of the color palette useless. For instance--- I TYPICALLY do not need 5 shades of similar blue that I cannot visually differentiate within the color pallette of my working area.
I also need colors that more visually contrast one another and pop out (closer to the row of standard colors that is given or those of prior versions of excel).
Is there a way to add a custom row of colors with a custom title in the color pallette like the "theme" colors have or the "Standard" or the "Recent Colors" ?
If that can't be done...is anyone privy to the syntax for changing the Recent Colors area?
I'd like to add for instance the below three colors to the default recent colors of each new workbook...
Selection.Interior.ColorIndex = 4 '(Bright Green)
Selection.Interior.ColorIndex = 7 '(Bright Magenta)
Selection.Interior.ColorIndex = 37 '(Bright Blue)
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 _
[Code] ......
I have a list of numbers and I have corresponding text files which I named by using these numbers as reference
is there a possible macro to delete those rows which have corresponding text files by checking in a specific folder if that file name exists
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?
View 5 Replies View RelatedVB Code to delete a file. I have the following code that creates a file.
View 4 Replies View RelatedI 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?
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 posted already the problem to delete the code when sending a sheet via email and I have found the solution to the problem.
I tried to do the same when saving the file to specific folder, but i am facing problem.
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.
Is there anyway in which I can open a spreadsheet and then delete any macros which exist in that file with VBA?
For Example
Workbooks.Open "\sysdevwebwCorpAcctSuiteReportsNetProfit.xls"
''Delete Any Existing Macros Code''
Activeworkbook.Save
Activeworkbook.Close
we work in a group on different excel worksheets. now we want to combine this sheets and get the following linkages in the files:
= 'I:[versuch_joe.xls]Koeffizient'!C156+'I:[versuch_joe.xls]Koeffizient'!C157*B25+'I:[versuch_joe.xls]Koeffizient'!C158*(LN('I:[versuch_joe.xls]Daten'!Y17)-LN('I:[versuch_joe.xls]Daten'!Y16))+'I:[versuch_joe.xls]Koeffizient'!C159*'I:[versuch_joe.xls]Daten'!R17+'I:[versuch_joe.xls]Koeffizient'!C160*('I:[versuch_joe.xls]Daten'!AE16+'I:[versuch_joe.xls]Daten'!AE15)
how can I delete all "[versuch_joe.xls]" that are not needed anymore? i got hundreds of them in my file.
I use the Append command to write a line to a text file. I have about 3 excel files appending data to the same text file.
If someone were to write a line in error I would like to have the ability to delete it.
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).
View 6 Replies View RelatedI have a CSV file with the following columns:
column1, Column2, Column3
A, B, "C,D"
I need to write a macro to :
1. Delete column2
2. Save the CSV file. At the time of saving I need to supress all default messages.
I have a large *.tab file with around 450,000 records. I opened the file in excel and then filtered two columns where there are values equal to 0.
I then highlight all the rows and try to delete them, but I receive the following error popup box:
"Microsoft Excel cannot create or use the data range reference because it is too complex."
How can I delete all these filtered = 0 rows without getting this error??
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.
Sub findvalues()
Dim strText As String
strText = GetFileContent("C:currentday.gdbm")
cardstring = "GOOD DATA"
responsePosition = InStr(1, strText, cardstring, vbTextCompare)
MsgBox (responsePosition)
End Sub
I have some excel files that contain data when I'VE finished entering data >> I saved it when I open the file >>> I FIND THE DATA INTACT .. NO PROBLEM BUT I FIND ALOT OF EMPTY CELLS THAT ARE USELESS I WANT TO DELETE THESE EXTRA EMPTY CELLS... SO WHEN I OPEN THE FILE I CAN FIND ONLY the data .
I have attached a file as an example
I recorded a Macro to open a workbook, copy and paste data from one excel workbook to another, and close the workbook which was opened. Everything works fine except:
because of the amount of data that I am copying, I get a message box saying "There is a large amount of information on the Clipboard. Do you want to be able to paste this information into another prgoram later?" with a Yes/No button.
So now I have to click the "No" button before my macro closes the excel file. Is there a simple line of code that will by-pass this?
I am assuming it has to do with the following:
Windows("Book1.xls").Activate
ActiveWindow.Close , savechanges:=False
I want to delete some unwanted rows on closing my excel file. the blank rows are between set of datas. so it has to check all the blank rows, delete it until the last one. example
data
blank rows
data
blank rows
data
blank rows
data
I read in a txt file with the code below. There's some kind of special character in the last 3 lines of the input file that makes the macro crash. I don't need anything in those 3 rows. How can I delete them before my Do Until loop?
-----
Sub Mytxt()
Dim Mytxt As String
Mytxt = Application.GetOpenFilename(FileFilter:="EXCEL files (*.txt),*.txt", Title:="Open the Report file you need")
If Mytxt = "" Then Exit Sub
Workbooks.Open Filename:=Mytxt
Open Mytxt For Input As #1
i = 1
Do Until (EOF(1) = True)
Line Input #1, tempstr
Cells(i, 1) = Mid(tempstr, 23, 5)
Cells(i, 2) = Mid(tempstr, 25, 1)
Cells(i, 3) = Mid(tempstr, 33, 3)
i = i + 1
Loop
Close 1
End Sub
How can I delete characters unallowed in file names in cell text all in one go instead of below long macro. (i.e. can you minimize the below vba)
These characters that I wanna delete
"/", "", ":", "*", "?", "< ", ">", "|"
Code:
Range("A1").Select
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
[Code].....
I have around 50 text files with similar design per attached file. I need to import the text files with criteria below:-
1. include file name
2. let user choose the folder
3. exclude data from "work in process summary" to "work in process cost totals"
4. only have one title in the excel files which all text files is combined "Item, Line ....."
5. If the text files do not have title like "Item, Line, ..." do not import
Is it possible to have all criteria listed above by running a macro?
A.txt
VBA coding for automatically saving an excel file as another file using the current date as part of the file name together with "32ga" as a constant add-in. I also what this macro to run at a particular time of the day let say 00:20hrs. The excel file i want to save as is always open . It has data that changes every 24-hrs.
View 1 Replies View RelatedI have a template file for ordering trafolyte and steel plates. I have added macros to this template file. The existing macros do the following (shortly described):
Macro 1: clears order
Macro 2: update order date + send a read only file to the supplier of plates + save a read only copy of the file into one of three folders acc to info in one of the cells.
It's the Macro 2 I want to edit.
I want to add a "function" which copy a selection of data.column A to N from row 12 to 548 but only the rows where there is a value in column A.
Row 1 to 11 includes standard order info and Macro buttons.
Row 11 includes the heading for order data.
For everytime someone click on the Macro 2 button in the template file, I want the selection to be paste into the first "available" row in a "Total list" file.
The "Total list" file may have to be open (or a function to open, paste selection and then close the "Total list" file may be added)
File and Folder info:
To simplify suggestions, the following file and path info can be used (I can change to the correct later):
Template file name: template_order.xlsm
Template file location: \servershared emplate
Total list file name: total_list.xlsx
Total list file location: \servershared otal
Selection info:
The template file exists of a "general order info area" A1:N10
The column heading for order data is located at A11:N11
The selection to be copied is A12:N550 - But only rows where column A includes data (not empty).
(If the spesific order consists of 14 plates than there will be item no 1-14 in column A and I then I want to copy A12:N25 (row 25 will be item 14).
When I try to use record macro it looks like it only records what's happening in the template file - It doesn't record the pasting in the total list.
I would like a macro to find the columns named "apple" and "peach" and delete them. These would always be in row 1 but would always be in different column letters which is why I want the macro to simply find these columns by their name and not by their column letter.
And yes, I do mean the entire column altogether, shifting entire columns to the left. Wipe it off the face of the earth
1. Remove J,K,N,A Columns,
2. In the last O (TIMESTAMP) column, the date is 14-Jul-09 format change it to 07/14/2009 (this format mm/dd/yyy
3.Filter L column (VAL_INLAKH) Remove all rows from whole sheet which has 0 value
4. Column C (EXPIRY_DT) date format is 24-Sep-09 , "dd-Sep-09" change to "Sep" only
5.Merge Column B,C,D,E (SYMBOL.EXPIRY_DT.STRIKE_PR.OPTION_TYP
respectively )
I have an formula if statement that returns "deletethisrow" if the test is true.
For every occurence of "deletethisrow" I want to delete the row. The number instances will be variable each time I run the file. So maybe it will find that string, maybe it will find 10 instances. I want to do some kind of loop that won't error out when it cannot find "deletethisrow", but will delete the rows for each instance where it does find this string.
I know it was verbose, but if I just do a loop for a fixed number of loops it will error out if it runs out of rows to delete.
Is there a limit on the number of rows and columns that can be deleted in a macro on Excel 2003? I am trying to create a macro that, amoung other things, delets 1119 rows and 54 columns. If I delete the columns first, the rows will not delete. If I delete the columns first, the rows will not delete.
View 12 Replies View Related