I need to adjust the attached code as follows;
The data in cell E10 is a date derived from the formula
=IF($C$2<>"",IF(E10="",NOW(),E10),"")
It is a time stamp and works fine. My issue is when I copy and paste the data I am getting the date and time. I just need the date copied not the time. I currently just go in to the date and delete the time from the entry but need to refine the process. Cell E10 is the only issue in the current setup.
A little background on what i am doing. I have a spreadsheet that tracks when i have blown the dust out of our computers. I have set up conditional formatting so that the text turns red after 300 days and the cell turns yellow after 600 days. However, some computers are in high dust environments. I would like the spreadsheet to tell me to blow the dust out of these sooner. see the attached sheet.
dust 1.xlsx
I have to excel files
1. Temperature & Humidity Reading
2. Summary
I tried to copy a date from Temperature & Humidity Reading file using the formula ='[Temperature & Humidity Reading.xlsx]Sensor 7'!$C$2 to Summary file
if the date format is like this 6/10/2013 12:00:00 AM the result is fine, but when i try to copy that formula for the succeeding dates the results is same from what i copied.
Private Sub txttodaysdate_change()
txttodaysdate = Format(Now, "mmm/d/yy")
End Sub
when i use this code i wnat the date to automatically appear in the text box but it doesn't I have type something into the textbox then the current date appears,.
I am looking for VBAS code to validate a date when a user enters a date. The date format must be in format dd/mm/yyyy for eg 16/05/2014 , 13/06/2014 etc
If date not in this format msgbox to advise user date format invalid
Is there a format or a macro that I can use to change a nine digit zip code into a five digit zipcode. Below is what I have in each cell.
Carolina Clinical Research, Inc.
Suite 606-B
2990 Bethesda Place
Winston-Salem, NC 27103-3315
Using conditional formatting, I set the font color to Green for Cell G12
=IF( SUM(G12) > C28,SUM(G12),""). This worked. However I needed 6 conditions for this formatting. Excel only allows for 3 conditions. My VBA code is not working. Can someone tell me the correct code?
For cells "G12,O12,G23,O23" I want the font colors to change if their value is
1. greater than or equal to Cell C28 (change to green font)
2. greater than or equal to Cell C29 (change to orange font)
3. greater than or equal to Cell C30 (change to brown font)
4. greater than or equal to Cell D28 (change to green font)
5. greater than or equal to Cell D29 (change to orange font)
6. greater than or equal to Cell D30 (change to brown font)
It is set so that if a value is enter in C28, D28 will have a zero value. Can only use one or the other. Likewise if C29 has a value, D29 will be zero and cannot be used.
The code I used was:.............
With the expiry date as currently set, the code should show the second message box but it shows the first instead.
Sub datechange()
Dim expiry As Date
Dim now As Date
'This line sets the expiry date as 1/5/2006
expiry = DateSerial(2006, 5, 1)
If now < expiry Then
MsgBox "Your subscription will expire in May 2007"
Else
MsgBox "Your subscription has expired"
End If
End Sub
Please refer to attached file.
I have data in cell B2:K11
Each cell consist of 12 digits with 1 and 0.
I need to see if digit 1 can have one color font (yellow) and 0 can have other color font (light Orange).
(Either VB Code or Formula would work for me).
I have this code, which is primarily built by the record macro utility. I know that record macro does some unnecessary steps such as selecting while inserting columns etc which is generally never done in vba.
View 5 Replies View RelatedI have a workbook that requires a VB code to help me out with Conditional Formatting. I use Office 2003 which is restricted to 3 conditions, I know there is an add in I can use that would help me do this but other people may use this that wont have the add in. I have decided to use VB if possible to get this done.
I have a range of cells from B22 – T22 in these cells I will be putting codes, when these codes are put into the cells I would like the cells to shade a different colour depending on what code I use. Here is an example of what I mean.
P = blue
S = red
HL = green
ML = magenta
FL = orange
I may have a couple of more codes I will add at a latter time. Is it possible for VB code to do this?
I am working on some data cleanup for some video. I have a lot of time code data, ie. mm:ss (minutes; seconds), and I need to convert it to hh:mm:ss:ff (hhi is hours; ff is frames). It's A LOT of data, and I don't want to do it by hand.
Examples:
2:02
0:55
2:18
2:55
1:41
1:20
1:44
I have two quesxtion:
1. Excel wants to interpret my data as time data and will convert my data if I click on a cell, ie. 2:02 is converted to 2:02:00 AM. That might not be so bad, but sometimes it changes a time that is 00:55 to 12:55:00. So, my first question is...how do I make excel read the numbers exactly as is w/o any conversion? I've tried to mark the cells as Text but that doesn't work, and I can't seem to make a Custom format work. Any ideas?
2. Ideally, I'd like to quickly convert these timecodes to hh:mm:ss:ff. Would macro work on this? So, I'd be taking 2:02 and making it 00:02:02:00. I think I need to solve #1 before I tackle #2, but i could be wrong.
I have the code below in a macro, but cannot figure out how to add the following format to the left and right header:
size 12 Ariel font, Bold and Italic
I cannot seem to get it right!
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.166)
.RightMargin = Application.InchesToPoints(0.166)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(0.8)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.3)
[code].....
I dont know the correct terminology with whick to phrase my question, but I would like to know if its possible to copy say columns A-J on "worksheet A", and copy columns A-J on "worksheet B", each of which have different column widths, and paste them both to "worksheet C"?
My problem is columns A-J on "worksheet A" are perfect and copy and past fine to "worksheet C". But when I copy columns A-J from "worksheet B",which have different widths, and paste them to "worksheet C" right below what I had previously pasted from "worksheet A", the column widths interfere with each other.
I have tried a special paste, and it seems to re format everything above the current page its pasting?
I recorded some code and cleaned it up to apply a conditional format
Sub condi_format_I()
Dim wbBook As Workbook
Dim ws As Worksheet
Dim rng As Range
Set wbBook = ThisWorkbook
Set ws = wbBook.Worksheets("Summary")
Set rng = ws.Range("C4:P52")
With rng
.FormatConditions.Delete
.FormatConditions.Add xlExpression, Formula1:="=C4<0"
.FormatConditions(1).Interior.ColorIndex = 45
End With
End Sub
I would like to apply a custom color index to all cells in range C4:P52 if the value is less than zero.
But when I execute the macro, many cells receive the custom format that do notr match the custom format. Other cells that should receive the custom format do not
I am attempting to modify the code below to, not only reference the ".Item(rCell.Value)", but also include it's formatting. The format for that referenced cell will not necessarily be a "certain" format..so I don't want to have to write out what specific formatting needs to happen.
VB:
If (.exists(Trim(rCell.Value)) And rCell.Offset(, 1).Value = "") Then rCell.Offset(, 1) = .Item(rCell.Value)
The entire code is as follows:
VB:
Sub FillVariablesOnlyBlanks()
Application.ScreenUpdating = False
Dim a, i As Long, rCell As Range, ws As Worksheet[code]....
In B16:T24 I have cells that need shading depending on what code I put in them. I have 5 codes P, BH, S, ML, HD
I would like the cells to change colour, when I put P in them I want them to change to blue, when I put BH in them I want them to change to green, S I want to change to red and so on.
I am adding shapes with text (msoShapeOval) to an image on a worksheet but I cant get the size of the "ShapeRange" to work dependant on the value assigned to "sTxtlen".
I had msgbox's within each Case but none were triggered allthough using another msgbox to show the length of sTxtLen is correct prior to the Select Case.
Is there a way to look at a cell's own value and then format it accordingly using VB?
I have a cell whose value changes based on DDE link to live price data.
Cell is "Q5".
When the new value is greater than the old value - i want to format the pattern color of the cell.
When the new value is less than the old value - i want to format the pattern color of the cell.
Does anyone know how to do this please or is there a way to do this using spreadsheet formulas as oppose to VB?
I have found this code while searching. I would like to know how to call the vba code only when clicking the button. On much bigger projects Excel has to re-calculate all cells everytime i change a cell value.
View 3 Replies View RelatedI am having a little trouble with this code, which runs in my simple but efective ressource overview. It loops through a rather large range and assigns interior colour to the cells based on certain criteria. On my stationary machine (Excel 2003) it takes approximately 15-30 seconds to run the code which is acceptable. On my laptop (Excel 2007) it takes 5+ minutes which is unacceptable. Is there a workaround so as to optimize the speed? Further, when I run this workbook on Excel 2007, even entering an integer in the sheet takes 3-4 seconds, and no code is running! In my first version I used a Change_Event to colour cells on the fly but this was slow and prevented multible cell editing as well as pasting values into the appropriate range.
Public Sub Farvelade()
Dim icolor, Navn As Integer
Dim TargetRow, LastRow, Previous As Long
Dim Target As Range
MsgBox "Det kan tage 15-30 sekunder at opdatere ressourcekalenderen"
Range("A5").Activate
Range("A5"). CurrentRegion.Select
'Set range
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row.....................
I am trying to create a macro to run from a form button, within a report, to save a file to a variable file path and name depending on the date value in cell B5.
The format of B5 looks like - 13/08/2014 16:39
The file path has folders for each year in format "yyyy" with each year having sub folders for each month in format "mm".
The file name is just the date only and is formatted "dd.mm.yy" e.g. 13.08.14
I have tried the code below in various permutations but always end up with an error - Method 'SaveAs' of object '_Workbook' failed.
[Code] ......
I changed the code below to add an extra column(E) this worked. However it does not keep the formatting from the top row in column E, How can i change the code to column E to keep the top row formatting ??
Also i added a list to cell A2, but this moves down, I would like to have the selected data move down but the list stays in cell A2, Was this possible ?
I'm building a Excel 2003 workbook that needs more than 3 conditional formats. I've tried the code given in the FAQ: Get Around Excels 3 Criteria Limit in Conditional Formatting but this only works on cells being modified directly. I've also tried the code in the post: VBA Conditional Formatting - Refresh when data changes but neither does the job I need.
I'm using a Format Control to present the user with a list of choices. When the control changes the target cell I want to apply a conditional format to that cell. This image shows the form. When the Format Control selection (in B2) is changed I want to apply conditional formating to the target cell (A2).
There will be up to 10 choices and therefore conditions.
I am working with a large report that needs to be broken out and sent as separate files to recipients for confidentiality purposes. I'd rather not use views/protection since there are many different ways particular people need to see the data, plus it is a very large file and flattening it works to everyone's advantage. My goal is a macro that will copy each tab into separate workbooks, paste special values, and save as each as Cell A1 (or the tab name-same thing). I have tried recording macros and editing (I'm very new to VBA) many times but it's a mess.
View 2 Replies View RelatedIn cell c23 i am trying to return a date which is in cell h4 and then the word "to" and then another date in cell l4
the formula i have is
i m having problems with a simple formula but i cant get it right
in cell a1
I found this really great vb code for my spreadsheet to be updated with the current date whenever the range is updated. I modified it a bit to include a bit more in the cell A1. what I can't work out is how to format the date so that it only shows me the date as 06/07/2009. It currently returns the date and time.
View 2 Replies View RelatedI have a column with dates formatted as yyyy-mm-dd (2006-12-21). Then I have a cell with data validation set to a list based off that column, formatted the same way. The problem I run into is that, let say I select 2006-12-21, the value is returned as 12/21/2006. The reason this is a problem is later in my macro, I am using the value to open a file based off that date. I currently have the files named in the same format (2006-12-21.xls). So when the macro goes to open the file, it errors out saying it cannot find 12/21/2006.xls. I have no problem changing the name format for my dated files, however, as you are aware, slashes cannot exist in the file name.
So my question is, when selecting my yyyy-mm-dd formatted date, how to I get the macro to not read the value as mm/dd/yyyy? If it helps, here is the code I am using to retrieve the value:
startDate = Worksheets("Macro").Range("B5").Value
B5 is obviously where the drop down is.
I tried to DL the HTML Maker to post my issue, but for some reason it wouldn't work with Excel2007. The problem is pretty simply, but I can't figure the code out. I have a column of data that looks like this:
Jan 19 @ 10:00am
Jan 18 @ 7:21pm
Jan 18 @ 7:15pm
Jan 18 @ 5:48pm
Jan 18 @ 5:44pm
000000061899 1 Jan 19 @ 9:01am
Jan 17 @ 12:07am
000000039656 1 Jan 16 @ 5:42pm
000000087214 1 Jan 23 @ 4:07am
Basically month and day with no year. The months are Jan,Feb,Mar,Apr..and so forth. Some cells have no data, others have various numeric characters included (as above). I want a loop that will format to MM/DD/YYYY. I have another column with dates in that format which I can use Offset to pull the year if I need to.