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

Příspěvky uživatele

děkuji.
Já to dávám pak, jako propojení a přes Power Pivot dělám KT.
Ale jestli si myslíte, že to nemám odmazávat, tak to tak nechám.
Nechám si poradit.
Radek

@lubo
Omlouvám se, ale dalo by se to nějak doplnit do toho mé scriptu, který už mám do nějaké fáze udělaný?
Děkuji.
Radek

Jj. To umím. Ale chtěl bych ty řádky, které nevyhovují filtru odmazat.
Jde mi o to, zda bude mít to odmazani vliv na velikost souboru excel, ve kterém pak tento dotaz zpracovávám přes Power Pivot.
To je jediný důvod.
Ale obecně by mě zajímalo, jak odmazat řádky, které nevyhovují zadané podmínce.
Já jsem laik.
Teď jsem si koupil tu novou knihu od Michala Chmelara.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse