MS Excel

Téma: Vyplnenie povinných polí

Zaslal/a mae 7.10.2014 12:17

Ahojte

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.

Příloha: zip

21806_povinne_pole_priklad.zip (8kB, staženo 46x)

Zaslat odpověď >

Strana: « předchozí 1 2

mae(16.10.2014 11:52)#021898

@Mosquito,

dik ta uprava r_max naozaj velmi pomohla a odstranila problem s B stlpcom.

Ano v ostatnych listoch budu vsetky stlpce vratane povinnych stlpcov presne rovnake.

Ten cyklus pre viac sheetov by bodol! :)citovat

€Ł мσşqμΐτσ(16.10.2014 12:16)#021899

tady to máš.

počet listů jsem bral všechny listy v sešitu.

upravil jsem trochu msgbox, aby byl videt i název listu.

Příloha: zip

21899_povinne-pole.zip (13kB, staženo 31x)

citovat

mae(21.10.2014 14:40)#021975

dokonale!citovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.