excel, návod, tipy, funkce, makra, vba, tabulky, šablony

Váš průvodce programem Microsoft Excel a programováním maker ve VBA

Příspěvky uživatele

< návrat zpět

Prekopírovala som text z wordu do excelu, aby som mohla zoradiť údaje od A do Z. Problém je, že aj pri orientácií "na šírku" a malej veľkosti fontu "8" mi presahuje text na dva (aj tri )riadky, lebo je dlhý.

Ako by som to čo najjednoduchšie, najrýchlejšie a najefektívnejšie zoradila?

jedná sa stále o ten istý súbor

1 Úprava makra sa týka hárku zoznamu pacientov preto som to vypichla. Však som napísala, že sa jedná o najnovší súbor, ktorý ste mi vytvorili.

2. Všetky makrá, čo ste mi vytvorili používam a budem používať.

3. OK, tak si to podmienený formát urobím ručne.

4. Lebo som zistila, že keď vymažem stĺpec E, ktorý bol pomocný, tak makro mi fungovalo aj tak.

5. Ponechanie čísla "1" a názvu oddelenia, tak ako bolo naznačené v súbor.

6. Celkom nerozumiem. Práveže tam mám dve tlačítka, jedno posiela na posledný voľný riadok (Nový záznam)(s prihladnutím na KUCH) a druhé zaraďuje záznamy pod príslušné odd. (Zaradiť). Jedine ak myslíte toto: Pôvodne tlačítko Zaradiť bolo na jeden záznam, potom sa upravilo na viac záznamov. Tým pádom CB1 je tam navyše nie CB2.

Jedná sa o súbor z Vašej poslednej odpovede, kde ste mi upravili makro, aby sa mi pri uložení nového mesiacu vymazal a odstránil aj obsah na hárku zoznam pacientov.

DOPLNENIE
7. Ďakujem veľmi pekne. Makro som hodila do súbor a funguje ako má. Ďakujem za snahu a trpezlivosť.

Mohla by som poprosiť o drobnú úpravu makra v tomto najnovšom súbore 35024-spotreba-unor-2017?

Ide o hárok Zoznam pacientov po prebehnutí makra.

Aktuálne makro funguje :vymazať obsah riadkov A12:H43 a odstrániť riadky A44:I44 smerom dole

výsledok makra po úprave:
úprava:vymazať obsah B12:H44 a odstrániť A50:I50 smerom dole s ponechaním prvých riadkov odd. A45:I49

pridať:nech ostane číslovanie pre KUCH do riadku A44 (končiace číslom 33)

pridať:nech ostane číslovaný prvý riadok z každého odd. (farebne označený)

viem spraviť podmienený formát ručne, v makre by to bolo efektívnejšie

Prikladám súbor vytrhnutý z kontextu ktorý je súčasťou spotreby, jeden hárok s aktuálnym makrom a jeden hárok s výsledkom, ktorý by som chcela dosiahnúť po úprave makra.

Ďakujem veľmi pekne.

Pochopili ste to správne, ďakujem.
Ušetrili ste mi kopou roboty a času. Super. Geniálne.

Makro otestované v práci v exceli 2003 sk verzia. Funguje.Vďaka.

@elinoslov
Ja sa vopred ospravedlňujem.
Poprosím o drobnú úpravu makra.

Mala som 3 súbory, ktoré potrebujem k svojej práci.
1. Zoznam pacientov
2. Mesačná spotreba
3. Konečná spotreba oddelení a kliník
(to potrebujem len na konci mesiaca)

Predtým som tieto tri súbory mala jednotlivo, oddelene. Teraz som sa rozhodla ich dať dokopy, aby som sa nemusela preklikávať z jedného do druhého.

Preto prikladám nový súbor. Nakoľko pôvodný súbor obsahoval len mesačnú spotrebu. Tento obsahuje aj zoznam pacientov aj konečnú spotrebu oddelení a kliník.

Zatiaľ som pridala a skryla pomocný stĺpec E.
Nakoľko makro berie všetky hárky v zošite.
Určite sa to dá v makre ošetriť.)

Makro funguje ako má.
Šlo by to toho vsunúť ešte:

1. vymazať údaje (v riadkoch)zo zoznamu pacientov v rozsahu A12:H43

2 odstrániť riadky zo zoznamu pacientov v rozsahu
A44:J44 (smerom dole)

DOPLNENIE-OPRAVA prikladám nový súbor, v bunke B1 bol zlý rok 1900

Ten abs. nejde do hlavy mne, ale funguje to. Ja som tušila, že so SUMIF by to mohlo ísť, ale nevedela som ako.

Ďakujem za snahu a trpezlivosť.
Geniálne, super, teraz to funguje ako má.
Ďakujem veľmi pekne.

AHA ok.

1) Sú tam 3 možnosti, neviem či to je ono,čo ste po mne chceli.

Break : : xlExcel8 : Empty : Variant/Empty : Module1.UlozAVytvorNovyMesiac

Change: : xlExcel8 : Empty : Variant/Empty : Module1.UlozAVytvorNovyMesiac

Watch : : xlExcel8 : Empty : Variant/Empty : Module1.UlozAVytvorNovyMesiac

2)excel 2003 český

3)
Sub Makro1()
'
' Makro1 Makro
' Makro zaznamenané 28.02.2017, Marcel
'

'
ChDir "C:\Documents and Settings\Bugatti\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Bugatti\Desktop\Spotreba únor 20171.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

4) súbor mi uložilo bez problémov

Hláška

Len mi vyskočila táto chybová hláška a označila tento riadok

ThisWorkbook.SaveAs Filename:=Subor, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False 'Ulož ako starý mesiac

@AL
AHA už som to konečne pochopila. Zmenila som systémový dátum v pc na 28.02.2017 a vyskočil mi ms box. Už mi je to jasné.

Problém bol medzi PC a stoličkou. Hlavne, že som sama na začiatku hovorila o reakcii na systémový dátum, že?:) A zabadula som nato :)

Tak už neviem, kde robím chybu. Stiahla som si posledný súbor. Prepísala som na aktuálny dátum aj čas. A msbox mi nevyskakuje.

Private Sub Workbook_Open()
If (DateSerial(Year(Date), Month(Date) + 1, 1) = Date + 1) And (Time > TimeValue("11:40:00")) Then Call VymazRiadky
End Sub

Private Sub Workbook_Open_Test()
Dim D As Date, C As Date
D = DateValue("18.2.2017") 'Otestovanie na iný dátum (vo "Workbook_Open" sa totiž testuje aktuálny dátum)
C = TimeValue("11:40:00") 'Otestovanie na iný čas (vo "Workbook_Open" sa totiž testuje čas 15:30:00)
If (DateSerial(Year(D), Month(D) + 1, 1) = D + 1) And (Time > C) Then Call VymazRiadky
End Sub

Skúšala som aj 18.02.2017 aj 18.2.2017.

Práveže som si všimla, že ste mi zmenili prvý riadok(Ale prehliadla som dátum v bunke B1, to je pravda.) To je ok. Len som zabudla na súvislosť s makrom a presne ako hovoríte makro som nakopírovala do pôvodného súboru, ale bez toho zmeneného prvého riadka,preto to nemohlo fungovať, to je jasné. Čo sa týka testu, som pochopila, že je tam asi preto, aby som to mohla otestovať v iný deň. OK.Záloha nie je potrebná. Každý deň si zálohujem súbor do archívu a tým, že sme na doméne, synchronizujú sa nám priečinky, viem sa teda vrátiť k predchádzajúcim verziám. Ale vďaka za upozornenie.

Neviem to otestovať.

Zmenila som v súbore dátum na aktuálny 18.02.2017 aj čas a tabuľka msbox mi nevyskočila. Asi preto, že v tom vašom súbore (spotreba-únor)sú riadky makrom už vymazané, preto mi neponúkne msbox.
Tak som makro prehodila do pôvodného súboru, ale aj tak mi to nefunguje.

Nemá byť náhodou toto nové makro Private Sub Workbook_Open_Test() v This workbook? Mám ho v Module.
Prehodila som ho, ale aj tak mi to nefunguje.

Posielam pôvodný súbor sa Vaším makrom, mohli by ste sa mi na to pozrieť?

Uživatelské menu

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje