< návrat zpět

MS Excel


Téma: Vyplnenie povinných polí rss

Zaslal/a 7.10.2014 12:17

maeAhojte

potreboval bz som poradit.
Mam xls file (priloha) kde je niekolko stlpcov a niektore z nich su povinne polia (pri ich nevyplneni excel nedovoli ulozit subor).

Tento jednoduchy kod:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cellcontents = ActiveSheet.Range("B5").Value
If Cellcontents = "" Then
Cancel = True
MsgBox "Company Name is empty . Unable to Save!", vbOKOnly, "Check Cells"
Exit Sub
End If
End Sub

..robi to co by som potreboval s tym rozdielom ze ja potrebujem nahradit odkaz na fixnu bunku B5 odkazom na pohyblivu bunku v stlpci B podla toho ktory riadok je posledny vyplneny (Posledny vyplneny riadok moze pocitat podla stlpca B) a potrebujem vyplnit vsetky povinne stlpce nielen stlpec B.

Dakujem pekne za kazdu radu. 1

Příloha: zip21806_povinne_pole_priklad.zip (8kB, staženo 46x)
Zaslat odpověď >

Strana:  1 2   další »
#021807
Opičák
Šlo by to jednoduchým vyhodnocením zda jsou čísla posledních řádků ve všech modrých sloupcích stejná.
Příloha: zip21807_povinne_pole_priklad.zip (17kB, staženo 39x)
citovat
#021813
Opičák
stejné, jen rozšiřené msg
Příloha: zip21813_povinne_pole_priklad2.zip (18kB, staženo 37x)
citovat
#021814
avatar

Opičák napsal/a:

stejné, jen rozšiřené msgPříloha: 21813_povinne_pole_priklad2.zip

Ale aj ak to nie je vyplnené, tak to uloží. 4citovat
#021817
mae
Dakujem za radu Opicak, viacmenej to funguje pre posledny riadok ale je pravda co pise marjankaj ze ak vymazes dake data z povinnych poli napr v predposlednom riadku tak uz ta to pusti ulozit 7citovat
#021818
avatar

mae napsal/a:

Dakujem za radu Opicak, viacmenej to funguje pre posledny riadok ale je pravda co pise marjankaj ze ak vymazes dake data z povinnych poli napr v predposlednom riadku tak uz ta to pusti ulozit

No ide to aj bez uloženia.
Zatiaľ som našiel riešenie, že neuloží žiadne zmeny a zatvorí zošit bez uloženia. To asi nebude veľmi praktické.citovat
#021825
€Ł мσşqμΐτσ
a co takhle

viz příloha
Příloha: zip21825_povinne-pole.zip (9kB, staženo 47x)
citovat
#021826
avatar

mosquito791 napsal/a:

a co takhle

viz přílohaPříloha: 21825_povinne-pole.zip

Presne. To je ono.citovat
#021884
mae
@ Mosquito, dobre riesenie ale ma to jednu malu chybicku - stale sa to da obist a ulozit ak sa nevyplni alebo vymaze stlpec datum podla ktoreho tool pocita.

@ Opicak, toto riesenie by bolo lepsie ak by clovek vyplnal vzdy len jeden riadok (lebo v poslednom riadku ho nepusti ulozit subor ak nema vyplnene uplne vsetky povinne stlpce vratane stlpca datum). Ak vsak vyplni naraz 2 riadky a v tom prvom vynecha co chce tak to tool uz pusti ulozit!

Otazka:
Nedalo by sa to nejako skombinovat aby sa naozaj podarilo zabranit nevyplneniu uplne vsetkych povinnych poli pre kazdy riadok sheetu?

Otazka2:
Ak by som mal obdobnu tabulku na viacerych sheetoch, dal by sa dorobit cyklus pre viacero sheetov? (napr. vyplnil by som 3 sheety nekompletne a tool by ma upozornil na kazdu jednu zle vyplnenu bunku v kadzom jednom sheete)

Dakujem.citovat
#021886
Stalker
Trochu sem přepsal kód od Mosquita, snad bude vyhovovat.
Příloha: zip21886_povinne-pole.zip (13kB, staženo 41x)
citovat
#021889
€Ł мσşqμΐτσ
Upravil jsem řádek s "r_max" (vba), aby poslední řádek hledal v celém listu a ne ve sloupci "B".
Tohle by snad melo stačit.

Pokud ne, tak bych navrhoval upravit makro tak, aby se při otevírání zamkly již vyplněné buňky(řádky).
Tím by se předešlo nechtěnému mazaní již uložených dat.

Cyklovat by to šlo taky, ale je otázka či v těch ostatních listech budou povinné sloupce stejné.
Příloha: zip21889_povinne-pole.zip (12kB, staženo 40x)
citovat

Strana:  1 2   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