Příspěvky uživatele

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

Dotazník-formulář (19.1.2016 20:22)

A musíte to tvořit v Excelu? Google formuláře nevyhovují?
(https://www.google.cz/intl/cs/forms/about/)
P.

VBA - Skrýt list na základě podmínky (12.1.2016 19:42)

Například nějak takto.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1") = 1 Then
Sheets("List2").Visible = False
Else
Sheets("List2").Visible = True
End If

End Sub

Podmínka (12.1.2016 15:37)

Jedna z možností s využitím "Select" a "On Error GoTo".
P.

Př.:
Sub Overeni_existence_TextBoxu()
Dim msg As Byte

On Error GoTo Neexistuje
Sheets(List1.Name).TextBox1.Select
msg = MsgBox("Existuje")
Exit Sub

Neexistuje:
msg = MsgBox("Neexistuje")
End Sub

uzamknutie zositu tak aby filter zostal funkcny (10.1.2016 21:37)

Podle mě tedy nechceš zamknout sešit, ale chceš zamknout list (listy). To lze přes to tlačítko vedle: "Zamknout list". V nastavení pak můžeš zatržítky navolit, co přesně bude uživateli povoleno. V tvém případě tam navíc zaškrtni: "Použít automatický filtr".
P.

uzamknutie zositu tak aby filter zostal funkcny (10.1.2016 14:42)

Na kartě Revize klikni na tlačítko "Zamknout sešit".
P.

uzamknutie zositu tak aby filter zostal funkcny (10.1.2016 13:01)

V jaké verzi Excelu ti to nejde? Zkoušel jsem v 2010, a nemám problém.
P.

výška a šířka sloupce (31.12.2015 12:48)

Například nějak takto.
P.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").RowHeight = Range("A1").Value
Range("A1").ColumnWidth = Range("A1").Value
End Sub

výška a šířka sloupce (31.12.2015 3:10)

Automaticky (pro přesná čísla) jedině s VBA přes událost listu.
P.

měnící se odkaz na list ve vzorci (30.12.2015 16:32)

Např. nějak takto.
P.

=NEPŘÍMÝ.ODKAZ("'T" & L1 & ". 2015'!M4";PRAVDA)

automatické vytvoření složky na základě hodnot (30.12.2015 16:20)

Já bych to řešil asi nějak takto, přes událost listu.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim posledni_obsazeny_radek As Long
Dim cesta_ke_slozce As String
Dim i As Long

posledni_obsazeny_radek = Sheets(List1.Name).Range("A100000").End(xlUp).Row

For i = 1 To posledni_obsazeny_radek
If Sheets(List1.Name).Range("A" & i).Value <> "" And Sheets(List1.Name).Range("B" & i).Value <> "" Then
cesta_ke_slozce = "C:\" & Sheets(List1.Name).Range("A" & i).Value & " - " & Sheets(List1.Name).Range("B" & i).Value
If Len(Dir(cesta_ke_slozce, vbDirectory)) = 0 Then
MkDir cesta_ke_slozce
End If
End If
Next i

End Sub