Příspěvky uživatele

lubo, výborné, zase jsem se něco přiučil, děkuji. To dopisování kódu nad rámec pouhého klikání je pro mě peklo.

lubo děkuji. Prošel jsem si uvedené postupy a nakonec se oba hodí, ale potřeboval bych ještě pomoc s konkrétním použitím již získaného jména sloupce, tam mé znalosti nestačí, prostým zkoušením se mi nedaří.
V přiloženém souboru jsou 2 dotazy, v tom prvním mám problém popsaný v poznámkách u kódu, tak kdyby někdo věděl ....

Díky za snahu. Já ale vlastně hledám sloupec, tedy víc sloupců, ne řádek.
Jak jsem četl odpověď, nějak jsem si uvědomil, že jde převést sloupce na řádky. Něco jsem zkusil a povedlo se mi právě tímhle vyfiltrovat "hledané slovo" - tím získat název sloupce ve Zdroji, vrátit se ke Zdroji a přesně ten sloupec duplikovat, přejmenovat, hlavně pak můžu použít své nové jméno sloupce při odebírání ostatních. Pak už myslím bude vyhráno. Možná. Zatím mi to asi stačí, díky.

Z Pdf chci dostat tabulku s určitými sloupci, potřebuju pak měnit zdrojové PDF (jsou podobné) a mít soubor připravený tak, aby vždy generoval výslednou tabulku. K načtení se v PDF nabízí tabulky "Tablexxx" a "Page001", 002,003 podle počtu stran. V Table nejsou data celá, v Page ano. Můj záměr je připravit si PQ dotazpro každou stranu "Page" (max.4) a výsledek spojit do finální tabulky. Při menším počtu stran jen upravím to spojení.
Problém je, že sloupce v každém "Page" jsou různě posunuté, někdy je mezi prázdný sloupec, a tak ten, který potřebuji, se může posouvat až na čtyřech pozicích.
Každá strana má záhlaví s různým počtem řádků, které odebírám filtrem na položku "name", s tím už jsem se vypořádal a dostanu stav, který jsem nasimuloval v přiloženém souboru.
Kdyby sloupce odpovídaly pozicí na všech stranách, jen bych "ponechal" potřebné podle názvu pomocí zvýšeného záhlaví.
Ale to nefunguje, někde je navíc nadpis posunutý stranou od dat a musím výchozí sloupec přejmenovat a pod.. Jediné co mě napadlo je sloučit několik sloupců a podle výsledku (klíče) pak přidat vlastní sloupec s daty, ostatní odstranit.
ALE potřebuju přidat sloupec podle 1.řádku určitého sloupce, kde mám nadpisy. NE podle každé hodnoty v řádcích! Jako když v excelu použiju $A$1. A toho neumím dosáhnout.
To co jsem vygooglil a pokusil se použít, mi dává chybu. Toto jsem naznačil v přiloženém souboru.

Pro nějaké obecné řešení celého problému by to chtělo umět v PQ vyhledat hodnotu v celé tabulce, (je tam jedna, např. "Name"), abych věděl název sloupce, kde se slovo vyskytuje. Toto opakovat pro další hodnoty, vytvořit si tak množinu sloupců, ty ponechat, ostatní odebrat. Je něco takového proveditelné?

Spreadsheet Compare: zkuste přeci jen na PC pohledat, já to tam našel. Buď kouzelná klávesa WIN a hledat Spreadsheet Compare, nebo v menu to mám po "Microsoft Office 2016".
Verze 2408 Microsoft 365 Apps pro velké organizace.
Zase jsem objevil něco nového, myslím že ve firmě je zlomek lidí co o tomto ví, nikdo se neobtěžuje nás seznamovat s novinkama. Díky pánové, jdu zkoumat jak se s tím pracuje

Můj postup je XnView (free): obrázek - jas a kontrast - zvýšit světlost a gama nastavit na 0,1 - příkaz doostřit. Celý postup jde třeba 2x opakovat a pak je pozadí bílé a text čitelný, i pro OCR, už jsem to dělal.

Vždyť jste sem dostal, až k zaslání dotazu - tak jste asi přehlédnul, že po klikání na
Wall.cz - Forum - MS Excel - tam je první příspěvek nahoře: Pravidla fóra - a v něm bod. 3 - Registrovaní uživatelé mohou vkládat přílohy

Jak je uvedeno výše, pomocí Sumif, v příkladu zde jen praktická ukázka, jak asi na to, výsledek pak můžete zkopírovat jako hodnoty zase do sl.A

Našeptávání myslím umí snad jen nějaká položka v userformu, nevím jistě. Ale dám sem jako ukázku soubor, kde je to udělané přes FILTER - tzn. pro excel od určité nové verze, nejlíp ms365. Zdroj "My Online Training Hub", jména wikipedie.

To bude náročný úkol. Na to já nestačím, ale při čtení zadání mě okamžitě napadlo, že já bych zkusil druhou cestu, udělat si jedno makro, které mi spraví v listu veškeré potřebné formátování a pod. a zachová hodnoty. Boj s uživatelem je totiž vždy předem prohraný a těch zákazů může být nakonec tisíce.

Testoval jsem a funguje mi tento kód:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim testValue As Variant

If Target.Cells.Count > 1 Then Exit Sub 'ignoruje zmìny s více než jednou buòkou
If Intersect(Target, Range(Cells(8, 4), Cells(372, 4))) Is Nothing Then Exit Sub 'ignoruje zmìny mimo urèený rozsah

testValue = Target.Value
If IsNumeric(testValue) Then
If testValue >= 0 And testValue < 1 Then
Target.Value = Format(testValue, "h:mm")
ElseIf testValue >= 1 And testValue < 24 Then
If Int(testValue) = testValue Then
Target.Value = Format(testValue, "0") & ":00"
Else
Target.Value = Format(testValue, "h:mm")
End If
End If
End If

End Sub

Jestli se jedná o Windows, tak rozhodně nastavit v Plánování úloh.

bobika99: mě funguje
Oznacene.Rows.Counti na výběr pouze jedné buňky !

Ano, GoTo Kam (značka "Kam:" - tady s dvojtečkou se umístí na požadované místo kódu, musí být jedna jediná)

Používejte "přejít na ..." CTRL+G. Napíše se jen cílový sloupec, č.řádku dáte stejný co jste >> a je to.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje