• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Ja jsem myslel, že má být v D sloupci vždy dnešní datum Ted je tedy ve sl. D datum napsané do tb bez teček.

název listu v otevřeném nebo zavřeném sešitu ?

to co navrhoval cmuch

to mám nastavený stejně. tvoje textboxy u mě vypadají takto.
edit: tedy samozřejmě až po editaci tb1

já mám 2010 a userform se zobrazí tak, jak tobě, ale jakmile přepíšu TB1 , tak se TB2 zobrazí stejně jako TB1. Takže záhada hlavolamu ?

@ cmuch

mě ne. Mě to i do tb2 napíše datum, stejně jako je v tb1, ale on tam chce týden -rok

vypuštěné nějaké ptákoviny:

Private Sub TextBox1_Change()
On Error GoTo str_error
c = Split(TextBox1, ".")
xrok = c(2): xmes = c(1): xden = c(0)
xdat = xrok & "/" & xmes & "/" & xden
xdat = DateValue(xdat)
TextBox2.Value = Format$(xdat, "ww - yyyy")
Exit Sub
str_error:
TextBox2.Value = "nesprávný format data"
On Error GoTo 0
End Sub

Mě to opisuje jen datum, tak jak píše Ma22.

zkus to takhle:
Private Sub UserForm_Initialize()
TextBox1.Value = Format$(Now, "dd.mm.yyyy")
TextBox2.Value = Format$(Now, "ww - yyyy")
End Sub
Private Sub TextBox1_Change()
On Error GoTo str_error
TextBox2.Value = TextBox1.Value
c = Split(TextBox2, ".")
xrok = CDbl(c(2)): xmes = CDbl(c(1)): xden = CDbl(c(0))
xdat = xrok & "/" & xmes & "/" & xden
xdat = DateValue(xdat)
TextBox2.Value = Format$(xdat, "ww - yyyy")
On Error GoTo 0
Exit Sub
str_error:
TextBox2.Value = "nesprávný format data"
On Error GoTo 0
End Sub

nebo prvky formuláře

pomocí Active X

změnil jsem to i pro měsíc, potože i ten může být jednociferný

edit:
sloupec B zapisuje datum ve formátu textu, což by asi nemělo být

?

Bez příkladu a kodu to bude možná pořád pokus - omyl.

Mr.Excel.com

Něco jsem tam změnil, ale v principu bych to řešil jinak.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje