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: 16
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: 1601
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: 42
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: 16
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 IF podmienky v Makru
    od tsibee » 16 kvě 2018 21:43 » v Kancelářské balíky
    6
    370
    od tsibee
    17 kvě 2018 21:03
  • Doplnění příkazu pro pravé tlačítko myši
    od VOM » 29 bře 2018 14:19 » v Kancelářské balíky
    0
    277
    od VOM
    29 bře 2018 14:19
  • Excel VBA
    od Dawyck » 06 led 2018 21:35 » v Kancelářské balíky
    1
    273
    od xlnc
    07 led 2018 14:17
  • Excel- VBA
    od Nelouš » 22 bře 2018 00:14 » v Programování a tvorba webu
    4
    510
    od Nelouš
    22 bře 2018 17:43
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    326
    od Dawyck
    29 pro 2017 20:45

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

Kdo je online

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