I have spreadsheet application which have a ton of sheets and macro into it, and i work on devlop and program it , and add new feature and codes
i wana Module_Macro to find and replace lines of vba code and replace it with lines of codes .
i know ,i should use vbide and vbcompnent , but i dont know from where to start ?
I need to replace the word "Cheese" hwen it occurs by itself throughout a wb with 20 sheets.
So if "Cheese" encountered in a cell : Replace
If "Cheese PIzza" encountered : Ignore
Where i want to carry out a find and replace specific to different worksheets.
At the moment i have:
Sub Changeme ()
Dim SH As Worksheet
Dim rng As Range
Dim rCell As Range
Set rng = ActiveWorkbook.Sheets("sheet3").Range("A8:C10")
[Code] ........
Where column A contains the tab name, column B contains what to replace and column C contains the replacement.
Have a cmd button and text box. I need to enter a word in the text box, hit the button, and have excel show me where that text is at on the worksheets (numerous sheets). I have tried unsuccessfully suggestions, but all want to replace the text with something. I do not need to replace the text, just find it.
View 2 Replies View RelatedI am writing a vba code in which the user can change their old password with the new password. For Eg- User A has password B. He wants to change his password to C, so everytime he logs in with new password, he is able to enter into the file. However, i have no idea what exactly i could do(i mean the codes in vba).
View 2 Replies View RelatedMy find and replace code is going to all the tabs in my workbook, but I want it to stop in my current spreadsheet I am on. Here is my
View 14 Replies View RelatedI 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 write a code for VBA code for find and replace, I want to find a particular phrase (i.e. 1. Value Added Processing) which is all in one cell and replace it a range of cells of other cells which is contained on a different sheet.
So basically the original 1 cell would be replaced for anywhere between 1 to 20cells. Depending upon what I type in.
Worksheets(1).Range("B2:B50").Replace What:="1.ValueAddedProcessing", Replacement:= _
"Sheet1!A1:A11", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Hey Have a spreadsheet with about 150 worksheets in.
In Column B of each worksheet is a list of packages
e.g.
Value Added Processing
Business Viability
Environment
Climate Change
I need to add into that other cells to further divide those packages so it will end up looking like
Value Added Processing
GA001
GA003
Business Viability
GA005
GA032
GA065
Environment
GA023
Climate Change
GA030
GA029
I have a separate worksheet which has the 37 different package types along ROW A from Column A to Column AH, then going down underneath each of the heading is the various code numbers as shown above.
Has anyone got a VBA code which will allow excel to search the worksheets, find the package name and then replace it with the package name but also insert the code numbers below it.
I have a sheet where D:D range contains "Boys" and "Girls", now I have to manualy replace Boys=M and Girls as "F". Is there any way we can write some code, so whenever any Boys/Girls found in range D:D,, it will automatically change to M/F.
I am trying to make a find and replace macro for multiple items.
Please see the attached file for further explanation : macro.xls
code to find/replace the letters: "A" with "Active", "P" with "Contract", and "C" with "Settled sale", all in column "Q".
View 2 Replies View RelatedI am trying to write a macro that will find duplicate listings in two worksheets by row. I don't really want to do a user form unless I have to.
View 9 Replies View RelatedThis problem has come up fairly frequently lately, and I'm not sure how to fix it, or if this is by design...but in Excel 2003 I can't seem to do a "Find and Replace" based on the value of a cell. I can do a find, based on cell value, but the moment I change to the replace tab, the "values" and "comments" are missing from the "look in" dropdown.
I've only noticed this when I'm trying to replace on a filtered list, so I'm not sure if that is part of the issue.
Perhaps an alternative way of arriving at the same goal. Basically I have a worksheet with a number of filtered columns. They are filtered just right, using custom filtering, and so I do not want to undo the filters. In some columns I have formulas that are returning #VALUE! errors. I'd like to replace all of these cells with NA.
I recently became owner of a spreadsheet with some issues, and I am trying to make it useful. Each row has a URL of a blog post, and I want to extract the date from it (which is present in each URL) while getting rid of the rest of the URL. I was able to get rid of everything up to the year (which comes first), but then the URL continues, for example, 2013/05/16/the-rest-of-the-url/ and I would like to just have 2013/05/16 remain.
I am trying to use find and replace with the find box reading 2013/??/??/*/ and replacing it with 2013/??/?? which effectively erases everything else in the url, but leaves ?? instead of the numbers. Is there any way to have it so that it keeps whatever was in the original box?
[Code] .....
Trying to repeat a 550 or so character statement with a find/replace however I am getting type mismatch errors. When I use a smaller message in the "replace" it works.
I need it to post a message exactly as long as what I have in there. How do I get it to work?
Need assistance with the code for catching errors when using the find / replace function in excel? In particular, I am trying to write code to break to an error message when the value or string searched for isn't found in the find / replace. At the minute I have just copied the standard code using a macro and all this does is return a message box saying X entries replaced.
View 3 Replies View RelatedI am trying to create a macro where it finds a a certain word in a column for example C. What i want it to do is find anything that says FWD_EUR and then replace that cell (e.g C2) with CASH_EUR_FWD and after it has done that it replaces the adjacent cell (e.g. D2) with EUR_FWD. I then want this to do the same with FWD_USD to CASH_USD_FWD and adjacent cell to USD_FWD.
View 2 Replies View RelatedIs it possible to have worksheets in 2 or more lines at the bottom of excel window?
View 9 Replies View RelatedI would like to reduce the size of a macro, but not managed to have success.
My goal is to just have the cells of these worksheets (in the code below), selected
Code:
Sub SumazeCode()
Sheets("PEDIDO 2013").Rows("42:67").EntireRow.Select
Sheets("Print_Cliente").Rows("32:45").EntireRow.Select
Sheets("Print_Producao").Rows("30:43").EntireRow.Select
Sheets("Print_Orcamento").Rows("32:45").EntireRow.Select
Sheets("PEDIDO 2013").Rows("C43:D43").EntireRow.Select
End Sub
Range B3:B1000 is text strings. Column C2:C50 is a list of words that I would like to "Find" in Column B and replace with it's lowercase values unless they start off the string.
Example
Find all occurences of And or AND and replace with and
Find all occurences of With or WITH and replace with with.
Find all occurences of Or or OR and replace with or
I need to delete line if 2 conditions are meet.
If col A is blank and col D or E is blank then I want the line deleted for lines 1no more than 100 The option of D or E has me stymied I end up with it not working right. This is what I had tried
Dim lastrow As Long, c As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For c = 1 To lastrow
If Range("a" & c).Value " " and Range("d" & c). Value " " or Range("e" & c)Then ActiveSheet.HPageBreaks.delete
Next c
But doesn't work
I also need macro to run multiple worksheets which varies anywhere from 12 sheets to 50 sheets.
I have one excel file sheet in which we enter client data and another page in the same file that formats the data. Each new row is another client.
It is a simple formula in the data formatting sheet ='data sheet'A23 for example.
The problem is when we add client data above A23, say 2 rows, the format data page will follow the original cell and now say ='data sheet'A25.
How do I keep the cell as ='data sheet'A23 no matter what I do the original page?
Have created a userform for people to use to populate a spreadsheet and based upon the values filled in cells, and date segregators, formulae determine whether the line of data is classified as new / increased or reduced.
Obviously I can sort this in excel quite easily by this criteria.
At the moment it is about 500 rows deep,and is sorted by N/I/R.....
What I ideally want to be able to do is create 3 new worksheets, N/I/R and then select all the N's and bung them in sheet N, row 2, and then repeat selecting all I and then all R, and pasting in respective sheets.........
Obviously it can be done, but I am far too rusty to do this.
At the moment, all is sorted in one worksheet, alpha ascending...
I have two lines of code which I want to consolidate into 1. for example
Sheets("Snapshot").Select
Range("A1").Select
I've tried combining but get errors.
can they be combined
My excel program on my home computer has a default number format so that when I type in a number such as "1", the spreadsheet displays 1E-20. If I enter the number as "1.0", the display will show correctly. I have tried changing the formats for the spreadsheet, but I still cannot get the program to work correctly. I tried reinstalling office, but nothing changed.
View 6 Replies View RelatedCode:
Sub Final()
Dim NameCell As Range
For Each NameCell In Sheets("! Names").Range("B1", Sheets("! Names").Cells(Rows.Count, "B").End(xlUp))
[Code]....
I want to pull data from ! Names. This code already Renames a new sheet from the ! Names sheet and also puts there name in cell C2 and phone number into cell C3 of the created sheet. I want to put more data from the ! Names sheet. How would i go about adjusting current code to do that?
I've written a piece of code that is so long, I have to use the scroll bar to see the whole of it, which isn't very user friendly
if there's a way of splitting long lines of code over say 2 or 3 lines, so I can read the whole thing without having to use the scroll bar? I've noticed some people use _ at the end of the code and then continue writing on the next line, but when I do this, I get an error message saying
"Compile Error : Expected : line number or label or statement or end of statement"
See the attached workbook.
Alright: Sheet2 is a list of lines that have a parallel match, sometimes more than one. This example has 3 lines with slope 0.18 and I've added a few extra at the bottom for the sake of the example.
Worksheet Intersect is a working page where in the Bordered Box, highlighted in Green is full of parallel lines from Sheet 2. Sometimes there's none so I have a column to the right that says true if the line is on sheet2 and false if not. There's a helper column to the right to count up the trues and false.
I need to have laid out below, all the matches on Sheet2 to the green highlighted lines but not the original line that made the True. There could be lots of them, there could be one, this example has two for the slope of 0.18 and one for all the rest.
How do I write formulas to pull the matching slopes (column A) and y-intercepts (column B) from sheet 2, if there's an unknown amount and then list them on the intersect page?
The results will look something like:
True 1...............True 2...............True 3..............True 4................True 5
.36........2.00.......18.......24.01.....-0.32.....3.00....1.04......4.00 .......0.83.......5.00
..........................18.......21.32
I stumbled on this and wasn't sure why the code was placed on different lines and how the highlighted sections in red affect the basic round function.
ColorCompare = Round( _
(111111 + Blue + Red + Green) / (Green + LenPaint) _
, 0 _
)