Read Time Formatted Cell In VBA Macro

Mar 14, 2009

I've written a script to read all the values in an excel worksheet in to an array. The cell types differ from General or Text to Custom - HH:MM When I look through the array the script has returned the correct value for most but for the cells that are of a custom type an "incorrect" value has been returned. For example a cell of type Custom HH:MM which is 10:23:00 in the worksheet appears as 0.432638888888889 in the array. Is there a way to get the script to return the correct value?
Below is an extract of the code I've used

If objWorksheet.Cells(i, "D") <> "" Then
If objWorksheet.Cells(i, "F") <> "" Then
arrCULDEV = Split(objWorksheet.Cells(i, "F"), ":")
Redim Preserve arrSheetInfo(x)
arrSheetInfo(x) = arrCULDEV(0) & "," & arrCULDEV(1)
x = x + 1
i = i + 1
Else
i = i + 1
End If
End If

View 2 Replies


ADVERTISEMENT

How To Lookup Data In A Cell Formatted As Time

Aug 11, 2006

I'm trying to lookup data in a cell formatted as time, the array is also formatted as time but I continue to get the #N/A. Is there a certain format that I should use?

View 9 Replies View Related

Lookup Data In A Cell Formatted As Time (HH:MM)

Aug 11, 2006

I'm trying to lookup data in a cell formatted as time, the array is also formatted as time but I continue to get the #N/A. Is there a certain format that I should use

View 6 Replies View Related

Text And Formatted Date & Time In Cell

Mar 19, 2008

I am trying to get a single cell to display the following:

Last Updated: 3/18/2008 15:08 (GMT+2)

Entering =NOW() in a cell displays the date and time as required.

But entering ="Last Updated: "&NOW()&" (GMT+2)" displays the date and time as a serial number. Formatting the cell to Date does not change the serial number to date and time format.

The only way I have found to get the desired result is to use =NOW() in another cell (F13), format that cell to general to get the date/time serial number, then use ="Last Updated: "&TEXT(F13,"m/d/yyyy h:mm ")&" (GMT+2)" in the required destination cell.

As I said this works, but it strikes me as an inefficient method. Is there a formula I can enter or formatting I can apply to get the desired result without using an addition cell?

The result needs to be in a single cell. Splitting text and date/time into 3 adjacent cells will not work with my worksheet setup.

View 9 Replies View Related

Rightclick Macro If Cell Contents Formatted Correctly

Jan 16, 2009

I'm attempting to create something that can be used on any workbook open to automatically open a file based on the data in cell.

1) User right clicks on a cell.
2) If the cell's value matches an expected format (##-A-####-## for example), a macro is available in the rightclick popup menu.
3) The user selects the macro in the popup menu if they want to run it.
4) The macro takes the cell value and converts it into a filename.
5) The specified file is opened in an external program.

View 4 Replies View Related

Macro To Read Cell Comment

Apr 5, 2013

I want to design a macro to check if the cell has a comment in it. If so, the macro should read the comment and store it in a variable.

View 2 Replies View Related

IF Function Using Cells Formatted As Time Hh:mm

Mar 28, 2014

I am trying to calculate the difference in time between two cells and if the difference is >= 8 Hours the result is 8 hours - 1 Hour if the result is less than 8 hours then the result stands. I have the following, but it returns 8 always.

The two cells are formatted as hh:mm

H6 = 06:30 & G6 = 14:30

=IF(((H6-G6)>=8),"((H6-G6)-1)","(H6-G6))")

View 3 Replies View Related

Nested If Statement Using Time Formatted Cells

Nov 13, 2009

I am trying to build an if statement to test variables that are in time format and then perform a calculation.

I was able to get an example working if I convert the start times to integers rather than time values. However, the data won't be provided to me as integers.

So, I need a nested if statement (using "and") that will test for two situations using cells in time format or I need to write a macro to convert the time data to integer format. I've been working on the former most of the day and have hit a brick wall.

View 3 Replies View Related

Macro Won't Read Copied Cells Unless Retyped Into Cell

Apr 10, 2014

I have a macro that copies time cells from another sheet and puts them in cells in another sheet, I also have another macro that takes 30 mins away from that time if a certain condition is reached but it wont work unless i retype over the copied cell.

View 14 Replies View Related

Datedif But For Date In Future And To Return Formatted Time Value

Aug 4, 2009

I need to calculate the difference in Years, Months and Days between:

Date 1 = TODAY()
Date 2 = 4 years after a date in cell A1, which will always be earlier than today's date

(A bit of backround - I have certain risk management procedures that have a lifespan of 4 years. I want to calculate the time between now and 4 years after the date the procedure was completed, essentially to see how long before they have to be redone).

So far I have:

=DATEDIF(A1+4,TODAY(),"y")&"y "&DATEDIF(A1,TODAY(),"ym")&"m "&DATEDIF(A1,TODAY(),"md")&"d"

But that returns #NUM!.

Removing the +4 obviously just calculated the difference between the date in A1 and today, but I need the date in A1 PLUS 4 years and today.

I have also tried:

=(DATE(YEAR(A1)+4,MONTH(A1),DAY(A1))-TODAY())/365.25

which works in theory, however:
a) no consideration for leap years
b) does not return nY, nM, nD - only the decimal.

However I would be happy to use this method if I could convert it to Years Months Days.

View 11 Replies View Related

Numberv To Time Formula: Change 66 To Read 00:01:06 I.e. 1 Min 6 Seconds

Nov 5, 2009

How mould i change 66 to read 00:01:06 i.e. 1 min 6 seconds? i know i'ds use mod and int but not sure how.

View 2 Replies View Related

Macro To Insert Formatted Rows

Apr 14, 2009

I need columns A, B, and C to have borders all the way around each cell in the row. Then, columns D through H need to be merged, with one border around the merged cell. The row height needs to be size 16 font, which I've been solving by putting in one letter that size, colored white so it doesn't show up when I print.

Basically, I have a spreadsheet of a bunch of tools, and I need to insert a row below each entry for the mechanics to sign their initials for three stages of the repair process, and also have the larger, merged cell for notes.

View 7 Replies View Related

Macro To Read Just The Text In A Cell Containing Text And Numbers

Apr 10, 2014

I need to get a code that will just read the text in a cell that contains text and numbers example abc123 I want it to only read the abc as the numbers can change and cant write them all into my macro all the time.

View 9 Replies View Related

Date/time Macro: Inserts The Current Date And Time In The Selected Cell Regardless Of Where That Cell Is

Oct 20, 2009

What is the code i need to use to assign a macro to a command button which inserts the current date and time in the selected cell regardless of where that cell is?

View 5 Replies View Related

Macro For Validating And Highlight Email ID Wrongly Formatted

Mar 2, 2007

I have been using excel form last 1 year. I do have good knowledge for macro but for validating emailID entry I am not getting success.,So if any body can give me a sample code for validating email ID entry or a macro for checking and highlight those email ID which r wrongly formated..

View 10 Replies View Related

Copy Or Link Formatting From Conditionally Formatted Cell To Another Cell?

Aug 12, 2014

I have a column who's content is determined via about 6 nested if statements from data on that row. That cell is then conditionally formatted to a certain color based on the text that is ultimately printed from the nested ifs (simply an extra visual legend for the text). All of this contributing info and about 1000 lines items make a very large and difficult to print page. What I am trying to do is a make a summary sheet that simply takes the index number of these 1000 rows and copies or links the conditional formatting of the mentioned cell onto this number on another sheet. I have already linked this status cell and put it adjacent to the index number which works well in that with two columns I can show the index and status but if I could combine the color of the status cell onto the index cell, it would be even better. I am pretty sure another conditional format for this summary sheet would not be possible or be extremely complex since the contents of the index cell I am conditionally formatting have no bearing on the conditions for the format. Was hoping there is some VBA magic that could simply mimic the conditional formatting from one cell and put it on another.

View 1 Replies View Related

A Cell Colour Based On 5 Other Cell Colours That Have Been Conditionally Formatted

Jun 30, 2009

Using 2007, I need to conditionally format a cell colour based on 5 other cell colours that have been conditionally formatted. The 5 other cells will be coloured either red or greem. What I want to do is have an overall status cell that would be show green if all of the other 5 cells were green, amber if 4 of the other cells were green and one was red and red if 3 or more cells are red.

View 4 Replies View Related

Clear A Formatted Cell

Oct 24, 2006

I have a cell that I've formatted to dd/mmm/yy, It used to work, but now it doesn't. When I type in 1/2/03, the formatted cell shows 0-Jan-00, The formula bar shows =1/1/2. I seem to have a formula in the cell, but I can't get rid of it. I know it's most probably somethinmg I've done , but I don't know what. I've tried everything I know. I can't seem to re format the cell , and I can't delete the formatting in it. I'm stuffed.

View 9 Replies View Related

File May Be Read-Only, Or You May Be Trying To Access A Read-Only Location

Jan 4, 2007

I'm trying to open a file on a network drive...but I'm getting the following error message when it opens: "This file may be read-only, or you may be trying to access a read-only location. Or the server the document is stored on may not be responding." Now, the file itself has no rights restrictions and is not read only. It doesn't appear to be locked.

Now, there are other Excel files in the same directory which I could open fine; however, the Excel documents having the above problem all have a little black icon "appears to be a padlock" (image attached) at the bottom left hand side of the Excel file icon. I tried the following:

- Renaming
- Converting to a different file format (didn't work, it won't let me)
- Opening in notepad...etc doesn't work.

This file is dated back in 2004...do you think it's corrupt? Is there anything i can do to open or recover this?

View 2 Replies View Related

Cell To Reference Just The Month From Another Date-formatted Cell

Nov 11, 2009

I'm trying to link two different budgets into a third spreadsheet. The final step I'm attempting to accomplish is have an if-and statement reference just the month from a date-formatted cell. One of my departments tracks their budget on a daily basis, i.e.
11/2/2009, 11/3/2009, etc. rather than just 11/2009. I want the if-and statement to return the budget from all days in a given month so i can apply the formula to the whole year, broken down monthly too. I saw a question similar to this one but didn't see any responses so I'm not sure if it can be done.

View 6 Replies View Related

Run Macro Only If Workbook Is Read-Only

Jun 11, 2009

I was wondering if there is a way to set a macro to run on an event only if the workbook is read-only. The macro I have set up right now reformats the toolbars to a custom user friendly one, but I want to be able to open the document with a password and not have the toolbars rearange on me.

View 2 Replies View Related

Skip To Next Macro, If Read Only Is Available

May 30, 2007

I have been using various bits of information from all sorts of threads and made a somewhat nifty little Macro program for the company i work for.

The following threads may have my answer in them, but I can't see it or figure out how it could be restructured to my needs.

Disable Read-only Message Box

looks as if the file is set as readonly then to close it without saving

[url]
[url]

contains a msgbox I would like to add in, specifying that the file is read only therefore to abort current macro for particular file

concerns very much the problem I am having.

Basically what it boils down to is,

My Program Manager runs a daily report, then uses my program to update up to 7 different workbooks. Each having their own Sub program.

Some of the Supervisors or leads gets in to early and thus makes the file as a Read-Only, which of course stops my program and can not continue.

What I would like to learn is.. (from the countless threads I have looked through, I can't seem to find the answer)

Bring up a msgbox, informing the PM that a specified file is already open and therefore this particular process has been aborted.

Then it will move on to the next Sub, and so forth...

I want to thank everyone for their help directly or indirectly, (been reading threads for about 9 months now) and any future help as well.

And if it's not to difficult, could it be close to layman terms? I try to understand alot of these codes and I get lost with some of the wording. I am just pratically piecing pieces together with my "eyes closed" and somehow come out with a working VB codes.

View 9 Replies View Related

Assign Value To Text Formatted Cell

Dec 30, 2008

I want to be able to "count" apples and oranges. Is there a way to record a particular text in a text formatted cell and count it. e.g. 10 cells, 3 say "apples", three say "oranges", 4 say "plums". I want excel to keep track of the three types of fruit when I change them and give me a running number of each.

View 2 Replies View Related

Formatted Cell With Leading Zeros

Jul 8, 2009

I have a whole number in cell C2, but i am formatted it in Cell C3 to always have leading zeros combined with the number in Cell C2, where the result will be 8 digits long. example, my number in cell C2 = 572 but i need it formatted to be 00000572, but if the number was 19 it needs to be formatted to be 00000019 and so on.

View 2 Replies View Related

Altering Macro To Read On Another Sheet?

Mar 26, 2013

I have come across another stumbling block with VBA (new on VBA and slowly taking baby steps). I have a macro that reads and deletes all duplicates on the files i work on. However I need this to read and do the job on 2 sheets at the sametime (sheet 2 and sheet 3). Below is the macro which does work fine on a different workbook. How would I integrate this into my new sheet to do 2 jobs at once?

VB:
Sub delduprows()
Dim m As Integer, j As Integer
Dim n As Long, i As Long

[Code]....

View 1 Replies View Related

Macro Code - Open As Read Only

Jan 21, 2009

below code

Sub Collect_OS_Data()
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Dim fso As Object, fld As Object, fil As Object, fldPath As String, wbSrc As Workbook, wbCur As Workbook
fldPath = "Q:PublicPAYMENTS Q&RREPORTSSuspense Activity BUSINESSOngoing - Suspense BUSINESS - Activity Reports"
Set wbCur = ActiveWorkbook
ActiveSheet.Name = "Raw Data"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.getfolder(fldPath)
On Error GoTo ErrHandler
For Each fil In fld.Files

This opens all spreadsheets within a folder and takes the data i require out of each one and pastes to a new workbook, however the files are password protected. Can you add into the code to open each spreadsheet as a readonly copy and paste data and then close without a save prompt or denying the save prompt ?

View 9 Replies View Related

Set The Macro To Read A Range Without Limitation

Jul 14, 2009

how do i set the macro to read a range without limitation?

currently i have a recording macro that only reads to P126 - if i end there data in C127:N127 I would like the macro to recognized that there is new data and update to P127 with the new calculation....

View 9 Replies View Related

Read A Date Rather Than A Line VBA Macro

Sep 30, 2009

I have the following code which reads line 54 (row 54) in a spreadsheet and calculates the following using data in subsequent columns. Sometimes the data I need isn't always in row 54, I would rather have the macro read the data in Column A[AB] that is on line 54...sometimes on 53.

The date is Sep-09. How can I make it read this rather than AB54. I think I just need changes @ the top (ie Dim rng as Range, Set rng = [AB54]).

Sub Profile_info2()
Dim rng As Range
Set rng = [AB54]
rng.FormulaR1C1 = "=RC[-12]+R[-1]C[-12]+R[-2]C[-12]"
With rng.Offset(0, 2)
.FormulaR1C1 = "=((RC[-28]+R[-1]C[-28]+R[-2]C[-28])*4)/((RC[-25]+R[-1]C[-25]+R[-2]C[-25])/3)"
.NumberFormat = "0.0"
End With
With rng.Offset(0, 3)
.FormulaR1C1 = _
"=((RC[-15]-RC[-29])+(R[-1]C[-15]-R[-1]C[-29])+(R[-2]C[-15]-R[-2]C[-29]))/(RC[-15]+R[-1]C[-15]+R[-2]C[-15])"
.Style = "Percent"
.NumberFormat = "0.0%"
End With
rng.Offset(0, 4).FormulaR1C1 = "=RC[-8]"
With rng.Offset(0, 5)
.FormulaR1C1 = "=(((RC[-17]-RC[-31])+(R[-1]C[-17]-R[-1]C[-31])+(R[-2]C[-17]-R[-2]C[-31]))*4)/((RC[-28]+R[-1]C[-28]+R[-2]C[-28])/3)"
.Style = "Percent"
End With
End Sub

View 9 Replies View Related

Vlookup Function Referencing A Formatted Cell?

May 1, 2014

I am trying to use the vlookup function but the range of reference has that little green triangle in the corner and if I f2 each cell that triangle goes away and the vlookup function works great. Do you know what is going on here? And also, a quick way to convert all the cells with the green triangle to be without the triangle in a whole range? I don't want to have to go to each cell individually and f2. I've attached an example worksheet for reference to what I am describing. vlookup format.xlsx

View 2 Replies View Related

Dates To String But Cell Formatted As Number

Feb 11, 2014

I'm working on a sheet for our accounting section which has been in use for quite some time, which means, that I'm not supposed to change a hell of a lot in it since it's accounting and everybody is afraid of changes.

Coming to the point, I have the following problem:

(1) I have a date.
(2) I need that date in this format: "mm-yyyy", written in a certain cell.
(3) BUT: the cell should NOT contain the date itself, but JUST the text (some tables in the background need this format)
(4) Changing the cell to text-format is not eligible, since it puts an " ' " in front of the numbers.
(5) The cell should be formatted as a number.

So, in conclusion:

I need a string/number with the date in this format: "mm-yyyy" in the cell formatted .NumberFormat = "0".

I'm working on an existing workbook...

I decided to add some code and a screenshot. This code will return the number, which lies behind the date, and write it into the cell. So that's not what I want, but maybe the code clarifying what I need anyway.

The screenshot shows the wanted output : screenie.png

View 14 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved