Makro najdi více

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

Makro najdi více

Příspěvekod luko02420 » 31 led 2020 07:43

Dobrý den, potřeboval bych pomoc s úpravou následujícího makra, a to tak, že teď přepočítává a vyhledává neustále při jakékoliv změně obsahu.
Při množství dat, s kterými pracuji je to dost zdlouhavé než se všechno přepočítá, chtěl bych ho předělat tak, aby fungovalo až když ho ručně spustím.
Zkoušel jsem to předělat sám ale nedaří se mi to.
Děkuji všem za pomoc.

Kód: Vybrat vše

Option Explicit

Function NajdiVice(Hledat As Variant, Oblast As Range, Prohledat_sloupek As Integer, Vzit_sloupek As Integer, Poradi As Integer) As Variant
' funkce na vyhledání položky v zadaném sloupci a v zadaném pořadí
' **** vysvětlivky ****
' Hledat = co hledat
' Oblast = oblast dat (tabulka) kde hledat a vybírat výsledky
' Prohledat_sloupek = číslo sloupce v oblasti dat který se má prohledat
' Vzit_sloupek = číslo sloupce ze kterého se bude brát výsledek hledání
' Poradi = pořadí výsledku který má najít
' ****

Dim a As Long, x As Integer
x = 1
With Oblast
    For a = 1 To .Rows.Count
        If .Cells(a, Prohledat_sloupek) = Hledat Then
            If x = Poradi Then
                NajdiVice = .Cells(a, Vzit_sloupek) 'vrací nalezenou hodnotu
                Exit Function
            Else
                x = x + 1 'počítadlo pořadí shody
            End If
        End If
    Next
End With
NajdiVice = CVErr(xlErrNA) 'vrátí chybu N/A když nenajde shodu
End Function


Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro najdi více

Příspěvekod elninoslov » 31 led 2020 14:20

Určite potrebujete makro ?
Přílohy
Hľadanie N-tého výsledku v stĺpci X podľa slova Y zo stĺpca Z .zip
(882.83 KiB) Staženo 62 x

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro najdi více

Příspěvekod luko02420 » 31 led 2020 15:11

Dobrý den, nemusí to být makro vyzkouším a ozvu se.
Makro bylo jediný co jsem našel

Dobrý den, takže to asi bude muset být tím makrem. Vyhledávám totiž podle IČ. zakázky odběratelů.
tzn., že podle IČ vyhledám zákazníka z různým počtem výrobků.
Stejný IČO je tam třeba i 100x

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro najdi více

Příspěvekod elninoslov » 31 led 2020 15:27

Takže má každý odberateľ svoje IČ, a Vy potrebujete vidieť všetky jeho objednávky ? Použite Kontingenčnú tabuľku. Bolo by dobré priložiť prílohu. Pre mňa nieje problém Vám preprogramovať funkciu na systém polí (rýchlejšie), alebo na hromadný jednorázový výpočet (raketovo rýchle), ale ak netreba použiť makro, tak načo....

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro najdi více

Příspěvekod luko02420 » 31 led 2020 15:42

Dobrý den, večer vytvorím vzorovy sesit a nahodím ho.

Zde je vzorovy sesit.
Přílohy
Metry Vany – kopie.rar
(507.62 KiB) Staženo 55 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Více OS na jednom disku
    od fafejt » 18 dub 2023 23:54 » v Windows 11, 10, 8...
    7
    1475
    od petr22 Zobrazit poslední příspěvek
    19 dub 2023 09:10
  • Jak přidám více monitorů do mini Windows PC.
    od holatir427 » 06 lis 2023 13:59 » v Problémy s hardwarem
    8
    1310
    od mmmartin Zobrazit poslední příspěvek
    04 led 2024 11:27
  • 144hz monitor nefunguje na více než 120hz Příloha(y)
    od fakeyn » 11 kvě 2023 21:37 » v Problémy s hardwarem
    1
    801
    od kecalek Zobrazit poslední příspěvek
    12 kvě 2023 12:30
  • excel text na konec více řádků najednou Příloha(y)
    od Myerina » 03 led 2024 11:51 » v Kancelářské balíky
    5
    780
    od Zivan Zobrazit poslední příspěvek
    04 led 2024 09:42

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů