Ignore Case While Running Macro
Jul 15, 2006
The following code works well unless the user entered the value in lower case.
How can I have it ignore the case of the "W"? I tried case match= false but I must not be using it correctly.
I found another macro on this site that will change the case to caps (note data comes in via copy / paste). Howerver, I was just wondering if it I can do this all in one step instead of two.
Sub DeleteSpecial()
Dim end_row As Integer
Application. ScreenUpdating = False
Application.Calculation = xlCalculationManual
end_row = ThisWorkbook.Worksheets("sheet1"). Range("D65536").End(xlUp).Row
For i = end_row To 2 Step -1
If ThisWorkbook.Worksheets("sheet1").Cells(i, 4).Value = "W" Then
ThisWorkbook.Worksheets("sheet1").Rows(i).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Also, while I'm in the area, how can I rewrite the above code to actually look for a value of "S" at the same time it looks for "W" and upon finding either delete the row?
View 9 Replies
ADVERTISEMENT
Nov 28, 2007
I want macro to run automaticly when I change values of any of the cell in worksheets("Data").range(B2:F1000)
Is there any way to write macro only for that worksheet/range?
View 9 Replies
View Related
Oct 7, 2008
I have a Excel text document that I compile from multiple sources, and if they don't leave a "white space" before a "/", "-", or "(" the Proper Case command does not capitalize the word that immediately follows that symbol.
View 4 Replies
View Related
Aug 6, 2013
I have a spreadsheet that is tracking a MTD receivables (running total). When it comes to weekends or day's when their were no receivables the running total needs to reference the last working day or the last receivable entry to perform its calculations for that day.
So in the table below (couldn't post attachment) the first row(1) = days of week , second row (2) = running MTD totals and the 3rd row (reference cells). So for Wednesday I our totals were 9995 which I entered in Row 3 (column A) and called it to Row 2 (column A). For Thursday I called Row 3 (column b which was known and manually entered) and subtracted Row 3 (column A) and populated Row 2 (column b). So my equation to in Row 2 column b is simple as =sum(b2-b1)
This is ok but when the weekend (or days not worked) come in to play you can see it produces a negative for Saturday / Sunday. Saturday took 15,707 and subtracted it from nothing (row 3 column d) since there were no receivables on Saturday.
So I need a formula that will calculate from the last instance while ignoring blank cells.
Wednesday
Thursday
Friday
Saturday
Sunday
Monday
9,955.00
3,325.00
2,427.00
(15,707.00)
(0.00)
20,903.00
9,955.00
13,280.00
15,707.00
20,903.00
View 1 Replies
View Related
May 8, 2008
Sub Addy()
Do Until ActiveCell. Offset(0, -4) = ""
Renamer = Proper(ActiveCell)
ActiveCell = Renamer
ActiveCell.Offset(1, 0).Select
Loop
End Sub
fail? Trying to remove all capitals from names/addresses. Error message is "compile error - sub or function not defined"
View 6 Replies
View Related
Aug 26, 2009
I have a string of names that run together without spaces or commas between each name.
"Danny TrejoJean Claude van DammeVincent SchiavelliGabrielle FitzpatrickDavid 'Shark' FralickPat Morita" for example.
Is there a way to add a comma and space between a lower case and upper case letter?
View 7 Replies
View Related
Jan 30, 2008
I'm in a situation where I need to find a workaround for a circular argument. I've decided that having a macro to run would work rather than have a formula in the cell I want populated.
Objective:
I need a macro to either completely ignore the contents of A31 or to change A31 based on the contents of B31. Sometimes there's a B32. Sometimes there's a B667. In which case, this would need to work for all cells A31-A667.
If B31 contains CHERRY or PEACH I want A31 to be altered to say TASTY. IF B31 contains SLIME I want A31 to be altered to say NASTY. If B31 does NOT contain, CHERRY, PEACH, or SLIME I need whatever is already in A31 to remain unchanged.
This would need to continue down the rows until there are no more contents in column B.
Best guess:
I like said - I'm awful. All I could come up with is an IF statement that isn't even complete.
=IF(ISNUMBER(SEARCH("PEACH",B31)),IF(ISNUMBER(SEARCH("CHERRY",B31)),"TASTY",(some formula
that doesn't change the contents of the cell))
But that's something I would have in cell A31 rather than a macro
View 9 Replies
View Related
Jun 26, 2007
I have in column D starting D9, I have numbers starting at 1, and may finish at 100. But there could be duplicates, 1,2,3,3,4,5,6,6,7,7,8,9,10,10,11,12,13,.........
I would like to only copy the range D9 to H (End of column D), ignoring all the duplicate numbers, to another sheet.
So on the second sheet, it would be 1,2,3,4,5,6...... with the data copied from E,F,G and H.
View 9 Replies
View Related
Mar 12, 2014
My workbook has several worksheets so do you need the name of those to be excluded? Or how many sheets i require which are located to the right of the summary tab?
Detail - 5 sheets to the left of summary tab are to be ingored, 7 to the right of the summary are to be pulled (let's say they're named Red, Green, Blue). I only want the colour named tab data pulled and pasted into the summary
Code is below :
Sub karryan()
Dim i As Long
For i = 1 To 3
Sheets(i).UsedRange.offset(1).Copy Sheets("Summary").Range("A" & Rows.count).End(3)(2)
Next i
End Sub
View 1 Replies
View Related
Jan 10, 2007
I have the following Conditional Formatting vba code shown below which allows me to format diffrent ranges according to the values in the cell, What I want to be able to do is that if Mycell.value ="" then do not apply the colorindex value, in other words leave any cell in the range which has a null value unchanged.
Private Sub CommandButton1_Click()
' Conditonal format for New hourly report
Dim Mycell As Range
'SL80range formatting
For Each Mycell In Range("sl80range")
Select Case Mycell
Case Is >= 0.8
Mycell.Interior.ColorIndex = 4
Case 0.7 To 0.79999
Mycell.Interior.ColorIndex = 44
Case 0.00001 To 0.6999
Mycell.Interior.ColorIndex = 3
Case Else
End Select
Next
View 2 Replies
View Related
Jun 3, 2009
I've got a pretty intense macro already written, a lot of Select Case components. At the end, if nothing matches I'd like to just copy the cell above to the cell below. However, there is a range of about 400 cells in length, so I'd need some sort of wildcard for range.
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Dim Cell As Variant
For Each Cell In Range("A1:OL1")
Select Case Cell.Value
Case "Eng1"
Cell.Offset(1, 0).Value = "Engine One"
tons more in the middle here
Case Else
Cell.Offset(1, 0).Value = "N/A"
Rather then returning "N/A", how could I reference the cell above and just copy it instead?
View 9 Replies
View Related
Aug 6, 2014
I'm fairly new to using VBA and have come into what is probably a simple problem to solve. However, I am looking to sort out my code.
VB:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$H$3" Then
Select Case Target.Value
[Code] .....
From the above the macro runs only with the Range H3, I would like have this code operate for the Range H3 to H10... I can't quite get it to work with a few formats I have tried.
View 3 Replies
View Related
Feb 21, 2007
I have just recently found that I can do case correction with Excel but I am manually having to do it how can I add it to my macro? The function for doing it does not seem straight forward to me on putting in macro I am sure it is simple but just missing some element of it.
I need to have Proper case for columns C, G and H from rows 11 and down.
View 9 Replies
View Related
Mar 31, 2007
And last but not least, is there a macro where I can perform a "change case" on the titles of all my graphs to be using "title case"?
To recap, this is what you have all come up with so far:
Sub DoAll()
Dim wb As Workbook
Dim ws As Worksheet
Dim objCht As ChartObject
For Each wb In Application.Workbooks
View 3 Replies
View Related
Nov 19, 2013
I want to use wildcards and it seems I cannot do it with case select, is it possible?
Its required because for the list of PSV's I have more than 2000 names and I would like to use *PSV* for them all instead of typing them all.
Here is the code below:
Option Explicit
Sub Colorize(Rng As Range)
Dim Cel As Range
Application.DisplayAlerts = False
Application.EnableEvents = False
[Code] .......
View 4 Replies
View Related
Dec 17, 2007
in making this macro non case-sensitive. So when a user searches a company name in the worksheet they do not require to type in the company name exactly as it appears.
For example; when searching Microsoft they can type "microsoft" and the macro would take the user to Microsoft.
I would also like to know if it is possible to add a feature that keeps the search dialogue open so the user can search the next possible match. If the user was to type in "mirco" and the search would show the user any company name with the word micro in it.
Sub Button3_Click()
Dim datatoFind
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer
View 9 Replies
View Related
Jan 25, 2007
I am using this macro to ensure that a range of cells appear in Proper Case. However I am encountering a drawback, sometimes I have text which I want in Upper Case but which is changed into Proper Case. I was wondering if there was a way to work around this. Example: Practical W/W appears as W/w or Woodturing (GMC) appears as Woodtrunign(gmc)
Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces text to Proper case for the range A15:A40
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("A15:A40")) Is Nothing Then
Application.EnableEvents = False
Target = StrConv(Target, vbProperCase)
Application.EnableEvents = True
End If
On Error Goto 0
End Sub
View 2 Replies
View Related
Jul 3, 2007
Here in our department we made a pretty elaborate macro that takes a report and sorts them out to 17 different sheets in a one workbook. This Macro pulls a file from a specific location on our server and then opens the CSV sorts it out color codes all the important information and saves it back onto the server under you specific initials.
They are four PC's along with our Managers laptop that run this Macro daily.
About 3 weeks ago my Managers laptop stops running the Macro completely and hangs in the middle of the whole thing. Eventually crashing Excel.
We try to remove the modules and re-import them back into the personal macro workbork but this does not work. The Macro's did not change and still fully function on the other four desktops to this day.
I uninstall Office on my Managers laptop and reinstall. Import the Modules again and still hangs up in very same spot it did 3 weeks ago.
I've tried to lower the macro security to the lowest level also and I've still had no luck with this laptop. I don't understand. The Macro's function perfectly on other PC's but will not function on this laptop.
View 9 Replies
View Related
Jan 7, 2009
I have a Sheet sheet1 and I want to run a macro when the cell D2 in Sheet1 is equal to 10,7,5,and 3. I only want this macro to run when those values are reached the macro then puts the data onto a sheet called wps. The macro is run as a module and is a sub macro.
View 9 Replies
View Related
Apr 22, 2009
I decided to try to change it into a Case Statement. Here is what I have now. But the problem seems to be this time at this line: When I have "01" in C5 the script just keeps going?
View 14 Replies
View Related
Jun 20, 2008
When I use a simple formula such as:
=upper(a1)
that will obviously change whatever is in a1 to Upper Case - but it will put it in the cell that holds the formula.
What I want to know is:
Is there any way I can format the cell to run the formula when the information has been pasted into the spreadsheet
View 9 Replies
View Related
Dec 19, 2006
Can i run a macro by just the pointer going over it.
View 9 Replies
View Related
Apr 10, 2014
I'm trying to get a macro to run when the user presses the save button. I have the following code:
[Code] .......
This code is supposed to apply the TRIM function to every worksheet in the workbook when the user presses save, and the saves the results. I understand the Private Sub bit is the code to have the macro run during the save, but for some reason the macro itself isn't actually running. I'm not getting any error message, its just that the cells which should have the TRIM function applied to them aren't being corrected.
View 4 Replies
View Related
Mar 10, 2014
I have a macro that takes about a minute to run. I would like to add a progress bar to appear once the macro starts running. There are no loops in the macro. What are my options?
View 3 Replies
View Related
Mar 17, 2014
I have 3 different sheets with a private sub on each all labelled
Private Sub CommandButton1_Click()
The macro's runs fine on each page.
I want to put a macro on a separate sheet that i can run each of those macro's
I did initially copy the original private macro and change the
Private Sub CommandButton1_Click()
to
sub report()
But I couldn't do all 3 in the same manner. i did change each name to something different... the other 2 subs did run, but they didn't do anything except put the massage box on the end saying that "the macro has finished".
The private macros are on sheets 26, 28 and 12.
View 3 Replies
View Related
Mar 25, 2014
I have 7 different workbooks as part of my daily routine.
At present the first workbook is opened via the task scheduler, and the macro is run using the following code
[Code] .....
This then opens the next workbook and closes the current one. The next workbook then runs its macro again from a timed call
[Code] ...........
This repeats for 7 workbooks. The problem is, if a macro overruns - the whole schedule is out of sync when macro's are called depending on the time. What I would like to do, is link each macro by calling for the next one, and closing the current workbook. However, when i have tried to do this, the macro has always stopped when the workbook has been closed - the next macro doesn't run.
View 2 Replies
View Related
Oct 3, 2007
Below is the entire code that I am using. It is a simple routine which checks whether a part has started its release process or not, based upon dates. The code works and does what I want.
The problem that I have is that it is very slow, for example it takes 35 seconds to go through 530 lines items. In my (limeted) experiance, based on other VBA doodlings this slow.
View 9 Replies
View Related
Jul 28, 2008
Is it possible to run a macro from an IF command?
View 9 Replies
View Related
Oct 8, 2008
I already have a macro made named (PowerPoint) that is saved to the wookbook. I am looking for a way to have this run every 20min. I have tried several differnt things and it did not work. Here is one I found online. I only need it to run when it is open and every 20mins. as long as I have it open.
View 3 Replies
View Related
Dec 18, 2008
I have 2 workbooks (Workbook1 and Workbook2).
Workbook 1 contains a button, that calls a macro. This macro calls a macro from Workbook 2.
For this, I am using the Application.Run function.
The Macro in Workbook2 is a simple one line macro that updates cell A2 to a value of 6.
Range("A2").Value = 6
This works fine!
However, I want the the cell A2 in WORKBOOK1 to change to 6, not the cell in Workbook 2.
To add an element of difficulty, Workbook 1 could have any name (I won't know what it is, as the user could change it).
How can I get the Macro in Workbook 2 (Called from Workbook1), to update the cells in Workbook 1.
View 12 Replies
View Related
