@cmuch: normálně by to mělo jít
ale nejde
dá sa v overení použiť zoznam, kde ako zdroj uvedieš:
a;b;c
alebo, ako píše cmuch, vytvoriť pomenovanú oblasť (buniek) a tie použiť ako zdroj
Maticovú konštantu (ktorá kombinuje dva hore uvedené spôsoby) ale ako zdroj pre overenie dát pmn nepoužiješ, chvíľu som to skúšal a skutočne sa nedarí..
Pokiaľ sa súbor skopíruje cez prieskumníka, tak bez toho, aby sa súbor otvoril, doňho dátum nezapíšeš. Takže osobne by som to riešil asi pomocou Workbook_Open eventu, t.j. k zápisu dátumu by došlo až po otvorení súboru (ako píšem hore, bez toho zapísať dátum i tak nejde). V tom evente otestovať, či dátum už bol v minulosti zapísaný a iba v prípade, že dátum zapísaný doteraz nebol, povoliť zápis (buď systémové dátum - Date, alebo dátum poslednej zmeny - FileDateTime).
Podobne by som aplikoval i Workbook_BeforeSave event, kde by som skrz hodnotu SaveAsUI testoval, či sa jedná o Save alebo Save As.
Pmn to vyriešiť nejaký veľký problém nebude, ale písať ten kód nebudem, na to upozorňujem dopredu, aby som náhodou nevzbudil nejaké márne očakávania.
Bolo by to možné, iste, ale je to pmn úplne zbytočné vzhľadom k tomu, že daný údaj sa dá pohodlne získať prostredníctvom ikony Document Location (česky to bude niečo ako umiestnenie súboru), ktorú stačí vytiahnuť do QAT (quick access toolbar - panel nástrojov rýchly prístup).
Could you upload zipped excel file in order to let us see (number) formats in both sheets? Solution depends on formats mentioned. What shall happen with A1 if 11.1. is in A6 instead of A5? Better description of your problem would be needed, I suppose.
Prílohy som neprechádzal, tak neviem, možno to tu už niekto použil: K zisteniu dátumu a času poslednej zmeny v danom (nejakom) súbore slúži VBA funkcia FileDateTime. Čus.
marficek119 napsal/a:
Nejrychlejší bude asi použít podmíněné formátování a najít duplicitní hodnoty. Duplicitní hodnoty nějak zvýraznit a zbytek nezvýrazněných čísel budou chybějící čísla ve druhém sloupci.
Čítať viem a písanému textu rozumiem, bez obáv. Na rozdiel od teba. Nie je problém, že si začiatočník. Problém je, že nie si schopný sem dať ani prílohu, z ktorej by bolo jasné, kam má makro zapisovať. Pokiaľ prílohu niekto vytvorí za teba, tak je skoro isté, že si nebudeš schopný ju upraviť, pokiaľ bude makro mať čítať z iných stĺpcov, či listov. Ale pokiaľ ti to pomôže, tak si na mňa pokojne otváraj pusu
Prílohou som myslel niečo, čo bude obsahovať nejaké data - t.j. bude jasné, čo sa kam má tým makrom zapisovať! Už som ti písal, že udalosť Workbook_SheetChange máš mať v kódovom okne ThisWorkbook! Budeš sa musieť začať snažiť, začínam mať dojem, že si pomoc nezaslúžiš..
ad nevím:
Workbook_SheetChange máš mať v kódovom okne ThisWorkbook. Vykašli sa na *.jpg a daj sem zazipovaný excel súbor.
Bude lepšie, pokiaľ sem dáš prílohu ty a niekto ti to do nej dopíše. Ja prílohu na nečisto teda určite tvoriť nebudem
@roscher
V podstate si si odpovedal sám. Treba si uvedomiť, že funkcie Dnes() i Nyní() sú volatilné, tzn. mimo iného, že k ich prepočítaniu dochádza pri každej zmene v súbore, čiže bez VBA to asi nepôjde.
@Palooo
pmn je Workbook_SheetChange a Worksheet_Change v podstate to isté, pokiaľ teda si týmto myslel, že sa to dá urobiť inak.
Nakoľko OP chce datum a čas v samostatných bunkách, tak miesto Cells(aRow.Row, aRow.Column + 1) = Nownapr. Cells(aRow.Row, aRow.Column + 1) = Date
Cells(aRow.Row, aRow.Column + 2) = FormatDateTime(Time, vbShortTime)
V tom prípade sa dá využiť udalosť worksheet_change. Je tu toho na fóre spústa na toto téma, skús preštudovať a pokiaľ s tým sám nepohneš, niekto sa určite nájde. Každopádne, chcelo by to prílohu.
Nestačí vyskúšať predtým, než položíš otázku?
ad rôzne varianty, napr. takto to funguje:
=SUMPRODUCT(--(LEFT(oblast; 1)="2"))
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.