Adding More Than One Worksheet_Change Function
Feb 1, 2007
I have a bit of code someone on this board provided and I want to make it work for two different ranges. If I just paste it, I get an ambiguous name error. How do I make it work for a second range?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = [A2:A101]
If Intersect(Target, rng) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target.Offset(0, 4).Value = ""
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 4).Value = Application.UserName
Target.Offset(0, 1).Value = Date
End If
End Sub
View 9 Replies
ADVERTISEMENT
Aug 14, 2007
I have a column which has either EDC or EDT in it, can I add a function to this column which says 'if EDC then output Eau De Toilette' and then Eau De Toilette get's ouputted into a seperate column? Is this kind of thing even possible in Excel?
View 14 Replies
View Related
Oct 27, 2008
I have the following formula in a cell
=LOOKUP(WEEKDAY(A1),D2:D8,C2:C8)&A1
that I want to look up the Day (mon, tue, etc) and then return the date entered in cell A1
So if the date in cell A1 is 01/05/08, the formula should return Thu01/05/08.
Currently it returns Thu39569, even though the cell is formatted as a date format... How do I get it to return the date in a date format?
View 9 Replies
View Related
Dec 9, 2008
I want to add two times together.
14:00 (time) + 03:42 (duration) = 17:42
Is there vba code to be able to do this or an excel function?
I have tried searching but strangely couldnt find anything?
View 2 Replies
View Related
Jan 8, 2014
Below is my function.
="Profit $"&SUM(IF(Sold!D15:D8998<>"",IF(MONTH(Sold!D15:D8998)=A4,Sold!H15:H8998)))
I would like to edit this function to also count profit only if Cell A15:A8998 in my Sold sheet has the words "Shipped". The text value Shipped is not a text value I entered, it is automatically written based on a Vlookup formula I created.
View 2 Replies
View Related
Feb 5, 2014
=IF(LEN(A480),SUMPRODUCT((RIGHT(Sold!$D$15:$D$8998,LEN(A480))=A480)*(MONTH(Sold!$M$15:$M$8998)=12)),"")
I would like to edit the function above and add a third criteria. If Sold!S:S,"Returns" to my sumproduct.
I tried to edit it myself with the function below but it didn't work.
=IF(LEN(A480),SUMPRODUCT((RIGHT(Sold!$D$15:$D$8998,LEN(A480))=A480,Sold!S:S,"Returns")*(MONTH(Sold!$M$15:$M$8998)=12)),"")
View 3 Replies
View Related
Apr 24, 2012
I have the following IF function in a spreadsheet. =IF(AE2 = "AZ", "We've recently changed our name from Company A to Company B.", "")
How do you Make it so there is a Space at the end of the period?
View 3 Replies
View Related
Aug 12, 2008
I am trying to rank a list of numbers, such as:
1
3
5
3
4
1
I have no problem with the rank function in terms of the ties showing as duplicate values, however, when this occurs I would like a "T-" to appear before ranks that are tied, and show nothing if they are not tied. Essentially, I want the final result to look like this, without having to manually add the "T-" after the ranking is complete.
1 T-5 3 T-3 5 1 3 T-3 4 2 1 T-5
I have done more complex Excel formulas before, but for some reason this is stumping me.
View 9 Replies
View Related
Dec 7, 2006
If I have a sum function that adds up:
= SUM(U41:U45)
but I add a row at 41 I now get sum function
=SUM(S42:S46) when I really want it to incorporate the just add row to look like this:
=SUM(U41:U46)
View 3 Replies
View Related
Mar 19, 2012
I have the below code of which I would like to addresses added to the CC list Also, Would it possible to add a range as the body? E.G:
.CCaddress = "somebody@mail.com"
.CCaddress ="somebody.else@mail.com"
Body text = Range("A1"& "" &"B1")
Code that need the above inputted:
With ActiveWorkbook
.SendMail Recipients:=Array("steve.howard@kuehne-nagel.com"), _
Subject:="610 Cambridge " & Format(Date, "yyyymmdd") & " " & "Counts"
[add cc address + body]
.Close SaveChanges:=False
End With
View 5 Replies
View Related
Jun 1, 2009
I'd like to do is click the delete button and when clicked, it will search for matching records in column A & B and if they match... I'm thinking the code for that is <> but I'm not sure, then delete that record, and shift the cells up. Do this until the search results are empty below the delete button. Like I said, it's probably more understandable to look at the workbook.
View 5 Replies
View Related
Jan 8, 2007
I am currently tracking online PPC keyword reports with Excel and need to know if there is a function that will find and match words and phrases and then add the columns that are queried for the matching words/phrases. I think an example is definately in order.
December PPC
Keyword Clicks Cost Revenue
large dogs 45 .18 $12.00
small dogs 35 .25 $15.00
January PPC
Keyword Clicks Cost Revenue
large dogs 12 .14 $8.25
small dogs 18 .18 $5.35
Now using the example above I need a function or maybe even a macro that will scan all "keywords" and find a match for each keyword each month, say large dogs, and then add the clicks, costs, and revenue columns and post them on a particular row or rows.
So when running the function it will find and match "large dogs" for each month, it will then add the clicks for all months with "large dogs" in it and then populate a column or row with the total along with the keyword "large dogs" next to it. Is there a function that will do this or maybe even a macro?
View 10 Replies
View Related
Feb 4, 2010
Hi, looking for help desperately in fine tuning a formula. I have a formula at the moment (which works) for searching through a list on a separate file and totalling up all values which relate to it, see below:
=sumif([filename.xls]1’!$B:$B,D10,’[filename.xls]1’!$H:$H)
The tab ‘1’ in the formula relates to the first of the month so this month there are 28 different tabs with similar information.
With C10 containing the date in this instance, does anybody know a way of making ‘1’ a variable so that entering ‘04/02/10’ would change it automatically into a 4? (Unfortunately for me changing the 1 to =c10 didn’t work).
View 14 Replies
View Related
Aug 29, 2013
I am looking to be able to alter my table_array section in VLOOKUP to adjust in date.
exampe: =vlookup(A4,'[Daily report - August 25.x;sx]Facilities'!A4:AY100,84,FALSE)
and I want to be able to change the August 25 -> August 26 repeating so that as I drop the next date in it will update to the correct tab.
I have the dates above so if I could somehow just the date to another cell instead that would work as well. I just do not know how.
Essentially I need to grab data from a separate workbook everyday and compile it to one master list.
View 3 Replies
View Related
Jun 7, 2014
I am using Excel 2003
I have used =IF(I6=J6,1,0) but I want a 0 value if the two cells are blank. How do add this to the formula?
View 7 Replies
View Related
Dec 19, 2013
I have attached a copy spread sheet. This has been working great but i have been asked to add some items and i dont want to screw up the working functions.
I now want to add incert two columns so the actual costs of a first and second service can be added to the contracts and used contracts sheets, this information allong with data from a,b,e,g h needs to be copied over into a new sheet (report sheet) which will have the budgeeds costs in column i,j starting from row 3 and finding the last row so as not to overtype so that a report can be sent showing profit/loss.
The costs will be put in at diferent times so it only need to up date a changed cell
If i just add columns will this effect the auto archive coding? Could the data be copied over to the new sheet using the original code on start up? (so customer etc copied then as cost are put in these would be added to the respective rows on each start up.
I have had to remove some of the sheets to up load this so my not work correctly, but you can see the funtion in the code
View 3 Replies
View Related
Feb 26, 2013
I have a spreadsheet with 27 Columns and 439 rows of data. I need to copy each row of data that has a certain criteria and paste the same data 141 times below it and then manipulate the data. In the same spreadsheet I need to copy a row of data that has other criteria in it and past it 30 times below it, and then manipulate the data.
I have been using the copy and insert copied cells function, but I have to scroll down 141 or 30 rows each time to ensure I add in the correct amount of rows. Is there a more productive way to do this? I have about 10 workbooks with approximately 47 tabs/worksheets each that I will need to update in a similar fashion.
View 4 Replies
View Related
Apr 8, 2008
I have a piece of code that hides unneeded rows, it does work but it is very slow.
This is in the worksheet part of the project. My problem is as it runs it "jumps" in to a function I have in a module that counts continuous rows. I would like to know why it is doing this and what I need to do to stop it? I have another piece of code that is structered exactly the same that hides unneeded columns and I do not have any problems with that. I know both pieces of code are dealing with rows and I think this is part of the problem but I can not see any reason why the first bit would call the second bit?
Dim C
With Worksheets("CEN OAS"). Range("D5:D378")
.EntireRow.Hidden = False
End With
For Each C In Worksheets("CEN OAS").Range("D5:D378")
If C.Value = "" Then
C.EntireRow.Hidden = True
End If
Next C
Function to count used rows....................
View 2 Replies
View Related
Jul 24, 2008
With worksheet_change(byval target as range), is there a simple way to focus on only the row that has changed? Currently I have a 'do while' loop that looks for x until it is blank. That is causing a delay that I am hoping to avoid by only changing one row.
Also, any direction on resoures that shed more light on the front half of macros (dim, range, where you want the macro to look and act, etc)
View 9 Replies
View Related
Jul 17, 2009
Can you have more then one worksheet_change event for the same worksheet and if not what is a work around. I have two that I want to use but only the first one works. Both work if they are the only one, but when they are both present the second one does not work.
View 9 Replies
View Related
Oct 6, 2009
i have some code that is set in the Worksheet_Change routine.
For some reason the code is not activated when a change is made on the relevant sheet.
I can type into boxes and hit return amongst other things and the code simply wont fire, is there a reason for this (am i missing something)?
my code is...........
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.DisplayAlerts = False
If Range("r_PatientType") Sheets("Data store").Range("store_PatientType") Then
If Range("r_PatientType") = "Paroxysmal" Then
View 9 Replies
View Related
Jul 10, 2013
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.RowHeight = 16
End Sub
[Code]....
How to Use 2 Private Sub Worksheet_Change
View 6 Replies
View Related
Oct 17, 2008
Worksheet_change for more than one cell
I have the code
View 3 Replies
View Related
Mar 2, 2009
I have a problem with the vba script attached. RoyUk very kindly helped me with this code a few weeks ago.
What I have is an example of some worksheets. I want the person to input into the first sheet their name & period and Y for whether they have checked the balance or not.
The problem I have is that if I fill in all those three details straight away it copies through wrightie, 5 and Y through all the pages. I don't want Y (balance check to copy through) as I need the user to manually input that.
It does work though if I put in wrightie, 5 and then check the other pages to see if it's copied through and then go back to the first sheet and put Y, it seems to work then.
View 9 Replies
View Related
Dec 31, 2006
I have two workbooks that have the following
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Integer
With Target
If Intersect(.Cells, Range("v:v")) Is Nothing Then Exit Sub
If IsEmpty(.Cells) Then r.Offset(, 1).Interior.ColorIndex = xlNone: Exit Sub
If Not IsDate(.Cells) Then r.Offset(, 1).Interior.ColorIndex = xlNone: Exit Sub
Select Case Month(.Value)
Case 1: myColor = 3
Case 2: myColor = 17
Case 3: myColor = 19
Case 4: myColor = 22
Case 5: myColor = 26
Case 6: myColor = 33
Case 7: myColor = 36
Case 8: myColor = 38
Case 9: myColor = 40
Case 10: myColor = 42
Case 11: myColor = 44
Case 12: myColor = 7
I have this code in 1 sheet in one of the books (and all other sheets work fine), and the same code in all sheets in the other book. Both books work the way it's supposed to.
My question,
Is it necessary to have the Worksheet_Change event in all the sheets (all sheets act on the code the same way) or is it okay for just one sheet?
Could I encounter a problem if in only one sheet?
I just don't see why I would have to add more size with the code in all sheets if it is not necessary.
View 9 Replies
View Related
May 22, 2008
I currently have this code in my sheet, and would like to incorporate the second bit of code into the same sheet, but not sure how to do it. At this point, when I just put them together neither will work.
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 12 Then Exit Sub
If Target.Value = "Daniel Amaya" Then
Target.EntireRow.Cut
Sheets("Daniel").Range("A3").End(xlUp).Offset(1, 0).EntireRow.Insert
Target.EntireRow.Delete
View 9 Replies
View Related
Jan 13, 2009
I'm trying to find code (I can't write my own yet) that will highlight any cells that have been changed with fill color and bold font. I've searched around the forum and come up with the code below so far. It's not working - when I make a change to a cell and hit enter, it highlights and bolds the cell BELOW the one that changed!
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Selection.Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
View 9 Replies
View Related
Jan 28, 2009
I have this code in my worksheet,
Private Sub WorkSheet_Change(ByVal Target As Range)
Dim response As Integer
If Range("AD2").Value = "1" Then
response = MsgBox("Rental Agreement Does Not Exist. Do you wish to continue entering information for", vbYesNo)
If response = vbYes Then
MsgBox ("Add")
ElseIf response = vbNo Then
Range("E2").Value = 0
End If
View 9 Replies
View Related
Jun 2, 2009
I have created a macro to hide columns depending upon text in specifically identified cells. However, I am getting the error message "Run Time Error 1004 Unable to set the Hidden property of the Range class" with the line in red below highlighted when I debug.
This macro is worksheet specific.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$K$8"
If Target = "Actual" Then
Columns("C:J").EntireColumn.Hidden = True
Else
Columns("C:J").EntireColumn.Hidden = False
End If
End Select
End Sub
View 9 Replies
View Related
Nov 2, 2008
Bit of an odd one, but I'm sure it's probably happened before to others. I've just been sent a worksheet to redesign (an audit template) one which I'll be making use of data validation lists (Yes, No, N/A) a fair bit.
What I want to happen is that when the user selects from a list, I'll fire a Worksheet_Change event, which will then run some background calculations to set up the next questions, etc. Problem is, the event isn't firing at all. I'm using the following to test the event...
View 2 Replies
View Related
