Příspěvky uživatele

< návrat zpět

Strana: 1 ... « předchozí 26 27 28 29 30 31 32 33 34 další » ... 77

Složené číslo objednávky (10.11.2013 15:17)

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.

ověření existence listu (10.11.2013 13:43)

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

Combobox místo rozbalovacího seznamu (10.11.2013 12:48)

to co navrhoval cmuch

Textbox převod data (10.11.2013 12:32)

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

Textbox převod data (10.11.2013 12:18)

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 ?

Textbox převod data (10.11.2013 12:08)

@ cmuch

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

Textbox převod data (10.11.2013 12:05)

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

Textbox převod data (10.11.2013 11:46)

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