Zatiaľ som pomocou pokusov došiel k takému niečomu a funguje to. Možno je nejaký lepší spôsob, ktorý by bol rýchlejší a menej náročný. Nie som tak zdatný vo VBA. Samozrejme potreboval by som to aspoň na tých 10 oblastí, kde by bol vždy sledovaný len jeden riadok z každej z nich. Čiže maximálne by sa sledovalo 10 riadkov súčasne. Ďakujem za pomoc. :-)
Private Sub Worksheet_Calculate()
Dim Target As Range
Set Target = Range("AI64")
If Not Intersect(Target, Range("AI64")) Is Nothing Then
Application.EnableEvents = False
If Range("X64").Value = "YES" Then
Range("AT64").ClearContents
Range("AU64").ClearContents
Range("Y64").ClearContents
If Range("AD64") = "SELL" Then
If Range("AI64").Value >= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value <= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
If Range("AD64") = "BUY" Then
If Range("AI64").Value <= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value >= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
super riešenie, skvelá práca a ďakujem za Váš čas. Trochu som pracoval s prvým riešením a upravil to do mojej tabuľky podľa potreby, zatiaľ len na jeden riadok. Mám však jeden problém, že keď zadávam hodnoty manuálne, tak všetko funguje správne podľa mojich predstáv, ale keď hodnotu v bunke(v tomto našom príklade (stĺpec B) v mojom kóde AI64, ktorý prikladám, získavam cez vzorec a tá hodnota sa mi aktualizuje z DDE servera, tak mi to nefunguje. Viete mi prosím poradiť riešenie?
Uvedomujem si, že keby to bolo veľa tých riadkov, ktoré by sa mali sledovať, že by to zaťažilo a bolo pomalé.
Tak jedna oblasť by bola od riadku 64:78, ďalšia 107:121, ďalšia 150:164, 193:207, 236:250, 279:293, 322:336, 365:379, 408:422, 451:465. Potrebujem, aby to bolo čo najrýchlejšie a najpresnejšie.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AI64")) Is Nothing Then
If Range("X64").Value = "YES" Then
If Range("AD64") = "SELL" Then
If Range("AI64").Value >= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value <= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
If Range("AD64") = "BUY" Then
If Range("AI64").Value <= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value >= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
End If
End If
If Not Intersect(Target, Range("X64")) Is Nothing Then
If Range("X64").Value = "YES" Then
If Not Range("X64").FormulaHidden Then 'Vlastnosť bunky využitá na uchovanie predchádzajúceho stavu sledovania
Range("AT64").ClearContents
Range("AU64").ClearContents
Range("Y64").ClearContents
Range("X64").FormulaHidden = True
End If
Else
Range("X64").FormulaHidden = False
End If
End If
End Sub
Je možné to upraviť na celé stĺpce? A2, A3, ... a bolo by to možné doplniť o funkciu, že keď sa dosiahne/prekročí cieľ nejakou hodnotou, tak aby sa vedelo akou? že by sa tá hodnota ukladala do stĺpca F. ďakujem :-)
funguje to podľa predstáv :-) zatiaľ ďakujem veľmi pekne. :-)
Zdravím.
Mám takú vec, v A1 je povedzme nejaký identifikátor(Meno) v Bunke B1 sa menia neustále hodnoty, v Bunke C2 je hodnota, ktorá je konštantná a nemení sa - plní funkciu kritéria a cieľa. V bunke D1 by som chcel dostať čas s dátumom, kedy hodnota v bunke B1 dosiahla(hodnotu ktorá je rovná, alebo väčšia ako hodnota v B2) hodnotu podľa bunky B2. A keď už dosiahne raz túto hodnotu, tak aby sa sledovanie skončilo, pretože hodnota v bunke B1 môže zas klesnúť pod hodnotu C2 a časom zas dosiahnuť, alebo ju prekročiť. Mne ide iba o ten prvý moment, keď sa tak stane. Čiže v Bunke E1 by mohlo byť ďalšie kritérium, ktoré by spúšťalo sledovanie, čiže keby tam bola hodnota "Sledované" a začalo by tak zas sledovať kedy hodnota v Bunke A1 dosiahla hodnotu podľa hodnoty v bunke B2 a keď by sa hodnota v E1 zmazala, alebo zmenila na inú hodnotu "Nesledované", tak by sa celý proces ukončil.
Zároveň, keby bolo možné aj zvukový oznam, keď sa tak stane a neviem či excel umožňuje takú funkciu, ale nejakú notifikáciu v podobe toastu, keď som napríklad v inom hárku, niečo ako: Fero dosiahol svoj cieľ!
Ďakujem za pomoc. :-)
Vypadá to tak, že ste to spravil na 1 000% :-) Ak by som našiel nejaký problém, tak sa ozvem. Zatiaľ veľmi pekne ďakujem za Vašu prácu. :-)
môže tam za nejaký čas pribudnúť veľa rovnakých oblastí(importov), ale s random položkami v D:F a cenami v H:J, všetky sú stále živé a ceny sa v nich môžu kedykoľvek zmeniť, zároveň aj keď v nejakých oblastiach položka nemá ešte cenu, tak tam môže časom pribudnúť, čiže keď zoberiem príklad, ktorý som sem priložil, tak v poslednej oblasti, pre ktorú ste spravili makro, tak tam cenu ešte nemá napríklad kukurica, ale za nejaký čas sa tam môže objaviť, čiže dajme tomu kukurica by sa objavila v D42 a následne aj cena v H42, tým pádom potrebujem, aby sa cena objavila aj v B49 niekedy sa môže stať, že cena sa neobjaví, tak sa to stále berie, ako prázdna bunka, tým pádom keď sa objaví kukurica v D42 a nebude mať cenu v H42, tak bunka B49 ostane prázdna. Čiže nedá sa to ukončiť textom, lebo je to stále "živé" a hodnoty sa môžu kedykoľvek aktualizovať - to znamená pre všetky už importované dáta v D:J, čiže aj oblasť jedna a aj dva. Tých oblastí(importov) tam môže byť aj časom 50 - ich počet nie je obmedzený a stále budú postupne pribúdať ďalšie a ďalšie. V D:J sa môže stať situácia, že nemusí byť žiadna hodnota, ale časom sa môže objaviť, lebo je to stále "živé". Nové importy pribúdajú zhora - čiže keď pribudne nový import, tak sa všetko posunie smerom nadol, čiže z tej tretej oblasti, pre ktorú ste spravili makro, tak sa z nej stane oblasť štvrtá, čiže stále ako posledná. Snáď sa mi to podarilo opísať zrozumiteľne :-)
veľmi dobrý nástrel :-) ešte by som potreboval takú vec, že tých importov tam bude postupne pribúdať, takže podľa tohto nástrelu by som musel pre každý taký import vyrobiť ďalšie makro - pre tú "oblasť"(A1:A16, A20:A34, A38:A53), čo mi príde dosť nepraktické, bolo by to možné spraviť cez vzorec? alebo jedno makro, ktoré by to tak robilo? ďakujem za váš čas :-)
Áno, položky v stĺpci "A" sú stále pevne zoradené. tých položiek je v niektorých prípadoch viac, niekedy menej, počet je zhruba okolo 36-40(tabuliek je viac druhov a položky sa menia a aj ich počet).
Zdravím Vás, neviem si dať rady s týmto problémom: dostanem import dát, v tomto zjednodušenom príklade nejaký tovar v stĺpcoch D:F a k nemu ceny v stĺpcoch H:J...lenže ten import tovaru je vždy random. Myslím si, že z príkladu to dobre pochopíte, uviedol som tam dva príklady a v treťom sa môžete "vyblázniť" :-)
Ďakujem za Vaše rady a pomoc. Prajem pekný zvyšok dňa, excelu zdar. :-)
P:S. mňa napadlo riešenie cez cell(address, lookup)...ale v reálnom prípade je toho tovaru viac a importov tiež. toto je len lite verzia.
super, ďakujem za pomoc, dosť ste mi pomohli a niečo nové som sa priučil, ste všetci super....veľká vďaka :-)
Zdravím, potrebujem pomoc s týmto príkladom, potrebujem nejako upraviť(zdokonaliť) vzorec, ktorý používam v D3:E17 a aby som dostal správny výsledok ako som vypísal v G3:H17 ....tu moje znalosti excelu končia a neviem si dať rady ani za pomoci uja GOOGLEHO :-D vedel by mi niekto prosím pomôcť? mám pocit, že kde sú kladné hodnoty, tak je to ako dátum a neviem s tým pohnúť. Dáta sú importované z CSV súboru a nemám možnosť meniť formát.
Ďakujem za rady :-)
myslím, že je to ono...veľká vďaka, pochopil som ako fungujú relácie :-)
Veľmi pekne ďakujem za Vaše riešenie a hlavne za Váš čas. :-) Je to veľmi zaujímavé riešenie, určite ma to inšpirovalo. Nie je to však celkom ono...Ja som v tomto začiatočník a nevyznám sa v tom tak celkom a neviem sa dopátrať k riešeniu a či je to vôbec možné, čo si predstavujem. Moja predstava je, že by bol len jeden jednoduchý filter, tak ako sú tie v hárkoch 2019-K a 2020-K, ktorý by ovládal tie filtre, ktoré sú tam. Dáta ktoré dostanem v KT v hárkoch 2019-K a 2020-K ďalej používam na analýzu, čiže slúži to ako zdroj dát s ktorými ďalej pracujem, preto by som potreboval, aby sa tým MASTER filtrom upravovali filtre, ktoré sú priamo v týchto hárkoch. Je to vôbec možné?...ďakujem :-)
ak by sa Vám dalo, mohli by ste mi to názorne spraviť na mojej ukážke?...ďakujem
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.