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

Příspěvky uživatele

jedna se o problem, ktery se resil tady, http://wall.cz/index.php?m=topic&id=18030
vsiml jsem si jeste jedne chyby

do formulare se mi neprepisuje cislo z tabulky, ale dava mi tam automaticky nulu, to kdyz dam znovu vlozit, tak mi to zmeni vysledek. chapu, proc to tam je, ale jak napsat "h:mm:ss.0", aby misto nuly byla zkratka setin, na tu jsem nikde nenarazil.

If UserForm1.TextBox1.Text <> "" Then
i = 4


Do While i < PosledniPlnyRadek

If Cells(i + 1, 2).Value = UserForm1.TextBox1.Text Then
For j = 2 To 4
UserForm1.Controls("TextBox" & j).Text = Cells(i + 1, j + 1).Text
UserForm1.TextBox5.Text = Cells(i + 1, 1).Text
UserForm1.TextBox6.Text = Cells(i + 1, 7).Text
UserForm1.TextBox7.Text = Cells(i + 1, 8).Text
UserForm1.TextBox8.Text = Cells(i + 1, 6).Text
UserForm1.TextBox9.Text = Cells(i + 1, 10).Text
UserForm1.TextBox2.Text = Format(Cells(i + 1, 3), "h:mm:ss.0")
Next j
End If

i = i + 1

zaskrtnul, nefunguje,

ahoj, tak jeste jednou a snad naposled. chci se zeptat, jestli jde nejak zadat, aby se mi urcity excel dokument vzdy otevrel minilizovany do dvou oken, i kdyz mam excel nastaven na maximalizaci. viz foto.

dekuji, tak to bohate staci, nejak jsem to tam dal, upravil a funguje to, ve formulari to mam ve formatu s teckou.
jeste jednou dik

tu tecku tam zadavam pri vstupu z formulare, pri vlozit se to vlozi do tabulky, kde je jiz pak carka, ale ve formulari se mi pak uz objevi taky carka. a to kdyz dam znovu vlozit, tak mi to udela tu neplechu v tech vysledcich. nevim, jak aspon docilit toho, at ve formulari je vzdy tecka, i kdyz to bere data z tabulky, kde je carka

ano s textem, jinak mi to tam hodilo misto casu dlouhe cislo..treba 5.01388888888889E-02 misto 1:12:12,0.
v excelu je zadan format bunek na h:mm:ss,0

kod toho formulare je takovy:
Option Explicit

Dim id As Integer, i As Integer, j As Integer, PosledniPlnyRadek As Long

Sub GetData()

PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row + 1

If UserForm1.TextBox1.Text <> "" Then
i = 4


Do While i < PosledniPlnyRadek

If Cells(i + 1, 2).Value = UserForm1.TextBox1.Text Then
For j = 2 To 4
UserForm1.Controls("TextBox" & j).Text = Cells(i + 1, j + 1).Text
UserForm1.TextBox5.Text = Cells(i + 1, 1).Text
UserForm1.TextBox6.Text = Cells(i + 1, 7).Text
UserForm1.TextBox7.Text = Cells(i + 1, 8).Text
UserForm1.TextBox8.Text = Cells(i + 1, 6).Text
UserForm1.TextBox9.Text = Cells(i + 1, 10).Text
Next j
End If

i = i + 1

Loop
Else
ClearForm
End If

End Sub

Sub ClearForm()

For j = 1 To 9
UserForm1.Controls("TextBox" & j).Text = ""
Next j

End Sub

Sub EditAdd()

Dim emptyRow As Long, flag As Boolean, PosledniPlnyRadek As Long

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

If UserForm1.TextBox1.Text <> "" Then

flag = False
i = 4
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row + 1

Do While i < PosledniPlnyRadek

If Cells(i + 1, 2).Value = UserForm1.TextBox1.Text Then
flag = True
For j = 2 To 4
Cells(i + 1, j + 1).Value = UserForm1.Controls("TextBox" & j).Text
Cells(i + 1, 1).Value = UserForm1.TextBox5.Text
Cells(i + 1, 7).Value = UserForm1.TextBox6.Text
Cells(i + 1, 8).Value = UserForm1.TextBox7.Text
Cells(i + 1, 6).Value = UserForm1.TextBox8.Text

Next j
End If

i = i + 1

Loop

Windows(Range("L1").Text & ":2").Activate
ActiveSheet.PivotTables("absolutni").PivotCache.Refresh
Windows(Range("L1").Text & ":1").Activate
Else

End If

If flag = False Then

MsgBox "Startovní číslo neexistuje"

End If

End Sub

ahoj, mam jeste jeden problem, kdyz zadavam cas pres formular, tak musim zadat u setin tecku, at se to spravne zobrazi, tak jak chci. u vysledku se skrytymi setinami. ale po obnove mi to tam automaticky hodi carku a pak se to chova spatne, i u vysledku mam videt carku a setiny. jde nejak nastavit, aby formular bral jako hlavni oddelovac destetinnych mist carku? a zobrazovalo se to tak, jako bych pouzil tecku? nechci to resit nastavenim excelu, tam to jde vypnout, ale kdyby to pouzival nekdo jiny, tak nevi, ze si to ma prepnout, ci pouzivat pri psani setin ve formulari tecku

Ahoj, všiml jsem si, že když dám v tabulce odstranit nějaký řadek, změní se mi pořadí podmínek v podmíněném formatování a nefunguje to pak, jak má. nevíte, jak to udělat, ať se nemění pořadí?
dík za rady

super, diky moc

chci za H napsat cislo posledniho radku a tim urcit oblast tisku, ale nevim jak, haze mi to chybu. poradite?
dik

Sub tlačítko3_Kliknutí()

PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row ' Ve sloupci C
MsgBox "Poslední obsazený řádek má číslo: " & PosledniPlnyRadek

Sheets("Celkove").PageSetup.PrintArea = "$A$1:$H$ & PosledniPlnyRadek"
Sheets("A").PageSetup.PrintArea = "$A$1:$H$23"
Tisk.Show
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse