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

Příspěvky uživatele

Jen ignoruje 4 prázdné řádky za sebou

Na kód od cmucha jste reagoval stejně. Pomohla ta jeho úprava?

Mně to nedělá. Testováno na vašem vzorku v E2003 a E2007, data jsem si dal až na poslední řádek a posunulo jak mělo. Jinak bych sem nedával.

Mimochodem - do kódu jsem přidal vypnutí přepočtu listu - spustil jsem s jiným souborem a projevilo se to

Místo
=Zadání!F5
dejte např. vzorec
=POSUN(Zadání!$F$4;(ŘÁDEK(C3)+2-ŘÁDEK($C$2))/3;0)
a pak kopírujte.

Jestli teda dobře rozumím

@marjankaj
Ano pomocí VBA je to jasné a asi relativně snadné.
NAHRADIT mně taky napadlo, boužel jak píšete by to bylo složité.

Škoda že není "reverzní funkce" k HODNOTA.NA.TEXT - tedy já o ni nevím a proto se ptám - nic jsem nenašel.

Něco jako HODNOTA, ale s parametrem, v jakém formátu je text, takže nějak
=HODNOTA("20-Dec-2012";"[$-409]d-mmm-rrrr")

Na druhou stranu si nevzpomínám, že bych něco takového někdy dělal ...
;))

@AL
1. Dalo by se souhlasit ... ;))
To automatické tam nebylo, takže jsem se chtěl vyhnout VBA. Ovšem, nevím, jestli je to blbuvzdorné.
2. To máte co za systém? Win98? WinXP a výše už mají zip integrovaný (pravé tlačítko -> odeslat do archivu zip), nebo se pletu?
Ne že by na tom záleželo, pořád lepší rar, který otevřu "nepohodlně" ;) pomocí FreeCommanderu, než uložto apod.

A k tomu co napsal JuPa:
Rozšířený filtr je fajn, souhlasím, dal by se využít, nicméně se pořád domnívám, že to jde udělat i jinak.
Napadá mně už teď několik způsobů jak to udělat. Filtr, rozšířený filtr, kontingenční tabulka, VBA na x způsobů - takže ano jde to jinak. Stačí si jen si vybrat. ;)

Těžko říct
Asi proměnná na úrovni modulu, např:

Public iPage as byte
iPage = hodnota z 1. Userform1

Pak v Userform2 načíst tu hodnotu z iPage
jinak to nepude
ale bez přílohy ...

No - pokud se napřed jeden zavře a pak druhý otevře, tak si nejdříve hodnotu z prvního načtěte do proměnné a a potom v druhém ji natáhněte z ní.

Uff - za celou dobu, co dělám s excelem, jsem měl 2 najednou otevřené formuláře pouze několikrát, ale neměly spolu nic společného (jeden něco vyplňoval a druhý mi zobrazil skryté řádky). Natož abych propojoval jejich MultiPage. Co to propánakrále programujete? ;))))

Nebudu si to vytvářet, takže nemůžu odzkoušet, jen tipuji něco takového
Userform1.MultiPage1.Value = Userform2.MultiPage1.Pages("Page3").Index
A ještě tipuji, že oba musí být načtené (mohou být skryté)

Když už jsem to dělal ;)

Minimalizace přístupů na list = rychlejší kód
Oblast $A$6:$K$43 jsem si dal do názvu Data
Sub subReplaceData()
'Data: =List1!$A$6:$K$43

Dim lCalc As Long
lCalc = Application.Calculation
Application.Calculation = xlCalculationManual

With Names("Data").RefersToRange

.Value = .Value 'převede buňky, které se tváří jako prázdné na opravdu prázdné

Dim rData As Range
On Error Resume Next
Set rData = Intersect(.Cells, .SpecialCells(xlCellTypeConstants).EntireRow)
On Error GoTo 0

If Not rData Is Nothing Then
Dim vValues() As Variant
ReDim vValues(0)
Dim rArea As Range
For Each rArea In rData.Areas
If IsEmpty(vValues(0)) Then
vValues(0) = rArea.Value
Else
ReDim Preserve vValues(UBound(vValues) + 1)
vValues(UBound(vValues)) = rArea.Value
End If
Next rArea
Set rArea = Nothing

.ClearContents

Dim iRow As Long
iRow = 1
Dim v As Variant
For Each v In vValues
.Cells(iRow, 1).Resize(UBound(v, 1), UBound(v, 2)).Value = v
iRow = iRow + UBound(v, 1)
Next v

End If

End With 'Names("Data").RefersToRange

Application.Calculation = lCalc

Set rData = Nothing
End Sub

Edit:
Vypnutí kalkulací

@AL
Mám 2 dotazy
1. Proč si myslíte, že je to jednodušší, než k tomu určený Rozšířený filtr, respektive mnou používaný Filtr + 2 kliknutí + 4 dvojhmaty
2. Proč používáte rar, když všichni máme v PC zip ;)))

;)
Náš ústav se vám, pane Hudečku, mými ústy co nejsrdečněji omlouvá za toto politování hodné přehlédnutí, ke kterému dochází maximálně jednou za deset let!

"Mapu znakov nájdeš určite na nete. Ale nie je problém si ju vygenerovať."

Zmátlo mně to vygenerovat mapu znaků a na nic jiného jsem se už nesoustředil ;)

@Opičák
Vidíte, to mně nenapadlo - zeptat se, zda autor nemá anglický excel - pak by bylo vše "easy" ;)

Když jsem viděl to zadání, tak mně hned napadlo to převést na číslo.

vzorec=HODNOTA.NA.TEXT(41263;"d-mmmm-rrrr")vrátí 20-prosinec-2012

inverzně =HODNOTA("20-pro-2012")vrátí 41263

vzorec=HODNOTA.NA.TEXT(41263;"[$-409]d-mmm-rrrr")vrátí tvar ze zadání 20-Dec-2012
jenže v lokalizované verzi =HODNOTA("20-Dec-2012")vrátí samozřejmě chybu ;)
Napadá někoho, jak snadno převést anglické datum na číslo v lokalizované verzi excelu?

Není zač.
Jak říkám, je to standard, takže jsem nic nevymyslel ;)

Pokud by vás to zajímalo, tak já to dělám opravdu "nepohodlně" pomocí filtr+pouze viditelné buňky
není třeba nic pojmenovávat, většinou stačí CTRL+SHIFT+šipka dolů, ALT+;, CTRL+C, CTRL+V

Mno, když myslíte, že je to nepohodlné ;)

tak zkuste Rozšířený filtr
http://excel-navod.fotopulos.net/tabulka/rozsirenyfiltr.html

Data->Seřadit a filtrovat->Upřesnit

Ty sloupce si pojmenujte - např. B=>měsíc, C=>hodnota
do E2 napište měsíc
do E3 napište leden

Pro oblast seznamu B2:C26, oblast kritérií E2:E3
a kopírujte jinam
pak smažte první sloupec

Makro vám schválně nenabízím, protože toto se dá udělat standardně a není ho potřeba - pokud to neděláte 10x za hodinu ;)

Což mi připomnělo, že jsem se chtěl kouknout, jestli se dá spustit mapa znaků standardně přímo z excelu

Dá, ale není to ta systémová, ale nějaká zřejmě vestavěná v office
Karta Vložit - Tlačítko Symbol

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse