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

Příspěvky uživatele

Prosím o konzultaci. Zkopíroval jsem data do sešitu (CTR+C a CTR+V)....sešit PO ULOŽENÍ narostl o 10MB. Když jsem sešit otevřel a data jsem ze sešitu vymazal (DELETE), tak má sešit po uzavření stále stejně, ani b neubyl.
Nevíte někdo proč se tak děje? Nemá excel ten copy proces někde uložený v paměti, popřípadě jak to vymazat?
Už jsem z toho JELEN...Díky za radu..

Díky všem za reakce a za pomoc...

To je dobrý...:-)
Já jsem se právě snažil najít řešení pro svůj projekt v UF a pro přechod mezi ostatními Page prostřednictvím odkazů na ně. Tohle asi nevyužiji, odkazů by tam bylo na desítky a tohle je takové moc krkolomné řešení. Uvidím ještě, zatím si pohrávám s myšlenkou se na odkazování vykašlat:-)

Jojo, už to maká (po doplnění závorky), děkuji. Nepochopil jsem, že to mám přidat do kódu, ale už je to OK:-)

Pokud nebude dělat neplechu to rozmezí Od do. Zkusil jsem teda zadat jen třetí sloupec, ale stejně se nemohu dopracovat žádaného výsledku.

Nevím jak je to možné, ale hláška reaguje na každý vyplněný řádek. Do posledního řešení jsem pouze doplnil celý text MsgBoxu. Tak snad jsem to nepo...

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountA(Range(Cells(73, 2), Cells(73, 10))) > 0 Then MsgBox "Toto je poslední položka, kterou lze vložit!", vbInformation, "POZOR"
End Sub

No tak tudy cesta nevedla...sice se zobrazila hláška, ale zobrazovala se na každém řádku:-) Takže omluva, ale nejde to:-(

Tak je to ok, změnil jsem hlaska = False na True a už to maká. Děkuji:-)

Nefunguje. Zkoušel jsem za 'zbytek kódu a nechat tam jen ten tvůj, ale hláška se nezobrazí...

Ahoj, díky. Ano, pokud bude vyplněno tak se zobrazí hláška. Teď koukám, že událost již na listu je. Tak jsem zkoušel část kódu přidat kní, ale nějak tam tu podmínku nemohu zapracovat. Zde je celý kód:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
'If Range("Autozobrazradky") Then
'Else
If Not Intersect(Target, Range("C26:L373")) Is Nothing Then

If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If

End If
Application.ScreenUpdating = True
Exit Sub

If IsEmpty(Cells(73, 2)) = False And IsEmpty(Cells(73, 10)) = False Then
MsgBox "Toto je poslední položka kterou jde vložit!", vbInformation, "POZOR"
Exit Sub
End If

End Sub

Zdravím...
Jak zadat do listu níže uvedený MsgBox aby se aktivoval pokud bude na řádku 73 vyplněna některá buňka od 2 sloupce do 10 sloupce. Problém bude na začátku Private Sub.... jelikož nevím jak podmínku aktivovat:-(
Private Sub Worksheet_Change( As Range)
If IsEmpty(Cells(73, 2)) = False And IsEmpty(Cells(73, 10)) = False Then
MsgBox "Toto je poslední položka kterou jde vložit!", vbInformation, "POZOR"
Exit Sub
End If
End Sub

Jojo, tak tohle mě nenapadlo, díky. Jen je škoda, že nejde odkazovat přímo na číslo Page, ale jen na pořadí jak jdou za sebou. Musím tedy odkaz vyřešit až budu mít na pevno ujasněné pořadí Page.

V UF mám umístěnou MultiPage1 a zajímá mě, zda jde z jedné Page pomocí objektu Image3 odkazovat na jinou Page.
Zkoušel jsem UserForm1.MultiPage1("Page12").Activate a spoustu dalších možností, ale nemohu na to přijít. Díky za radu.
M.

Super díky moc...

Narazil jsem na problém při vkládání do formuláře. Pokud mám v ceníku mezi obsazenými položkami jednu prázdnou buňku, tak vkládání položek začne na té prázdné buňce a všechny původní položky pod ní se přepíší a to je špatně. Šlo by to nějak ošetřit, aby se před vložením vyhledal poslední obsazený řádek a od něho začal zápis??

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje