Userform Label

  • Thread starter Thread starter Steve
  • Start date Start date
S

Steve

HYCH

Is there anyway I can link a userform label to a cell, i want the cell
to display the current date and change accordingly.

or is there another way to accomplish this ?

Steve
 
You can just place the following function in the cell:

=TODAY()

if you want to form to assign the value you can have the user form place the
date in the cell using the following code in the UserForm_Initialize event:

Private Sub UserForm_Initialize()

ThisWorkbook.Sheets(1).Range("A1").Formula = "=TODAY()"

End Sub

Change sheet name and range accordingly
 
You can just place the following function in the cell:

=TODAY()

if you want to form to assign the value you can have the user form place the
date in the cell using the following code in the UserForm_Initialize event:

Private Sub UserForm_Initialize()

ThisWorkbook.Sheets(1).Range("A1").Formula = "=TODAY()"

End Sub

Change sheet name and range accordingly

--
Kevin Backmann








- Show quoted text -
Click to expand...

Sorry Kev,

did not make that as clear when i read it again, :(

Was looking for the Label to be updated on the userform with the date,

what i am looking for is a userform label to update itself
accordingly.

HYCH

Steve
 
You can just place the following function in the cell:

=TODAY()

if you want to form to assign the value you can have the user form place the
date in the cell using the following code in the UserForm_Initialize event:

Private Sub UserForm_Initialize()

ThisWorkbook.Sheets(1).Range("A1").Formula = "=TODAY()"

End Sub

Change sheet name and range accordingly

--
Kevin Backmann








- Show quoted text -
Click to expand...

Thanks Kevin,

having read my post again i realise i never made it clear what i am
trying to achieve,

its not the cell i want to auto update, but the label in a userform

so that when a form is opened i want the current date to appear as a
title above a textbox

is this possible

Steve
 
Got it.

Try this in the initialize event. I have a label named lblDate on the form
and it's assigned the current date.

Private Sub UserForm_Initialize()

Me.lblDate.Caption = Date

End Sub

or if you prefer the full date try this one

Private Sub UserForm_Initialize()

Me.lblDate.Caption = Format(Date, "dddd, mmmm d, yyyy")

End Sub

Hope that helps.
 
See my previous post, it's not addressing the cell modification, it addresses
modifying the form label.
 
See my previous post, it's not addressing the cell modification, it addresses
modifying the form label.
--
Kevin Backmann











- Show quoted text -
Click to expand...

Kev,

You Star, sorry for double post, was slower than i expected when i
reposted 1st time..lol



Steve
 
Kev,

You Star, sorry for double post, was slower than i expected when i
reposted 1st time..lol

Steve- Hide quoted text -

- Show quoted text -
Click to expand...

Kev,

Managed to get the following working thanks to you for your help,

Private Sub UserForm_Initialize()
Me.Label1.Caption = Format(Range("q12"), "ddd dd mmm")
Me.Label2.Caption = Format(Range("q13"), "ddd dd mmm")
Me.Label3.Caption = Format(Range("q14"), "ddd dd mmm")
Me.Label4.Caption = Format(Range("q15"), "ddd dd mmm")
Me.Label5.Caption = Format(Range("q16"), "ddd dd mmm")
Me.Label6.Caption = Format(Range("q17"), "ddd dd mmm")
Me.Label7.Caption = Format(Range("q18"), "ddd dd mmm")
End Sub

have 7 label, originally each was labelled day 1, day 2, etc


Much appreciation on the assistance :)

Steve
 
Back
Top