Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8   další »

Darbujan napsal/a:

Na bázi UserFormu si můžete udělat vlastní dialog.


Ďakujem za odpoveď, aj som predpokladal, že cez UserForm to bude lepšia cesta.

Ahojte.

Dajú sa nejakým spôsobom premenovať buttony MsgBoxu ?
Existuje na to nejaký príkaz ?

Ak áno bude potom fungovať vetvenie ďalších krokov cez Select Case ?

Alebo akým iným spôsobom sa dá potom nadefinovať, že po stlačení buttona YES sa vykoná toto, po stlačení NO sa vykoná niečo iné ?

Ďakujem.

elninoslov napsal/a:

Pomocou kolekcie a poľa.Příloha: 44363_over-duplicitne-hodnoty.zip (18kB, staženo 4x)


Uf ... ešte mi potrvá veľmi dlho, kým sa naučím takéto veci.

Ďakujem, funguje to perfektne.

Poznm.: mne sa to nakoniec podarilo spraviť, ale na "hulváta". Cez pomocné stĺpce a dodatočné vzorce a maticový vzorec pre zoradenie najdených duplicít. Takže to moje "riešenie" ani zďaleka nie je také sofistikované ako Vaše.

Ďakujem.

Darbujan napsal/a:

Školní úloha? Prázdný sešit? Ne e.


Ou, moje ospravedlnenie !
Omylom som priložil prázdny zošit.

Už som priložil ten správny.

Pozn.: viem si zaznamenať makro a následne ho upraviť na to, aby mi vytvorilo v stĺpci "A" podmienku na zvýraznenie duplicitných hodnôt, ale už sa mi nepodarilo prísť na to, ako tieto duplicity vypísať do stĺpca "B"

Našiel som pár vecí na internete, ale priznám sa, že som tomu veľmi nerozumel a nefungovalo mi to.

Nomi napsal/a:

A co podmíněné formátování které ti označí duplicity ?


Áno to zvládam, ale potreboval by som to všetko cez makro.

Ahojte.

Potreboval by som pomôcť s makrom, ktoré by v stĺpci "A" overilo, či sa v ňom nachádzajú DUPLICITNÉ hodnoty.

V prípade, že sa nenájdu duplicitné hodnoty, tak aby vypísalo nejakú hlášku, že sa nič nenašlo.

V prípade , že sa nájdu, tak aby mi tie duplicitné hodnoty označilo v stĺpci "A" napríklad červeným písmom a aby mi ich samostatne vypísalo napríklad do stĺpca "B".

Šlo by to nejako ?
Nechcem použiť vzorce, potreboval by som makro ak sa dá.

Ďakujem za pomoc.

Darbujan napsal/a:

A jak máte ošetřeno umazávání hodnot/řádků a opravy hodnot?


Celé riadky sa nikdy mazať nebudú.
Ani prvotne zadané hodnoty v stĺpci A sa nikdy nebudú meniť.
Raz sa zadá hodnota napríklad do bunky A1 a už sa s ňou nebude nič robiť.
Hodnoty budú iba pribúdať v ďalších riadkoch stĺpca A

Ešte doplním, nemusí sa vytvárať upozornenie na každú novú hodnotu.
Stačí jedno upozornenie, keď pribudnú nové hodnoty.

Ahojte.

Chcel by som Vás poprosiť o pomoc.

Do stĺpca "A" sa zadávajú číselné hodnoty.
V tomto stĺpci sa hodnoty nemažú, iba pribúdajú v nových riadkoch.

Potreboval by som makro, ktoré by rozpoznalo, že sa pridala nová hodnota v novom prázdnom riadku tohoto stĺpca a upozornilo by ma napríklad msBOXom / mailom, že sa tak stalo.

Ideálne aby sa toto všetko udialo po uložení / zavretí dokumentu.

Povolené sú aj nové listy v zošite na nejaké kopírovanie pôvodných a nových hodnôt a ich následné porovnávanie.

Viem si po uložení skopírovať daný stĺpec "A" ako pôvodné hodnoty, ale už sa mi nepodarilo urobiť to porovnanie pôvodných a nových hodnôt.

Za každú pomoc ďakujem.

Asi som už na to prišiel.
V niektorých riadkoch prvého stĺpca som mal zadanú hodnotu "1".
Keď som to vymazal, tak to zrazu fungovalo

ešte error

elninoslov napsal/a:

Tak skúste toto. Má to ale háčik. Nemôžete kontrolovať či ste iba vstúpil do bunky a potvrdil (nezmenil) hodnotu, alebo ste zadal inú. Museli by sa niekde kvôli tomu ukladať všetky hodnoty (skrytý list). Čiže Vám to tam pridá/zmení vždy.Příloha: 44271_skopiruj-nove-ceny2popis.zip (55kB, staženo 6x)


Zdravím Vás.
Nerád Vás znovu otravujem.

Narazil som na jeden problém.
Keď do listu "DATA - NO" nakopírujem úplne iný a nový zoznam artiklov tak mi vyhodí chybovú hlášku error 457 a odkáže ma jeden riadok kódu.

Dalo by sa to nejako ošetriť, že keď tam nakopírujem úplne nový zoznam artiklov tak to bude fungovať rovnako ako pred tým ?

Predpokladám, že makro si pamätá pôvodný zoznam artiklov a nový už nechce akceptovať.

Ďakujem Vám.

elninoslov napsal/a:

Tak skúste toto. Má to ale háčik. Nemôžete kontrolovať či ste iba vstúpil do bunky a potvrdil (nezmenil) hodnotu, alebo ste zadal inú. Museli by sa niekde kvôli tomu ukladať všetky hodnoty (skrytý list). Čiže Vám to tam pridá/zmení vždy.Příloha: 44271_skopiruj-nove-ceny2popis.zip (55kB, staženo 5x)


Ďakujem.
Myslím, že to takto funguje dobre.
Do konkrétnych buniek budú vstupovať iba keď bude zmena.

Ešte raz ďakujem za pomoc 1

elninoslov napsal/a:

Je už veľa hodín, tak pridám len kód, a logické veci, čo môžu nastať, nechám na zajtra. Napr. Čo s komentárom, ak sa bunka neaktualizuje, má sa mazať komentár? Alebo ak tam už je, má sa prepísať, alebo sa má text pripísať ...?Příloha: 44269_skopiruj-nove-ceny2popis.zip (51kB, staženo 1x)


Už teraz to funguje tak ako som si predstavoval 1

- Keď sa zmení cena a komentár v bunke nie je, tak sa komentár vytvorí s aktuálnym dátumom.
- Keď sa zmení cena a komentár už v bunke je, tak sa prepíše aj komentár s aktuálnym dátumom.
- Keď sa cena nezmení, tak sa nezmení ani komentár, ale zostáva stále prítomný s dátumom posledného precenenia.

Takže to funguje 1 ĎAKUJEM.

Šlo by toto spraviť aj keď sa cena prepíše RUČNE na liste DATA - NO resp. "wsAktualne" ? Samozrejme iba v bunkách AKTULNYCH CIEN.

Lebo nie vždy sa bude používať modul pre hromadné precenenie. Ľudský faktor, keď sa v nejakom skrate rozhodne, môže zmeniť ceny aj ručne 1

elninoslov napsal/a:

Urobil som Vám tam radšej aj kompletný popis makra.Příloha: 44183_skopiruj-nove-ceny2popis.zip (45kB, staženo 9x)


Zdravím Vás Pane.

Chcel by som Vás poprosiť ešte o radu.
Veľmi ste mi pomohli s vyššie uvedeným problémom.

Snažím sa ešte doplniť do toho Vášho makra to, že keď prebehne prepis starých cien za nové, tak sa hneď aj do tých buniek vloží komentár v ktorom sa zapíše aktuálny dátum, kedy prebehlo precenenie daného artiklu a ceny.

Našiel som takéto makro, ktoré funguje, ale nedarí sa mi to dosadiť do Vášho makra. Vedeli by ste mi prosím pomôcť ?

Ďakujem.

Sub DatedComment()

Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True

End Sub


Strana:  « předchozí  1 2 3 4 5 6 7 8   další »

Uživatelské menu

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

Menu

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.

On-line nástroje