Příspěvky uživatele

zdravim

snazim sa vyriesit jeden pre mna zapeklity problem a to konkretne :
mam list1 kde v stlpci A:A sa nechadzaju zlucene bunky ale aj nezlucene teraz pomocou for each a if najdem nezlucene bunky pomocou if not cells(c,1).mergeacell potom si zistim adresu bunky ale
kedze sa mi nachadza viacero buniek pod sebou ktore nie su zlucene potrebujem ich oznacit a nasledne vlozit do pole pre nasledne zlucenie . Vzdy ked sa snazim oznacit bunku v cykle tak mi tu danu bunku v stlpci{A:A} neoznaci viete mi poradit ako postupovat dakujem

caute

takze to upresnim mam napr.10 listov kde sa nachadzaju data ,tieto data potrebujem zoradit .Zoradovat chcem podla stlpca napr. C kde sa mi nachadzaju udaje ako 6MC,6MA,6MB proste v roznom poradi . Potrebujem zoradit tieto data ale nie alfanumericky ale podla kriterii a to konkretne tich ktore su udane v inom liste vid :
range("a1") = "6MB"
range("b1") = "6MC"
range("c1") = "6MA"

Zacal som to robit na zaklade zhody a vzdy ked sa mi nachadza ine data ako ziadane tento riadok skopirujem na koniec prve prazdneho riadku.Zaujima ma ci to niekto nieked skusal robit cez pole _

Zdravim

Mam na Vas jednu prosbu ohladne vytvorenia makra na zoradenia dat podla vopred daneho filtra v range.Jedna sa o to ze nechcem pouzit na filtrovanie buble sort ani iny druh zoradenia kedze mne sa nejedna o typ abecedneho zoradenia.
napr.
mam : etalon zoradenia >
range("a1") = "6MB"
range("b1") = "6MC"
range("c1") = "6MA"

ciel zoradenia napr stlpec H:H , ktory obsahuje dane data pre nasledne zoradenie . Ak mate nejake navrhy ako postupovat budem Vam vdacny

zdravim,

No nieco take som v principe myslel akurat zamenim bunky za comboboxa .Kazdopadne diky moc .Ten mega vzorec nema chybu

mozete mi prosim Vas poradit ako spravit automaticke doplnenie udajov do listboxu na zaklade zvolenych moznosti ?
napr. mam listbox(lsbSingleSelect) kde mam dve moznosti ak si vyberiem 1moznost automaticky sa mi zobrazi lsitbox2 (udaje budu brane z listu DATA stlpec B ) a ked si nasledne vyberiem z listBoxa2 nejaku moznost tak sa mi zobrazi vysledok v listboxe1 samozrejme podla udajov cize napr ak mam marci dva udaje v stlpci C tak sa mi musia zobrazit dva vysledky.

v Pripade ak sa nachadzaju duplicity v liste data range B je mozne tam spravit taktiez kontrolu duplicity aby sa mi v listboxe2 nezobrazovali aj dublony

V pripade ak mi vie niekdo pomoct budem vdacny za akukolvek pomoc

Diky moc za radu perfektne a jednoducho si to vyriesil este raz diky moc

Ciel : skopirovat vsetky udaje zo sheetov OrdresJ+1,2,3 do OrdresJ pricom kopirovanie musi pokracovat vzdy od prveho prazdneho riadku v sheete OrdresJ

preposielam dany subor

caute

Mam nasledovny problem a to konkretne potrebujem skopirovat udaje z listu napr. a do listu b pricom neviem ktory je prvy neprazdny riadok v liste b

v mojom kode si zistim usedrange a ten mi skopiruje ale nasledne vlozenie mi nekalkuluje na zaklade zistenia posledneho zapisaneho riadku ale vzdy mi ho vlozi od a1,..

Mozete mi poradit Dik ,..

Range(Range("A2"), Intersect(Range("A:s"), ActiveSheet.UsedRange)).Select
Selection.Copy
lastrow = sheets("ordresJ").Cells(5000, 19).End(xlUp).Row + 1
sheets("ordresJ").cell(lastrow, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

zdravim

ja odporucam knihu od walkenbach popripade stranku www.excelplus.net odkaz http://www.excelplus.net/downloads.php?cat_id=2

toto je zrozumitelne napisane

resp. este jedna knizocka je dobra ,,Microsoft Excel VBA Programming for the Absolute Beginner 2002,, tato kniha sa zaujima konkretnym vyvojom bud hry alebo mini aplikacie ,.. od a po Z

dakujem velmi pekne ono skusal som to cez offset ale bolo to prilis neprehladne a dost zlozite na taku lahku operaciu kazdopadne diky moc

mam otazku : dneska som skusal spravit vyhladavanie retazca podla dvoch kriterii z dvoch tabuliek -
-->kedze funkcia SVYHLEDAT nepouzitelna kedze ma iba jeden hladany parameter

takze mi prislo na um ze si nahram makro kde pouzijem automaticky filter s preddefinovanym filtrom na dany stlpec (druhy key kluc -2tab) a nasledne pouzit funkciu SVYHLEDAT na prvy Key kluc(1tab) ono to aj funguje ale zaujima ma iny princip a to s pouzitim vba bud if alebo .find

ako by ste postupovali aby mi kopiroval hladany retazec podla currentregion tabulky cize kolko mam hladanych hodnot v tab. tolko mi vyexportuje
napr.

zdravim

no skusal som to prerobit aby mi neskopiroval ako vysledok len hladany retazec cize jednu bunku ale aby mi skopiroval cely riadok z hladaneho textu

napr. mam riadok 1 kde sa nachadzaju udaje v 14 stlpcoch pricom klucovy prvok pre hladani je stlpec A

no lenze po prepisani cell.value na range alebo vyhodi vba error este ma napadlo ci nepouzit prikaz na zistenie adresy hldanej bunky a nasledne skopirovat range ?

Viete mi poradit ?

Dakujem

zdravim

Diky moc az teraz tomu rozumiem este raz dik

zdravim

Je mozne to blizsie popisat napr . radek predstavuje samotny range?

If InStr(1, cell.Value, retezec, vbTextCompare) > 0 Then -- > znamena ze ak je hodnota v bunke totozna s retezec tak ,... ale potom nerozumiem preco je tam podmienka vacsi ako 0

za vysvetlenie dakujem

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje