Příspěvky uživatele

Máte pravdu pri rovnakom pocte bodov to je problem ale to som chcel riešiť až následne pretože o tom probléme som vedel len som to nechcel komplikovať.
Ďakujem aj za vyriešenie tohto problému len to musím ešte vyskúšať.

S pozdravom

Neck

Dobry den

Snazim sa vytvorit vysledkovu tabulku najlepsich hracov podla pohlavia ale neviem do funkcie Vlookup a large alebo Small
pridat podmienku ktora by vysledky automaticky rozedelila aj podla pohlavia.
Teraz to robim tak ze odfiltrujem a vymazem z tabulky jedno z pohlavia ale chcel by som to zjednodusit bez toho vymazavania.
Neviem ako pouzit funkciu IF aby sa z tabulky vybrali traja najlepsi a najslabsi muzi a tri najlepsie a najslabsie zeny.
Vedeli by ste nieco navrhnut ?

Dakujem

neck

takze nasiel som to

Set studium = Selection.Find(What:="Štúdium", LookIn:=xlValues, LookAt:=xlWhole)

neck

Dakujem to sa da pouzit.

este ma napadlo ze ci sa da urcit pri hladani aby sa hladalo presne slovo. Nie slova ktore obsahuju hladane slovo.
napr. ak hladam slovo "štúdium" tak mi najde aj slovo "štúdium v zahraničí" a to nechcem.

dakujem

neck

Dobry den

potreboval by som pomoct s upravou kodu

Set studium = Selection.Find(What:="Štúdium")
studium.select

Uvedeny kod vyhlada vo vybranej oblasti slovo "Štúdium" a oznaci bunku.
Ak sa vo vybranej oblasti nachadza slovo "Štúdium" viac krat tak sa vzdy oznaci prve vyhladane slovo.
Ja ale potrebujem oznacit az to posledne.

Viete mi poradit ?

Dakujem za pomoc

neck

Dobry den

trapim sa spodmienkou makra ktora ma zabezpecit ze pokial sa nenajde vo vybranej oblasti slovo "tolerovany pobyt" tak sa vykona uloha za Else cize bunky sa odznacia.

Mozem poprosit o pomoc ?

Dakujem

zlucit Tolerovany pobyt -------------------

Dim tolerovany As Range ' zadefinovanie premennych
Dim xto As Long
Dim yto As Long

xto = ActiveCell.Row
yto = ActiveCell.Column
Cells(xto, yto - 1).Activate ' posun o bunku vlavo

Range("B" & xto, ActiveCell).Select ' vyberie riadok v ktorom s anachadza kurzor

Set tolerovany = Selection.Find(What:="Tolerovaný pobyt") ' slovo ktore sa hlada

If tolerovany = xxxxxxx Then ' podmienka ak tam tolerovany nebude

tolerovany.Select

Range(ActiveCell, Cells(xto, yto - 1)).Merge ' vyberie bunky na zlucenie a zlici ich

Else
Application.CutCopyMode = False ' zrusi vyber pre kopirovanie
End If

dakujem Zbygi

idem to vyskusat na tych viacerych harkoch.
musim tie maticove vzorce dostudovat.

d

neck

Dobry den

neviem prist nato ako scitat hodnoty rovnakeho druhu z viacerych harkov. Skusal som aj maticove vzorce ale nefunguje mi to.

v kazdom harku sa mozu nachadzat informacie v roznych riadkoch a tie by som potreboval scitat.
napr. BA 102 + 9 + 753

riadkov moze byt zamozrejme viacej

Dakujem

neck

Dakujem je to fakt rychle.

neck

Ano pisal som ze v 100 roadkoch. A ked somaplikoval v zorec v zozname s 150 000 riadkami tak to trochu trvalo a naslo to 35 zlych. Funkcne to je al epri tom filtrovani sa to vsetko zasa prepocitava a to zdrzuje.

Inak dakujem pokial je to makro zdlhave tak aj takto to viem pouzit.

neck

Funkciu som odskusal a je to presne to co som potreboval. Este by som sa ale rad spytal ci je mozne tuto funkciu riesit aj cez makro pretoze u pol miliona zaznamov to na procesore i5 8 generacie trva dost dlho. Hlavne odfiltrovanie tych zlych zaznamov ked sa tam uz vzorec nachadza.

Dakujem

neck

V slove Komarno nie je ziadna chyba je to ako vzor co sa v stlpci moze vsetko nachadzat. Su tam aj dobre udaje.

Dakujem cez tu funkciu je to pouzitelne.

neck

Dakujem za odpoved.
Akym sposobom to dostanem do svojej tabulky ?

neck

Dobry den

Snazil som sa na fore najst odpoved na moj problem uz v riesenych temach ale nic take som nenasiel. Preto sa chcem spytat akym sposobom je mozne cez makro v urcenom stlpci napr A vyhladat znaky podla tabulky ascii (ide hlavne o cisla a specialne znaky) ktore by boli hladane cez ascii kod napr. znak @ = kod 64.
(Ak to cez kod nie je mozne tak aspon cez znak.)

Moja predstava je taka ze v stlpci A sa nachadzaju rozne nazvy ktore ale mozu obsahovat preklepy vo forme cisiel alebo specialnych znakov.
Tieto preklepy potrebujem vyhladat vo vsetkych riadkoch a riadky v ktorych sa tieto znaky nachadzaju prekopirovat na novy harok z dovodu lahsej kontroly.

napr.

stlpec A obsahuje taketo riadky
8ratisla@
Brn0
5liac
Komarno
atd.
riadkov moze byt aj 500 tisic a preklepov len v 100 riadkoch

Dakujem

neck

Uz som nato prisiel

takze zapis je takto:

Sumact = Application.SumIf(Range("b2:b" & posl - 1), "*xxx", Range("c2:c" & posl - 1))
MsgBox Sumact
Range("B" & posl + 1).Select

dakujem[/quote]

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje