Příspěvky uživatele
< návrat zpět
veny
elninoslov
DĚKUJI moc na jednom uctu to funguje perfektne ale jak koukmam na tu overovaci funkci tak si nejsem jisty ze ji dokazu upravit tak aby kdyz mam dane ucty v celem sloupci a potrebuju overit kazdy z nich. Nekokdo tusi jak upravit?
Díky moc, perfektní 
Zdravím všechny,
chci se zeptat jestli se někdo nesetkal s tím jak ověřit dané číslo účtu je platné.
viz logikla z odkazu.
Pokud budu mit v jednom sloupci cila uctu tak ve druhem vyhodnocovat jestli je cislo ok.
https://www.rtsoft.cz/jak-validovat-cislo-uctu-platne-v-cr/
Děkuji za radu
Zdravim vsechny,
nevim si nejak rady už.. mám soubor který ukládám potřebuju uložit jako Text (oddělený tabulátory) a nasledne jen u daneho souboru prepsat koncovku z .txt na .ikm. S tím ze nedokazu prevzit jmeno a cestu ulozeni do dalsich veci jako je zavreni daneho sesitu a nasledneho prepsani koncovky..(pokud uzivatel vybere jiny nazev ci cestu ulozeni tak je problem)
Moje představa je:
Daný excel vyvolá save dialog kde před vyplním jméno sesitu a formát pro ulozeni. Následne uzivatel uklada a dané excely se zavrou. Na daném miste mu zustane daný .ikm soubor.
Př v příloze
Děkuji za případné rady
elninoslov
v rychlosti jsou to prošel a funguje to dokonale, večer si to krok po kroku projdu a pokusim se pochopit ale je to mega slozity tak se uvidi 
Děkuji moc skvělá práce
elninoslov
děkuji za dotaz, měl jsem za to že bych naplnil první kolekci MAT dle dané oblasti a následně by se vytvořila nová kolekce SORT kam by se záznamy z kolekce MAT už naplnili tak aby byly data seřazena od nejmenšího čísla po největší a následně by se jen SORT kolekce vysypala zpět na list.
Doufám že to takto dává smysl
Děkuji za radu
Zdravim vsechny
chci se zeptat zda je mozne data nahrane do kolekce seradit od nejmensiho po nejvetsi (pripadne pokud by byl text tak od A po Z) a nasledne kolekci vypsat.
viz priklad příloha.
Vybral bych neco tady
http://www.vbaexpress.com/kb/getarticle.php?kb_id=515
elninoslov
už jsem na to přišeel pokus omyl,
Díky moc za pomoc už to asi chápu zase více
lala
elninoslov
joo to je přesně ono to mi nedošlo, nyní vidím když krokuji ze kolekce jsou nakrmene i po zmene vstupnich dat.
Jen mi to spadne ještě v této konečné části a netuším..
(Invalid procedure call or argument).
myCol_FINAL.Add myCol_INFO(myCol_MAT(CStr(Cell.Value))(1))
*Omlouvám se poslal jsem špatnou přílohu posílám znovu..
*Zajímalo by mě jestli lze vysvětlit
Děkuji za radu
* Jeste jsem narazil na jeden malicky problem.. Nova kolekce FINAL nedokaze udrzet v prubehu makra nakesovana data? Lze to nejak vyresit viz příloha?
Myslel jsem že pokud v prubehu makra vytvorim kolekci tak tato virtualni tabulka je k dispozici vcelem prubehu makra..
elninoslov
DÍKY za pomoc, myslel jsem to trošičku jinak nenapsal jsem to moc stastne nicmene z tveho prikladu jsem si novou kolekci doupravil k dokonalosti.
DĚKUJI MOC za pomoc
Sub KOLEKCE_LEZAKY()
Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim myCol_FINAL As Collection
Set myCol_FINAL = New Collection
Dim Oblast_FINAL As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long
Dim MaxRow2 As Long
Dim i As Long
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row
MaxRow2 = List1.Cells(Rows.Count, "I").End(xlUp).Row
'Tvorba KOLEKCE z MAT
Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
i = i + 1
myCol_MAT.Add Array(Cell, i), CStr(Cell)
Next Cell
'Tvorba KOLEKCE z INFO
Set Oblast_INFO = List1.Range("E4:E" & MaxRow)
For Each Cell In Oblast_INFO
myCol_INFO.Add Cell
Next Cell
'Tvorba KOLEKCE FINAL
Set Oblast_FINAL = List1.Range("I4:I" & MaxRow2)
For Each Cell In Oblast_FINAL
myCol_FINAL.Add myCol_INFO(myCol_MAT(CStr(Cell))(1))
Next Cell
'Vypsání materiálů z kolekce
i = 0
For Each Item In myCol_FINAL
List1.Cells(i + 4, 10).Value = Item
i = i + 1
Next Item
End Sub
Zdravím všechny,
snažím se nějak udělat jednu věc nad kolekcemi ale nějak už si dál nevím rady.. kdyby nekdo tusil budu rád
PŘ:
(Vidím že je MAT (I4) v kolekci na 18 místě a tím pádem chci vrátit 18 pořadí z kolekce INFO do sloupce J (J4))
Sub KOLEKCE_LEZAKY()
Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long
'Tvorba KOLEKCE z MAT
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row
Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
myCol_MAT.Add Cell.Offset(0, 0)
Next Cell
'Tvorba KOLEKCE z INFO
Set Oblast_INFO = List1.Range("E4:E" & MaxRow)
For Each Cell In Oblast_INFO
myCol_INFO.Add Cell.Offset(0, 0)
Next Cell
End Sub
elninoslov
Tak to je pecka FUNGUJE TO
zítra si to projdu a pokusím se něco nového zas naučit.
DÍKY MOC
elninoslov
rozumím, děkuji za vysvětlení, skryty list bude nejlepší řešení v tomto případě ale to už zvládnu.
Děkuji moc za pomoc
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články