Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  132 133 134 135 136 137 138 139 140   další » ... 156

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. 4

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.

A čo ak niekto chytrý nespustí excel, ale najprv si tie súbory skopíruje na USB. Načo ti bude také makro? 7


Strana:  1 ... « předchozí  132 133 134 135 136 137 138 139 140   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse