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

Příspěvky uživatele

Jejda
Taxem koukal na ten výtvor a nevím co na to říct
Na jednu stranu máte můj obdiv, to musela být neuvěřitelná trpělivost a šílená práce.

Jenže s tímhle vám nikdo neporadí, prostě proto, že se v tom nikdo nezorientuje. A za půl roku ani vy.Když jste psal pár tisíc řádků, myslel jsem v listu a vy to máte v kódu!

Formulář s 250 (a navíc ručně vytvářenými) labely je naprostá šílenost. Neberte to jako kritiku, ale je to tak.
Držím vám palce (jako každému, kdo chce něco udělat sám), ale tohle asi 100% fungovat nebude nikdy. Tohle nemůžete být schopen odladit.

Mn, když jste to naprogramoval ve 2003, tak by to tam mělo jet.

Jediné co poradím:
Spusťte soubor se zakázanými makry.
Přejměnujte makro Workbook_Open např na Workbook_Open1, prostě aby se nespustilo.
Uložte, zavřete, otevřete, povolte makra a přepněte se do editoru.
Tam krokujte makro tak dlouho, dokud to nespadne. Takhle najdete řádek, co blbne a můžete to vyřešit.

Teď nemám čas to zkoumat, ale pro ostatní

Kontingenční tabulka
Popisky řádků => Dátum
Hodnoty => Cena

Označte kterékoliv datum v KT a klikněte pravým tlačítkem
Vyberte seskupit, Označte Měsíce a Roky a dejte OK

To je vše

@Opičák
Nevím, jestli jsem ďábel, to asi ne, ale ano, excel znám dobře.

@Dingo
Zeptám se naopak, jaxte tam dostal ty římské číslice? ;))

Škoda - včera jsem tu kouknul a říkal jsem si že tu napíšu jako vždy 2 slova

KONTINGENČNÍ TABULKA

Paxem si řekl - napadne to někoho jiného?
A ... nenapadlo.

Takže koukám, že vás to bavilo, ale zase jste vymýšleli něco, co už je vymyšlené.

Ale, třeba na to budete chtít přijít
Takže žádné pomocné sloupce, ani ne minuta práce a výsledek viz obrázek.

Řekne mi někdo, jaxem to udělal?
(třeba se vám takhle ta kontingeční tabulka dostane do paměti ;) )

@LeslieBrown
příloha by byla bodla

Opět úplně zbytečný cyklus. Přitom stačí jen jeden řádek (vypisovat to vše nebudu, takže jen příklad):
Range("2:3,7:7,9:10").Delete

Pokud byste to nechtěl vypisovat ručně, můžete v prvním sešitu vybrat ty řádky které chcete mazat a potom

Dim sRowsToDelete as String
sRowsToDelete = Selection.Address
'a pak už jen
Range(sRowsToDelete).Delete

Cyklus budete muset udělat na těch 200 souborů
Nejlépe si udělejte do nějakého listu jejich seznam (celé cesty) a potom to jen pofičí ;)))

Chcem vytvoriť excel zošit, kde kazdy uzivatel bude mat vlastny harok kam si bude ukladat hesla.

Mno, vymlouvat vám to nebudu, ale ukládat hesla do excelu není moc chytré a ještě méně chytré je více uživatelů do jednoho. I kdyby měli mít každý svůj list, tak každý trochu schopný uživatel si je z toho vytáhne.

Mno pokud to musí být makrem tak už nikde tu hodnotu neukládejte, ale přesto použijte ten vzorec

Private Sub CommandButton1_Click()
With Application.WorksheetFunction
MsgBox "Hodnota poslední buňky je " & .Index(Range("A:A"), .Match(0, Range("A:A"), 0) - 1)
End With 'Application.WorksheetFunction
End Sub

Nicméně toto vám pouze řekne, jaké číslo je poslední a ne kde se nachází - ale když to tak chcete

A jen technická
Pokud přeskočíte, nebude fungovat správně

Pořád nic ;)

Zřejmě máte nesprávně nastavené vzorce, když to nepočítá to co chcete - makro ale určitě potřebovat nebudete

Abychom pochopili, vytvořte 2 listy - na jeden jak to vypadá a na druhý jak to má vypadat.

=INDEX($A$1:$A$30;POZVYHLEDAT(0;$A$1:$A$30;0)-1)

@marjankaj
Jo, už rozumím ;)

@Opičák

Sub Zobrazit()
Rows("1:65000").Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub


Sub Zobrazit()
ActiveSheet.UsedRange.EntireRow.Hidden = False
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje