MS Excel

Téma: ověření v tabulce II

Zaslal/a lachatol 16.11.2010 17:14

http://wall.cz/index.php?m=topic&id=2967

šlo by upravit makro tak, aby při vyplnění poslední pravé buňky (sloupec P) došlo k automatickému uložení všech změn v sešitu?

Příloha: zip

3174_2985_formular.zip (30kB, staženo 12x)

Zaslat odpověď >

Poki(17.11.2010 11:53)#003182

zkus do modulu Listu pridat tento kod:Private Sub Worksheet_Change(ByVal Target As Range)
radek = Cells(65000, 1).End(xlUp).Row
If Not Intersect(Target, Cells(radek, 16)) Is Nothing And IsEmpty(Target) = False Then
ThisWorkbook.Save
MsgBox "Sešit byl uložen", vbInformation, "Saved"
End If
End Subcitovat

lachatol(30.11.2010 14:07)#003365

Funguje,
díkycitovat

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.