i have this concatenate problem from dates... see the attached file. if i copy and paste as special value.. it puts the date values aswell.. i cant seem to put there only numbers.. if i wanted to use concatenate..
View 2 Replies
VBA code to use input box result in a Concatenate function.
Sub test()
Dim DistName
DistName = Application.InputBox("Enter District Name")
ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-2]C[1],"" Diabetes Dist"")"
End Sub
I want to replace R[-2]C[1] with the result from the input box.
I have two cells. Cell A1 contains ‘The date is ’ cell B1 is formatted in the date format, 2007-01-24. I need to concatenate these two cells so that on cell C1 I have ‘The date is 2007-01-24’ but whatever I try excel keeps on changing the date to a text value and hence I am left with: ‘The date is ‘This is the date'39141 or this is the date 39141. how to get to the result that I am after?
View 5 Replies View RelatedI'm having a problem getting the date to show up when I add the date as a referenced cell to a formula using CONCATENATE. The date shows up as a serial value instead of a date format. The formula that I'm trying to get to work is in cell J7 on the attached file.
View 3 Replies View RelatedI am using the concatenate function, however my date field, instead of maintaining its 08/07/07 state, changes to the annoying 5 digit 33935 number.
Even if I cut and paste it as special / values, it stays as the 5 digit number. Can this be avoided somehow?
I have a input box that prompts a user to enter a date of a new month - it has to be the 1st of a new month. I have validation that it is a date that has been entered but then i want to validate the date entered is a month ahead of a date in a cell range on a sheet.
It is a monthly reset so it has to roll on from the previous month.
Here is what i have currently but it isn't working.
Code:
' Get user to input the first day of the new month to populate all dates with
dNewMonth = InputBox(Prompt:="Enter first Day of the new Month. Must be the 1st of the Month e.g. 01/10/2012", _
Title:="Enter Date")
' Validates the entered date is a valid date
If (IsDate(dNewMonth) = False) Then
[Code]...
based on user date ranges entered on sheet1, I'm trying to write code that will write each month of the date range on other sheets across the 2nd row. at this point I'm getting "object required" error at "Set DateStart = Cells(2, 6)"
I also want the date format to be mmm-yy (Mar 14) on the sheets even if sheet1 has a different format. I tried using sourcerange instead of DateStart, but that didnt work either.
Code:
Dim projStartDate As Date
Dim projEndDate As Date
Dim DateStart As Date[code]....
I am concatenating a date with some text. However, after concatenating, the date becomes a text string. How do I preserve the date format? Pls see the attached file.
View 3 Replies View RelatedI have a date, 03/17/2007, in column A
I have the word, Cashiers in column B
I want to concatenate the 2 and use this in a vlookup. Can this be done? If so could someone explain please?
I keep getting the N/A error on this.
when i concatenate two cells (the word "excel" and today's date), i get
excel 39183...? i would like: excel 4/11/2007
I'm using nested SUBSTITUTE formula to make some changes to the some of the data. I'm also using IFERROR to return the input if it does not find the criteria I have specified. I have lot of variations in my input data.
The formula works fine for all except for date format input.
Sample:
N90232Y09--->SUBSTITUTE(A1,"N","")-->90232Y09
12335--->12335
12/3/1923---->58936 (I want the date to be retained)
why the date format is changed even if don't specify any changes for it. I expect my IFERROR to just retain the input as it is.
how can i merge Date 1 and Time 1 into a cell ? And give me mm/dd/yyyy hh:mm format? And then a subtraction on 9/3/2008 0:00:40 - 9/2/200823:31:25, which give me a hh:mm:ss result?
View 5 Replies View RelatedWhat i need is to be able to concatenate a field such that it includes current system year,month,day and time. My attached spreadsheet illustrates my current formatting to achieve year,month,day. But I seem to be challenged in getting the current time to display properly.
View 4 Replies View RelatedI am trying to concatinate a cell to show both text and date (in format mmmm dd yyyy) using a vlookup from another worksheet.
Below is the coding I have in the cell:
="High Importance Request - effective " & VLOOKUP(1,'Fuel Surcharge Key Dates'!$A$6:$E$65536,2,FALSE)
The result I get in the cell from the formula is: I still get it to come out to 39327 instead of June 4 2007
The vlookup in the formula above retrieves a date that has a cell custom formatted to mmmm d, yyyy ... as this cell is not a date that is entered by a user but is further retrieved by another vlookup of dates. Even if I place the VLOOKUP in cell A3, reformat that cell to be a date and change the coding in the formula to:
="High Importance Request - effective " & A3. I still get it to come out to 39327 instead of June 4 2007
Say in L4 on form test i want to look for the value of A4 in Drill data range a2 to z1000 and retun a concatenated string of something like "sav 407 : 08-may to 11-may"
View 3 Replies View RelatedI have attached a spreadsheet illustrating my query.
I would like to run a sub procedure called generatedataset then I'd like to enter a date from column J (starting from J4) into G12 ( cell G12 is a named range called effective_date). Then enter the concatenation of the adjacent cells K4 and L4 and place this into cell G9 (cell G9 is a named range called dataset_name). Then call the procedure again. Repeating for all values in range starting at J4 extending down, and for all corresponding concatenated values in K and L.
Data would always be taken from columns J or K&L and placed in the same cells ie G12 (named range effective_date) and G9 (named range dataset_name) respectively.
My macro asks for a user input in DD-MM-YY format (which is the same format of all cells in the Excel worksheet).
I then instruct the macro to paste the string into cell A1 in 'TEST' sheet.
However when it pastes in the format is MM-DD-YY with the user input DD being the worksheet MM etc.
For example 06-04-14 becomes 04-06-14.
My code is below:
[Code] ......
Attached File : TEST.xlsm‎
I have the following formula:
=CONCATENATE("EXP: ",TEXT(AK2," MM/DD/YY")," ","VP DATE ",TEXT(AL2," MM/DD/YY"))
But if both cells are empty I get : EXP: VP DATE
If only one is empty, i get EXP: 08/26/19 VP DATE or EXP: VP DATE 06/27/14
But I do not want EXP: or VP Date text to show if the content of the AK# or AL# is empty. I figured I will place something like If(ak#="","",
But it give me a "Too many arguments" error.
I need to compare the date from the user input and the date listed on excel. How can I compare it? Is it correct? lngCmp = Val( Cells(I, 31))
Dim lngBegin As Long, lngEnd As Long, lngCmp As Date, lngResults As Long
lngBegin = 9 'beggining of data
lngEnd = 232 'end of data
lngCmp = InputBox("Please enter the date", "Begining of the week")
Lngcmp1 = DateAdd("d", 1, lngCmp)
lngCmp2 = DateAdd("d", 2, lngCmp)
lngCmp3 = DateAdd("d", 3, lngCmp)
lngCmp4 = DateAdd("d", 4, lngCmp)
lngCmp5 = DateAdd("d", 5, lngCmp)
'lngCmp1 = lngCmp + 1
'lngCmp2 = lngCmp + 2
'lngCmp3 = lngCmp + 3
'lngCmp4 = lngCmp + 4
'lngCmp5 = lngCmp + 5
lngResults = 0
lngResults1 = 0
lngResults2 = 0..................................
I have a list of P/N's that are used in more then one location. and it's sorted by P/N's.
ColA__ColB__ColC
______Loc___PN
______1_____A
______2_____A
______3_____B
______4_____C
______5_____C
I Want to be able to put in Col A the concatenate results of all equal P/N's from any given list. Or at least select the few cells that i know are duplicates and from that copy the Location to a single Column.
ColA ColB__ColC
______Loc__PN
1,2____1___A
_______2___A
_______3___B
4,5____4___C
_______5___C
Sampling table :
one
two
three
four
one
two
three
one
two
one
Desired results obtained via IF =IF(B2>0,A2&" , ",A2)&IF(C2>0,B2&" , ",B2)&IF(D2>0,C2&" , ",C2)&IF(D2>0,D2,"")
one , two , three , four
one , two , three
one , two
one
Is there any smarter, shorter formula via Concatenate and Substitute or other formulas ?
My closest match, but not good enaugh is =SUBSTITUTE(CONCATENATE(A2&", "&B2&", "&C2&", "&D2), ", , ", " ")
[ returna 2 commad ]
one, two, three, four
one, two, three,
one, two
one ,
I am running excel 2003. I am creating a book that needs date & time input on every row. I am trying to input this automatically based on adjacent cell being >0. Every time there is a new input, the previous dates / times update to the latest one.
View 5 Replies View RelatedI need to have users input a date range for a report and then use that to autofilter a query from a database.
I think I have it close, but I can't tell what I'm missing. I can see the InputBox dates if I put them into a cell. And the criteria operators come up correct in the Autofilter, but the value shows as Starting and Ending, so it's filtering out everything.
I have the below code that when the spreadsheet opens input boxes pop up. The first asking to put the date in, but how can i make sure that the user does not put "todays date" in at anytime! (the date put into the inputbox (cell d2) should always be less than the date in b2 = todays date). As cell b2 in the sheet "97008390" already has todays date in. (using =today()).
View 4 Replies View RelatedI have a VBA code that works really well but i wondering if there is a way to do the same thing but without the message box and just enter in the dates instead.
View 11 Replies View RelatedI would like to bring up an input box when a button is pressed containing the text "which number do you want to update".
The user would then enter a number eg 101 and then by clicking ok, todays date (in the format MMM/YY) would be entered into cell J101 in Sheet5.
I have an input box that requires the user to enter a date or accept today's date, which is the default, and when they click ok it is entered in cell "Data!D25". I want the format to be "yyyy-mm-dd". I have set the cell "Data!D25" to automatically use this format if I type the date directly into the cell by typing "yyyymmdd" without the dashes but when they type in the input box without the dashes, the result in the "Data!D25" cell is "############".
How can I correct this?
Code:
Sub PrintForms()
' Dim StartRow As Integer
' Dim EndRow As Integer
' Dim Msg As String
' Dim I As Integer
[Code]...
So, the macro I'm working on is working great, except for the date autofill.
The macro has an inputbox that requests the date of report from the user. This is manually entered into a textbox. Instead of filling the same date to the last used row, it goes up in incriments of years. IE: (A1) 04/01/2013, (A2) 04/01/2014, (A3) 04/01/2015, etc.
I was thinking a Copy/Paste to the last row would work, but I can't figure out how to do that. ("DateOK" is the name of my OK button, and "ReportDate" is the name of the textbox.)
Here's my code:
Private Sub DateOK_Click() Range("A2").Value = ReportDate
Range("A2").AutoFill Destination:=Range("A2:A" & Range("B" & Rows.Count) _
.End(xlUp).Row), Type:=xlFillSeries
Application.CutCopyMode = False
ReportDate = Empty
DateForm.Hide
End Sub
I would like to enter a date from an input box(which i have entered in the code below), this would then lookup in column F and find all rows and copy them to relevant sheet 7 days from the date entered.
E.g. if 24/11/2006 this would bring back all rows which from the 17/11/2006
Sub FindMe()
Dim intS As Integer
Dim rngC As Range
Dim strToFind As String, FirstAddress As String
Dim wSht As Worksheet
Dim rngSearch As Range
Dim strToFind1 As String
Dim rngC1 As Range
Application.ScreenUpdating = False
intS = 1
Set rngSearch = Worksheets("Template").Range("a3:z20000")
Set wSht = Worksheets("Closed Issues")
strToFind = InputBox("Enter the title to find").................
I have made a MsgBox which opens on Workbook opening with a message as follows:
View 4 Replies View Related
