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

Příspěvky uživatele

Tak jsem se o něco pokusil.
Je tam jeden combobox pro všechny řádky jednoho sloupce.

Musel by si do nějakého pomocného sloupce vložit
=HODNOTA(H1) / =VALUE(H1) a roztáhnout dolů

A z toho sloupce pak počítat =MAX(H:H)

zkus do C1 zapsat maticove ctrl+shift+enter
=MAX(HODNOTA(B4:B11))

Toto Ti také nejde?
Mě to do žádné chyby nepadá.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("h3") <> globalni_promenna Then

Application.EnableEvents = False

globalni_promenna = Range("h3").Value

For i = 7 To 25

If Cells(i, 2) > 0 Then
Cells(i, 5) = "='\\hepek01\Users\expedice\Dochazka\" & Range("i3") & "\[Docházka expedice " & Range("h3") & " " & Range("i3") & ".xls]" & Cells(i, 2) & "'!$G$42"
Else
Cells(i, 5) = ""
End If

If IsError(Cells(i, 5)) Then
Cells(i, 5) = 0
End If

If Cells(i, 2) > 0 Then
Cells(i, 1) = "='\\hepek01\Users\expedice\Dochazka\" & Range("i3") & "\[Docházka expedice " & Range("h3") & " " & Range("i3") & ".xls]" & Cells(i, 2) & "'!$G$7"
Else
Cells(i, 1) = ""
End If

If IsError(Cells(i, 1)) Then
Cells(i, 1) = 0
End If

Next i

Application.EnableEvents = True

End If

End Sub

Je to záhada, pro to jednodušší řešení vám nejde.
Zkoušel jsem to ještě na jiných PC s jinými verzemi SP a Windowsama...
všude mi to jde.
Pokud na to někdo přijde tak si zaslouží metál

Za první end if přidej

If IsError(Cells(i, 5)) Then
Cells(i, 5) = 0
End If

a za to druhé taky jen pouprav buňku

Ano po vyplnění požadovaných políšek v UF se do listu sloupce D uloží bez teček v požadovaném formátu

Ověření existence listu v zavřeném sešitě

Sub ExistujeList()

Dim wbkpath As String, wbk As String
Dim wbksh As String, wbkshexist As String

'nastaveni promennych
wbkpath = "c:\Users\Cmuch\Downloads\"
wbk = "cenik.xlsx"
wbksh = "List 1"
wbkshexist = "list neexistuje"

Workbooks.Open (wbkpath & wbk)

On Error GoTo shNoExist
Workbooks(wbk).Sheets(wbksh).Select
On Error GoTo 0
wbkshexist = "list existuje"

shNoExist:

Workbooks(wbk).Close False

MsgBox wbkshexist

End Sub

a v aktivním sešitě
Sub ExistujeList2()
Dim sh As Worksheet

On Error Resume Next
Set sh = ActiveWorkbook.Sheets("List1")
If Err.Number <> 0 Then
MsgBox "List neexistuje"
Err.Clear
On Error GoTo 0
Else
MsgBox "List existuje"
End If

End Sub

No mě to jde normálně.

Ale podobný problém je i tento.
http://wall.cz/index.php?m=topic&id=16190&page=1#posts

Hlavolam hadr

Tady mám nastavení TB u sebe.

Jinak tedy netuším PROČ.

Hmm tak to nevím kde je problém,
ale když to zkusím ve verzi 2003,2007,2010 tak to zobrazuje jak má.

Pokud zapíši datum ve formátu den, měsíc, rok nebo rok, měsíc, den tak to dělá co má.

Mě to taky jde normálně

Private Sub UserForm_Initialize()
TextBox1.Value = Format$(Now, "dd.mm.yyyy")
TextBox2.Value = Format$(Now, "ww - yyyy")
End Sub

Private Sub TextBox1_Change()
TextBox2.Value = Format(TextBox1.Value, "ww - yyyy")
End Sub

Asi bude chyba jinde.
Pokud to stále nepůjde bude lepší vložit ukázku.

Combobox ActiveX můžeš zobrazit kliknutím na buňku, uprav jak potřebuješ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target = Range("A1") Then

ComboBox1.Visible = True

Else

ComboBox1.Visible = False
End If
End Sub

Tak jak jsem říkal, jen trochu poupravit
LCll.Offset(0, 3).Value = Format(CISCE, "000") & "-" & Format(datum, "yyyymmdd")

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse