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

Příspěvky uživatele

Namiesto
Sheets.Add.Name = List1.Cells(i, 1)

daj
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = List1.Cells(i, 1)

Možno takto. V zošite by mal byť len jeden list(január)

Sub vloz_list()
Dim mesiac
mesiace = Array("január", "február", "marec", "apríl", "máj", "jún", "júl", "august", "september", "október", "november", "december")
For i = 1 To 11
Sheets(1).Copy After:=Sheets(i)
ActiveSheet.Name = mesiace(i) ' január má index=0
Next i
End Sub

Je pravda, že ja sa už v zadaní strácam. Niekde písal, že chce aby mu to vypísalo aj názov a ten je naľavo od vyhľadávanej hodnoty. Preto som povedal, že SVYHLEDAT nebude stačiť. Iba ak by tie stlpce prehodil.

Mám rád takéto upresňovania.
Mal dať ako má vyzerať celý riadok. A nie to po jednom doplňovať.

Prečítaj si niečo o funkcii VLOOKUP(SVYHLEDAT)

Danú hodnotu hľadá v prvom stlpci, teda v tvojom prípade v stlpci "B". A ty máš tie hľadané hodnoty v stlpci "C"

Uprav si tú tabuľku, alebo môžeš použiť inú funkciu LOOKUP(VYHLEDAT) prípadne MATCH(POZVYHLEDAT)

Napríklad:
=IFERROR(LOOKUP(A10;List1!C3:C4;List1!B3:B4);"SKP nenalezeno!")

Ale hodnoty v stlpci C musia byť zoradené vzostupne.

Alebo
=IFERROR(OFFSET(List1!C2;MATCH(A10;List1!C3:C4;0);-1);"SKP nenalezeno!")
=IFERROR(POSUN(List1!C2;POZVYHLEDAT(A10;List1!C3:C4;0);-1);"SKP nenalezeno!")

Aký máš excel?
2003
=IF(ISERROR(VLOOKUP(D16;List1!B13:C16;2;FALSE));"položka nenalezena";VLOOKUP(D16;List1!B13:C16;2;FALSE))

excel 2007
=IFERROR(VLOOKUP(D16;List1!B13:C16;2;FALSE);"položka nenalezena")
Ten druhý vzorec je podobný.Len zložitejší.

Funguje to pri kopírovaní CTRL+C. Nie pri presune CTRL+X.
Pri presune(vyjmout) sa adresa nemení.

00"."000"/"000

Veď som ti dal vzorec
IF=když
HOUR=hodina?

=IF(HOUR(A1)<6;"N";IF(HOUR(A1)<14;"R";IF(HOUR(A1)<22;"O";"N")))

Žiadne číslo nie je menšie ako 6 a zároveň väčšie ako 22.

Alebo skús toto makro

Sub Makro1()
Range("B1").EntireColumn.Insert
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
Range("B:B").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Range("A1").Select
Range("B1").EntireColumn.Delete
End Sub

No na bunky C3 a C5 by to malo fungovať.

Áno treba to najprv dať do iného stlpca a potom jednoducho skopírovať naspäť.
A dobré by bolo to zoradiť buď podľa abecedy alebo podľa veľkosti.

No išlo by to.
V makrách treba vypnúť zachytávanie udalostí a po vykonaní makra ho zase zapnúť. Potom sa to nezacyklí.

Application.EnableEvents = True/False

Vyber si ten zoznam
Choď na rozšírený filter
Zaškrtni "iba jedinečné hodnoty"
daj OK.

Napríklad rozšíreným filtrom.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje