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

Příspěvky uživatele

Pokud tomu rozumím:

Sub subHideRows()
Dim rRowsToHide As Range

Dim i As Integer
For i = 376 To 27 Step -1
If IsEmpty(Cells(i, 5)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 5)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 5))
End If
Else
Exit For
End If
Next

If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If

Set rRowsToHide = Nothing
End Sub

Pro tento konkrétní případ by to šlo i trošičku jednodušeji, ale doporučuji tento postup, protože pro každé další skrývání řádků, které si budte chtít naprogramovat pouze upravíte cyklus a skrývání proběhne jediným krokem. Takže je to hezčí a hlavně rychlejší.

Proč v excelu. řešte to dávkou.

Nepoužívám, nemám vyzkoušené, ale můžete vyzkoušet i toto.

http://excelplus.net/news.php?readmore=66

nějak takto?

Sub CSV()
Const DIR As String = "D:\"

Dim rData As Range
Set rData = Range("A7").CurrentRegion
Set rData = rData.Offset(1, 0).Resize(rData.Rows.Count - 1, rData.Columns.Count)

Dim w As Workbook
Set w = Workbooks.Add

Dim sFileName As String
sFileName = DIR & "FG_HOLD_" & Format(Now, "YYMMDD_HHMMSS") & ".csv"

w.Sheets(1).Cells(1).Resize(rData.Rows.Count, rData.Columns.Count).Value = rData.Value

w.SaveAs Filename:=sFileName, FileFormat:=xlCSV

Set rData = Nothing
Set w = Nothing
End Sub

nemělo by
jediné co je třeba splnit je, že list musí být odemčený

Všechny buňky v listu zamkněte (ve formátu buněk, záložka zámek)

Odemkněte buňky "AktualRadek", "HodnAktualRadku"

Zamkněte list a povolte na něm pouze výběr uzamčených a odemčených buněk

Přejděte do editoru VBA, označte List1(Leden) a v jeho vlastnostech nastavte ScrollArea na zelenou oblast (vepište adresu D14:H19)

Pak půjdou vybrat pouze zelené buňky ale nepůjdou změnit, protože jsou uzamčené

Není třeba nic vymýšlet. Excel už toto v sobě má. Vlevo dole máte šipky pro pohyb mezi oušky listů a na něj klikněte pravým tlačítkem

Proč intersect
postačí
Selection.currentregion.SpecialCells(xlCellTypeVisible).copy

nakonec se mi to povedlo pomocí vba.
Pracuji s kopií, aby bylo možné použít opakovaně.
Snad to pomůže.

verze excelu - takový drobný detail

volba kreslit prázdné buňky jako je v e2003 v nabídce nástroje - možnosti, záložka graf

nicméně pro tento typ grafu nefunguje
řešení by se dalo vymyslet, ale předpokládám, že ve firmě alespoň jeden e2007 máte...

=KDYŽ(G2=0;"";G2)

nahraďte

=KDYŽ(G2=0;NEDEF();G2)

a zkopírujte

někoho to možná překvapí, ale dá se to snadno vyřešit pomocí kontingenční tabulky. Její obrovskou výhodou je variabilita výstupu.

Ovšem jestli je to správné řešení pro vás,to nevím.

Pole čas je vytvořeno výpočtovou položkou.

Omlouvám se, ale z toho moc chytřejší nejsem
Nastavení oblasti tisku na C1:Y4 problém nevyřeší?

Jedna rada mimo
zkuste se podívat na využití funkce IFERROR(výraz;hodnota)

místo

KDYŽ(JE.CHYBHODN(výraz);hodnota;výraz) - hodnota se zobrazí při chybě v položce výraz

muselo by se vidět, aby se mohlo poradit ;))

Pokud chcete mít obsah buňky skrytý ale buňku viditelnou, nepoužívejte bílou barvu, ale vlastní formát ";;;". Jinak se vám obsah buňky při černobílém tisku vytiskne.

Řádek vzorců vždy zobrazí obsah buňky, takže byste musel mít v té buňce 10 a ne vzorec. Pokud chcete hodnotu vidět, ale netisknout, dejte ji mimo oblast tisku s běžným formátem.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje