VLoopUP VBA skorektnenie príkazu Vyřešeno

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

Moderátor: Mods_senior

tsibee
nováček
Příspěvky: 30
Registrován: duben 18
Pohlaví: Muž

VLoopUP VBA skorektnenie príkazu  Vyřešeno

Příspěvekod tsibee » 16 kvě 2018 14:17

Ahojte,

prosím mrkol by sa mi niekto na Makro?
Chcel by som pouzit na priradenie Sviatku k dátumu.
Cize ak v stlpci A je datum na ktorý pripada sviatok (zoznam sviatkov D2:E4 - momentalne vymysleny)tak vedla dátumu zapise "sviatok". Pouzil som worksheetFunkciu VlookUp, ale pada mi to na chybe. Pokial sviatok najde, tak OK, akonahle na dany dan sviatok nepripadne, tak sa makro zastavi.

Sub svaitok()

i = 1
While i < 31
Cells(1 + i, 2) = Application.WorksheetFunction.VLookup(Cells(1 + i, 1), Range("D2:E4"), 2, False)
i = i + 1
Wend

End Sub

Vopred vdaka za pomoc :).
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
atari
Level 4.5
Level 4.5
Příspěvky: 1751
Registrován: říjen 08
Pohlaví: Muž

Re: VLoopUP VBA skorektnenie príkazu

Příspěvekod atari » 16 kvě 2018 15:08

Řešení má nevýhodu, že v případě, že není splněno hledané kritérium, funkce vrátí chybovou hodnotu #NENI_K_DISPOZICI. Toto můžete obejít doplněním funkce SVYHLEDAT o funkci IFERROR - viz: http://office.lasakovi.com/excel/funkce ... kce-excel/

Uživatelský avatar
Grimm
nováček
Příspěvky: 45
Registrován: září 17
Pohlaví: Muž

Re: VLoopUP VBA skorektnenie príkazu

Příspěvekod Grimm » 16 kvě 2018 16:54

Ahoj, sice nechápu proč zrovna tuto věc chceš řešit pomocí makra, ale budiž.
Do kódu doplň dva řádky:

On Error Resume Next = při chybě dovolí přeskočit na další řádek a pokračovat v kódu
On Error GoTo 0 = Vypne přeskočení na další řádek v případě chyby

Kód: Vybrat vše

Sub svaitok()
 
i = 1
While i < 31
On Error Resume Next
Cells(1 + i, 2) = Application.WorksheetFunction.VLookup(Cells(1 + i, 1), Range("D2:E4"), 2, False)
On Error GoTo 0
i = i + 1
Wend
End Sub

tsibee
nováček
Příspěvky: 30
Registrován: duben 18
Pohlaví: Muž

Re: VLoopUP VBA skorektnenie príkazu

Příspěvekod tsibee » 16 kvě 2018 17:10

ďakujem, toto je len medzičlánok (napája sa to na ďalšie) preto som to chcel riešiť Makrom :).


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • skorektnenie riadku VBA
    od tsibee » 04 čer 2018 13:58 » v Kancelářské balíky
    14
    1001
    od tsibee
    08 čer 2018 13:32
  • Skorektnenie IF podmienky v Makru
    od tsibee » 16 kvě 2018 21:43 » v Kancelářské balíky
    6
    605
    od tsibee
    17 kvě 2018 21:03
  • skorektnenie vzorca v Excel (OR/IF/XOR/IF)
    od tsibee » 02 čer 2018 09:53 » v Kancelářské balíky
    2
    486
    od tsibee
    03 čer 2018 14:18
  • Doplnění příkazu pro pravé tlačítko myši
    od VOM » 29 bře 2018 14:19 » v Kancelářské balíky
    0
    428
    od VOM
    29 bře 2018 14:19
  • Excel VBA
    od Dawyck » 06 led 2018 21:35 » v Kancelářské balíky
    1
    323
    od xlnc
    07 led 2018 14:17

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti