I'm using this macro to import txt files into excel.
Code:
Sub Bring_Articles_Into_The_File()
Dim sPath As String
Dim iRow As Long
Dim strString As String
[Code]....
Id like to replace the folder URL string ("C:Articles") and refer it to the cell "E5" instead. (So I don't have to open the code and change the folder every time)
I have the following codes in which I am to refer a file and folder to do some further processes.
myfilename = "C:Documents and settingsacsMy DocumentsEntrymyfile1.xls"
folderPath = "C:Documents and settingsacsMy DocumentsEntry"
I want to enter these two paths in a sheet in my excel report file (For example, I am running the report from Report1.xls, in which there is a sheet name "Filepaths". In this,
in B5, I would like to enter the Filepath (B5 named as "FILEPATH")
in B6, I would like to enter the Folderpath (B6 named as "FOLDERPATH")
So that, if I am copying the folder to another area, I no need to change the code every time in the VBA editor. I can do changes in these cells and it will be taken as the path to run the code further.
I'm trying to get excel to check a cell against a table of numbers and if it finds any of them to replace it with the correct number.
Basically if the cell contains any of the numbers in the "Do Not Use" column then it should display the corresponding entry from the "Replace With" column?
see attached spreadsheet. Cells in orange are where I want the formula to go...
Test2.xls
Is there a way to find and replace the values from a closed workbooks of a folder.
say i have some 15 files in a folder c:/test
I want to find all "Ltd" and replaceAll with Limited
and find all "Co" and replaceAll with "Company" etc (some 20 different values to be found and to be replaced) if this is in a single file i can easily record a macro to this job, i am stuck for doing 15 files at one shot.
I'm looking to identify a keyword in a string and then replace that string with just the keyword.
The string is a product description. The keyword is a product group. The keyword can showup in any position in the string.
I can't post the actual data do to confidentiality requirements. but here's an example.
description
qty
price
keywords
code
green grapes bunch
1
2.5
[Code] .......
Split From Run VBA Macro From Another Procedure. will it autosave and open all the archives in the file i specify and loop?
View 3 Replies View RelatedI need a code which replaces the given letter or sign combination at the first or at the last position of a string. User should be able to chose from which end the replacement should be done, what should be replaced and in which column. Maybe throug a messagebox!
For example (1):
Column B:
[trn][m1][c blue]$ [/c] = Dollar. [/m][m2][c green]Currency of USA[/c][/m][/trn]
[trn][m1][c blue]€ [/c] = Euro. [/m][m2][c green]Currency of EU contries[/c][/m][/trn]
Result of replacing the first "[/c]" with "" should be:
[trn][m1][c blue]$ = Dollar. [/m][m2][c green]Currency of USA[/c][/m][/trn]
[trn][m1][c blue]€ = Euro. [/m][m2][c green]Currency of EU contries[/c][/m][/trn]
Result of replacing the last "[/c]" with "" should be:
[trn][m1][c blue]$ [/c] = Dollar. [/m][m2][c green]Currency of USA[/m][/trn]
[trn][m1][c blue]€ [/c] = Euro. [/m][m2][c green]Currency of EU contries[/m][/trn]
......................................
I've got a host of files within a host of directories, e.g:
c:ContractsJim BobJim Bob Site.xls
c:ContractsJane JonesJane Jones Place.xls
c:ContractsJeremy HillsHills House Lvl 1.xls
I'm working in VBA to try to extract the site name from the file string. Unfortunately there is no other reliable location where I can find an accurate name of the site, so it needs to be taken from the second subdirectory. So I'm using the following code to get the file location:
Sub FilePicker(fileToOpen As String)
ChDrive "C:"
ChDir "C:Contracts"
fileToOpen = Application. GetOpenFilename(FileFilter:="PPM Files (*.xls),_
*.xls", Title:="Select a PPM Scope File", MultiSelect:=False)
End Sub
This returns a string along the lines of "c:ContractsJeremy HillsHills House Lvl 1.xls". From this string, I need to isolate the string "Jeremy Hills".
I have alot of project folders on my harddrive.
All in format: I:/12345-costumer-projectname/
The five digits are unique for each project.
I make calculations for these projects using an excel file. In this excel I also type the projectnumber (cell J2)
Now i would like to make a button. When pressed, it checks the projectnumber cell J2, looksup the corresponding folder and saves the excelfile in PDF format in this folder.
I have found macro to find files in folders, but none which do the above.
In one of my worsheets in the excel document, I have data as shown below:
Name Description Minimum Values Maximum Values
ABC test desc {0.0, 0.0, 0.0} {1.0, 1.0, 1.0}
DEF test desc {{0.0, 0.0, 0.0},{0.0,0.0,0.0}} {{1.0, 1.0, 1.0}, {1.0, 1.0, 1.0}}
Basically for a 1D array, the minimum and maximum values are within one set of brackets, whereas for 2D array (as shown in the second row), there would be nested brackets with comma after every closing bracket being a row separator.
My requirement is to write a macro to replace the minimum and maximum values in every row of the worksheet (I do not know the exact number of rows as it could vary) with just one value instead of repeated values depending on the size of the array. In other words, I am looking at the below output:
Name Description Minimum Values Maximum Values
ABC test desc 0.0 1.0
DEF test desc 0.0 1.0
Replace characters in a string. I have this macro:
View 2 Replies View RelatedI need to replace the second word in a cell with another,
eg in cell AI1 I have Black Box.
Which formula would retain the first word, before the space and replace it with another, eg
How to extract out the (M) from a string and convert (M) in that string to another value? Example: I want to extract out the (M) from a string and convert the (M) to "Medium". The data is: Burger (M) with french fries. How to exract (M) from the data and convert the value (M) to "Medium"?
View 5 Replies View RelatedI'm working with some data exported from a database. Unfortunately, when data is exported to excel, cells that should be completely blank (i.e. ISBLANK formula would return TRUE) actually contain empty strings.
What is the fastest way to replace the empty string with a true null?
I've been given the assignment to replace an old company name with the new one in an excessive amount of excel files. All the excel files seem to be some kinds of forms with fancy buttons and such. I've been trying to research this quite a bit but only found some shady programs which I'm not installing on company computers so I decided to write a batch script to try and accomplish this, if you have any other ways to do this do let me know. So far I've only got a basic skeleton of the batch script, like looping through all the excel files in a directory and then loop through all the worksheets within the file. Here's how it looks
[Code] .....
I just want some confirmation that this would actually work and how to replace all occurrences of a string in a workspace.
I have 4 columns in which is text combined with numbers (Lorem ipsum dolor sit amet t-shirt LPW01-B consectetur adipiscing.) I need to search every column and cells in them for a word/string which is written in R2 and replace the word in every cell by the word in S2
So for example, in R2 is "t-shirt" and in S2 is "potato"
The program finds the entry: "Lorem ipsum dolor sit amet t-shirt LPW01-B consectetur adipiscing." and replace it with "Lorem ipsum dolor sit amet potato LPW01-B consectetur adipiscing."
P.S.: I am having a trouble with uploading the file directy here, so here's a link: [URL]
How do you replace a string in a Formula within a cell or several cells?
For example:
=SUM(Sales[Monthly])
find and replace Monthly with Quarterly
provide a vba script to replace characters from a string.
I have the following script which has the cell address as the string and want to remove the dollar signs.
Code:
Dim C1 as string
C1 = ActiveCell.Address
With C1
.Replace "$", "", xlPart
End With
I created a vba procedure for a particular job but within that procedure I need to perform another task. I've been trying to come up with a regular expression but to no avail. I'm looking to loop through a range of cells for any string where there isn't a space before and after a hyphen. When occurance is matched, then replace with spaces. One exception to the rule would be if data is contained within parentheses, then ignore. There could be zero occurances in string to many.
ie.
abc - def ==> ok, s/b skipped
abc - def (nnn-mmmm ooo) ==> ok, s/b skipped
abc-def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc- def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc -def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc-def ==> abc - def
abc- def ==> abc - def
abc -def ==> abc - def
I am looking for a piece of code and can locate the range of a specified string, and replace it with something else. For example, I need to find string "AA" and replace that with "BB", can this be achieved with VBA code?
View 5 Replies View RelatedI am trying to replace all spaces in a string with an underscore.
I'll be applying a loop to cycle through the whole column in that file. Should be pretty easy..
I have a VBA find and replace question
I have a spreadsheet with cognitive tests (approx 300) that have been given names like
w3_th_e
w4_th_e
dkefs_TMT1_e
pegboard_eh_e
What I need is a VBA macro that replaces the _e only at the end of the string to _ss for those strings that begins with w3_, w4_ and DKEFS_ (e.g. from w3_th_e to w3_th_ss)
Likewise I want to replace only the _e at the end of the string on all other names (e.g. pegboard_eh_e) with _t (e.g. from pegboard_eh_e to pegboard_eh_t) Is this possible?
I have Userform1, Textbox1, Textbox2 and CommandButton1. Textbox1 is being manually inputted by users.
I would like that when I click Commandbutton1, that Textbox2 will be populated by whatever value was entered in Textbox1, except that the any string that matches any of the listed pattern below:
009???
017???
088???
078???
003???
663???
will be excluded. "?" here represent any 1 character.
So for example, if the user inputted "AA-90-088100ABC" in Textbox1, when CommandButton1 is clicked, Textbox2 should have the value:
"AA-90-ABC"
I am trying to be able to input a value in column A and the string of text in column B will be affected by the value that I put in Column A. And i want to be able to do this with multiple rows with multiple values. Example:
My string of text in column B remains the same until the value of Column A changes. The find/replace will overwrite the "" in the string. This is my string of text in Column B: "^cCHT;all;;t;g;F1;F1;;all;;t;g;F2;F2;;all;;"
A1 value = "ABC"
Resulting Text in B1 = "^cCHT;all;;t;g;F1;F1ABC;;all;;t;g;F2;F2ABC;;all;;"
A2 value = "XYZ"
Resulting Text in B2 = "^cCHT;all;;t;g;F1;F1XYZ;;all;;t;g;F2;F2XYZ;;all;;"
I know that I can accomplish this by creating a button but I was wondering if there is a more automated way like a formula in a cell or something.
I have a text such as:
fdfs&s_kwcid
sfsd&s_kwcid=dfsads
&dfsdaf&dsafdsf&s_kwcid=
fdsf&dasfsdf&s_kwcid=dsfasfsdf
I want to do is search for "&s_kwcid" or anything containing "&s_kwcid" and replace it with blank. So above would then read:
fdfs
sfsd
&dfsdaf&dsafdsf
fdsf&dasfsdf
I tried =IF(SUM(COUNTIF(E2,{"&s_kwcid*"}))=1,E2,"") but it didn't work. I tried auto filtering, and using contains &s_kwcid* but it didn't filter out results, but find &s_kwcid did find results for text anywhere in string, so I know the problem is there.
I have a query in a text file.
Select * from
table1 where
a = %d
and b in ('%d','%d')
and values in excel:
value1
value2
value3
I want to open the file and replace the first %d with value1 and second %d with value2 and third %d with value3.
So finally my output should be:
Select * from
table1 where
a = value1
and b in ('value2','value3')
I'm looking for some code to loop through some rows of text and then if the text contains / replace that with a space. My code is below:
Code:
do until intdemandrow = 1
If InStr(Range(cells(intdemandrow, 1).Value, "/") Then
replace(cells(intdemandrow, 1).value, "/", " ")
intdemandrow = intdemandrow - 1
end if
loop
I am looking to replace the space in between numbers and letters in a text string. The number of entries varies with each row.
Example of the entries in the column I need to reformat. Each entry is in a new row.
Code:
10 SSS
24 MNL
17 HLG 18 LTN
17 CBG 17 HLG 15 HIL 15 thn 22 ALV
17 ELP 34 HLG 15 HIL18 THN 10 TTL
What I am looking to achieve:
Code:
10-SSS
24-MNL
17-HLG 18-LTN
17-CBG 17-HLG 15-HIL 15-thn 22-ALV
17-ELP 34-HLG 15-HIL 18-THN 10-TTL
I have a requirement to search workbooks in a particular folder with specific string in file name. For example, let us assume I need to find a file which contains the name 'RR' in it. The position of 'RR' will vary with files i.e. 'RR' might be present either in the beginning, middle or at the end of file name. All I wanted is to search for file with 'RR' and do some activity and close the file and then goto next file. Similarly, the next search has to be performed with the files containing the name 'BB' in it.
View 1 Replies View RelatedI work for a UK charity and have a list of funders in an Excel 2007 spreadsheet.
One of the columns refers to the date on which a new application for funding can be made to that particular funder.
In many cases new applications for funding can't be made for 1 or more years since the last application - sometimes as many as 5 years later. How to get a cell to refer to the date that it contains.
For example, say I have in cell A1 "The Acme Funding Organisation" and in cell B1 (i.e. the "Reapply when?" column) a date of 01/04/2013 (British date format, i.e. 1 April 2013) then what I want Excel to do is to look at the date in cell B1 and if that date has been reached to highlight the cell red. That way I'll know that the reapply date has been reached & that a new application can be made.
