• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Dobrý den, neznáte někdo, nějaké PQ fórum?
Potřebuji vyřešit toto:
Mám dotaz "denik". Jsou to načtená data ze složky v excelu (soubory excel).
Potřebuji odstranit všechny řádky, které ve sloupci "Kód akce" nemají na začátku:
"PR" nebo "ESB" nebo "ESP".

Děkuji.
Radek

Dobrý den, můžete mi, prosím, někdo poradit, jak "obejít" omezení výpisu dat v KT na prvních 1000 řádků?
Já to nyní musím při větším počtu řádků než1000 v detailu výpisu musím kopírovat.
A ani různými filtry se nedostanu pod 1000 řádků.
Teď jsem měl konkrétně případ, kdy jsem potřeboval vidět v detailu cca 29000 řádků.
Děkuji.
Radek

Děkuji. Mám uložené.

Díky.
Jsem lama alpaka a večer je ze mě lama vikuňa

Aha.
Ale já pořád nevidím nebo nevím, kde je ten název "Tlačítko 1" nebo "Tlačítko 2" uvedený?
Já to právě hledal, abych pochopil logiku.
Omlouvám se za lama dotazy, ale fakt to nevím.
Radek

Děkuji.
Ale jak pozná, které tlačítko to bylo?
Já nikde nenašel jejich označení nebo číslo?

@elninoslov
Mohu se, prosím, zeptat, jako lama...?
Kde v tom kódu je ta instance, která určí, na které tlačítko jsem kliknul?
Děkuji. Radek
Sub FindDict()
Dim Typ As Byte, Count As Long, i As Long
Dim D(), R(), H()
Dim FindVal As String

Typ = Split(Application.Caller, " ")(1)

With Worksheets("dictionary").ListObjects("DataDictionary")
H = .HeaderRowRange.Value
D = .DataBodyRange.Value
ReDim R(1 To UBound(D, 1), 1 To 2)
End With

Application.ScreenUpdating = False

With Worksheets("find")
.Range("A4:B4").Value = Array(H(1, Typ), H(1, 2 - Typ + 1))

FindVal = .Range("A2").Value2
If FindVal = "" Then MsgBox "Zadejte hledaný výraz", vbExclamation: GoTo FINAL

For i = 1 To UBound(D, 1)
If InStr(1, D(i, Typ), FindVal, vbTextCompare) > 0 Then
Count = Count + 1
R(Count, 1) = D(i, Typ)
R(Count, 2) = D(i, 2 - Typ + 1)
End If
Next i

i = .Cells(Rows.Count, "A").End(xlUp).Row - 4

With .Range("A5:B5")
If Count = 0 Then
If i > 0 Then .Resize(i).ClearContents
Else
If i > Count Then .Offset(Count).Resize(i - Count).ClearContents
.Resize(Count).Value2 = R
.Resize(Count, 1).Font.Bold = True
End If
End With
End With

FINAL:
Application.ScreenUpdating = True
End Sub

Dobrý, tedy.
Poslal jsem příspěvek ;-)

@elninoslov
klaním se mistrovi
Ta verze s makrem...SUPER, díky moc.
Pokud mám zase přispět na podporu fóra, rád to udělám ;-)

Dobrý den, chtěl požádat o pomoc s makrem, makry pro hledání na listu "dictionary", kde jsou data ve formátu Tabulky s názvem "DataDictionary".
Chtěl bych, aby na listu "find" se do buňky "A2" zadal hledaný výraz, alespoň 2 písmena.
A pak by se podle kliknutí na příslušné tlačítko hledalo na listu "dictionary".
Pokud bych klikl na tlačítko "CZ --> EN" tak by se do buňky "A4" na listu "find" napsalo záhlaví z buňky "A1" z listu "dictionary" a do buňky "B4" záhlaví z buňky "B1" na listu "dictionary.
A pokud by se našla shoda se zadaným výrazem v buňce "A2", vypsaly by se všechny "nálezy" od řádku 5 na listu "find".
Písmo ve sloupci "A" na listu "find" by bylo tučně.
A analogicky by to bylo při použití tlačítka "EN --> CZ", akorát do buňky "A4" na listu "find" by se napsalo záhlaví z buňky "B1" z listu "dictionary"
Děkuji.
Radek

jj, to je pak peklo
Díky

Omlouvám se, ach jo, jsem lama.
To by se teta v Prochote divila, že nerozumím slovensky

Tyto dva vzorce nefungují:
=IFERROR(INDEX(DataDopln[text];MATCH("*";IFERROR(""&MATCH(DataDopln[cislo];[@[Číslo účtu ]];0);FALSE);0));"")

=IFERROR(INDEX(DataDopln[text];MATCH(1;COUNTIF([@[Číslo účtu ]];DataDopln[cislo]);0));"")

Každopádně děkuji.
Radek

@Jiří497
Jj, to funguje, ale není to úplně "universální", protože, kdybych potřeboval například hledat navíc například "08????", musel bych editovat vzorec.
U některých syntetických účtů dosazuji podle prvních 2 znaků, někdy podle prvních 3 a někdy mohu dosazovat i jen podle 1 znaku.

@lubo
můj excel tu fci FILTER nezná, nebo já jsem úplná lama

@elninoslov
ani jedna ta funkce mi neukáže výsledek. všude mám prázdné buňky.
S tím počtem znaků jsem se ukliknul

Převedl jsem nyní zdrojová data a data na listu na doplnění na formát Tabulka, ten používám většinou s ohledem na měnící se rozsahy dat.
Můžete se na to prosím podívat?
Děkuji všem.
Radek

Dobrý den, mohl byste mi někdo poradit se zástupnými znaky při využití u fce SVYHLEDAT?
Jakým způsobem bych mohl použít zástupný znak "*" nebo "?" nebo nějaký jiný tak, abych:
Na listu "list2" doplnil do sloupce "dopln" hodnotu z tabulky na listu "dopln" z druhého sloupce.
Vím, že data na listu "list2" je ve sloupci "A" počet znaků 6.
Je to nějak řešitelné pouze přes funkci?
Děkuji.
Radek

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje