MS Excel

Excel 2003.

Viem vymazať prázdne aj poloprázdne riadky filtrom, aj makrom. Ale potrebovala by som, aby mi automaticky vymazalo riadky podľa prázdnych buniek v stĺpci E(spotreba)k určitému dátumu vždy na konci mesiaca k 30., k 31.(28., 29.)

Ak je podmienka dátum v bunke, môže byť v bunke J1.

Ešte jedna podmienka, nech to nevymaže tie riadky, kde sú v stlpci F-výkony.

DOPLNENIE
Ešte by šlo nato nadviazať?

Aby mi zároveň pri odkliknutí - áno vymazať - vytvorilo kópiu súboru na nový mesiac. Teda - vymazať stĺpec E(spotreba)

Zaslat odpověď >

Strana: « předchozí 1 2 3 4 další »

elninoslov(18.2.2017 15:00)#034998

Aby ste si nemýlila "Workbook_Open_Test" s "Workbook_Open", premenujte si "Workbook_Open_Test" na "Skuska_Funkcnosti".

Samozrejme, že Vám to nefunguje, keď "Skuska_Funkcnosti" spustíte s dátumom 18.2.2017. Nič sa neudeje, lebo 18. nieje posledný deň v mesiaci. Posledným februárovým dňom v tomto roku je 28. ! Nie 18. A ešte pozor na ten čas. Obe podmienky musia byť splnené.citovat

kabaka(18.2.2017 21:04)#034999

elninoslov napsal/a:

Samozrejme, že Vám to nefunguje, keď "Skuska_Funkcnosti" spustíte s dátumom 18.2.2017. Nič sa neudeje, lebo 18. nieje posledný deň v mesiaci. Posledným februárovým dňom v tomto roku je 28. ! Nie 18. A ešte pozor na ten čas. Obe podmienky musia byť splnené.

@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 :)citovat

kabaka(18.2.2017 21:11)#035000

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

Příloha: jpg

35000_debug.jpg.jpg (13kB, staženo 38x)

citovat

elninoslov(18.2.2017 21:35)#035001

1. Keď dáte Debug v hláške a máte ten riadok označený, kliknite pravým na "Subor" a zvolte "Add Watch" a zo spodného okna si dvojitým klikom skopírujte hodnotu Value, a vložte sem.
2. Aká je to verzia Excelu ?
3. Skúste mi nahrať u Vás makro na "Uložiť ako". Teda na karte Vývojár kliknete na "Zaznamenať makro", súbor dáte Uložiť ako, vymyslíte názov a uložíte ho na miesto kde sa nachádza tento súbor. Na karte Vývojár dáte "Zastaviť záznam", a kód toho makra sem skopírujte.
4. Keď budete na kóde toho nahraného makra, zmente v ňom názov súboru za ďalší pokusný, a stláčaním F8 makrom po kroku spúšťajte. Či dobehne bez chyby do konca.citovat

kabaka(18.2.2017 21:58)#035002

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émovcitovat

AL(18.2.2017 22:03)#035003

AHA už som to konečne pochopila. Zmenila som systémový dátum v pc na 28.02.2017
Asi nepochopila. Proste, makro Workbook_Open_Test nie je udalostne makro. Ziadna udalost ho nespusti, je mozne ho ale spustit rucne. Tym, ze si zmenila systemovy datum, si aktivovala tu rutinu zapisanu vo Workbook_Open.citovat

kabaka(18.2.2017 22:06)#035004

AL napsal/a:

Asi nepochopila.

AHA ok.citovat

AL(18.2.2017 22:33)#035006

Okrem toho, ta podmienka vo Workbook_Open_Test asi nie je napisana spravne, tym padom sa msgbox dnes nespusti ani po aktivovani tohto makra. Hovorim o podmienke, ktoru si zrejme nejako modifikovala, tu povodnu od elninoslov som nevidel, kvoli tomu ale notebook zapinat nebudem. Ono je to ale jedno, on ta elninoslov navedie..
Na prvy pohlad sa mi javi, ze miesto = v tej podmienke ma byt >=.citovat

elninoslov(19.2.2017 1:03)#035007

1. Myslel som okno Watches, podľa tohto obrázku, ale to je jedno viď nižšie.
2. Problém robí parameter xlExcel8, ktorý E2003 nepozná. Je nutné použiť parameter xlNormal v ukladacích príkazoch. Vyskúšal som tento parameter aj v E2016 a funguje, teda nemuseli by sme doprogramovávať kontrolu verzie, ale budiš, je to tam.
3. Podmienka je podľa mňa presne podľa požiadavky, teda upozorní v posledný deň mesiaca po 15:30:00. Ak by sme chceli urobiť, že to prebehne hocikedy po poslednom dni (teda napr. v polke ďalšieho mes.), musíme zabezpečiť niekde v súbore (v bunke) uložený príznak, ktorým makro pri prípadnom ďalšom otvorení súboru spozná, či už bolo vykonané (premazané, prečistené, uložené). Inak by to mohlo spôsobiť nemilé prekvapenie. Ale dá sa to.
4. Malá úprava vzorca v C1 prvého listu, kvôli chybnej interpretácii "yyyy" CZ Excelu (ten požaduje "rrrr").
5. Pridaná kontrola odmietnutia prepísania súboru, lebo to vyvolalo chybu.
6. Musel som si kvôli Vám nahodiť virtuálku s XP a Off2003

Příloha: zip

35007_spotreba-unor-2017.zip (190kB, staženo 35x)

citovat

kabaka(19.2.2017 9:42)#035011

elninoslov napsal/a:

6. Musel som si kvôli Vám nahodiť virtuálku s XP a Off2003Příloha: 35007_spotreba-unor-2017.zip (190kB, staženo 2x)

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

Strana: « předchozí 1 2 3 4 další »

Téma: Vymazať prázdne riadky k určitému dátumu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje