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.
Opičák napsal/a:
stejné, jen rozšiřené msgPříloha: 21813_povinne_pole_priklad2.zip
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
mosquito791 napsal/a:
a co takhle
viz přílohaPříloha: 21825_povinne-pole.zip
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.