creating dates "database" in-a-row

  • Thread starter Thread starter yadaaa
  • Start date Start date
Y

yadaaa

Hi again.

let say i have 3 columns:

year month day
2006 06 23

i want to concatenate them to a new cell, same row to one date
23-06-2006.
That i know how to do.

BUT

I want that every time i enter in the same 3 cells, same row,
different date, it will add a new cell near the old concatenate cell
meaning:

first date" 23-06-2006". punching new date inthe same cells,

"23-06-2006" "25-07-2006"
and so on.

help :
 
Try this event in the Sheet module
year month day
2006 06 23
Click to expand...

I use col A,B,C

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Column < 4 Then
Set rng = Range("IV" & Target.Row).End(xlToLeft).Offset(0, 1)
If rng.Column < 4 Then Exit Sub
rng.Value = DateSerial(Cells(Target.Row, 1), Cells(Target.Row, 2), Cells(Target.Row, 3))
End If
End Sub
 
Thanx for the reply,

when i type in 3 col the first time, it does add a new cell, but fill
with #######

when i re-type the same cells, for EACH cell it adds a cell, meaning
new cells instead of one, again filled with #########

:confused
 
Im sorry, but im a VBA Dummy.
what do you mean?

i tried entering 22222, but it givers a runtime error.
 
Make your colums width bigger then you see the date

But now every time you change one of the cells in A,B,C it create a new date
Is this what you want ?

Why not add a button that run a macro when you are satisfied with the input of A,B and C
 
Thank you very much Ron,

yes, i need to enter the whole 3 cells every time, before it creates
new cell.
would it be to much to ask for the method of creating this button? tha
would concatanate to a new cell each time in the same row.

TI
 
would it be to much to ask for the method of creating this button

No problem

Insert a button from the Forms toolbar and assign this macro to it
Note: it insert the date in the row of the activecell and I use a sheet with the name "Sheet1"

I format the date like this "dd-mmm-yyyy" but you can change that

There is no error checking in this example, if you need help with that post back

Sub test()
Dim rng As Range
With Sheets("Sheet1")
Set rng = .Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1)
rng.Value = Format(DateSerial(.Cells(ActiveCell.Row, 1), .Cells(ActiveCell.Row, 2), _
.Cells(ActiveCell.Row, 3)), "dd-mmm-yyyy")
End With
End Sub
 
It works just fine :)

how can i make the button "float" (not move when scrolling)
can the dates be in text format and not date format? i need to us
autofilter on them, so i need it to be text.
:
 
Back
Top