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