Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Jak Uložit Soubor Excel Po Zadání Dat a vlozeni datumu s casem
hlavní kategorie | zpět | + odpovědět na toto téma| Jak Uložit Soubor Excel Po Zadání Dat a vlozeni datumu s casem - diskuze na toto téma |
| Dobry den,
mohl by mi prosim nekdo upravit kod aby excel delal obe funkce: automaticke doplnovani casu do bunky D a automaticke ukladani dat po zmene.(save)
hlasi mi chybu stejneho jmena, Worksheet_Change :-( a nevim jak dale
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, Zmazat As Range, Cas As Range
Set Zmena = Intersect(Range(Cells(2, 1), Cells(Rows.Count, 1)), Target)
If Not Zmena Is Nothing Then
For Each Bunka In Zmena.Cells
Select Case IsEmpty(Bunka)
Case True: If Zmazat Is Nothing Then Set Zmazat = Bunka Else Set Zmazat = Union(Zmazat, Bunka)
Case False: If Cas Is Nothing Then Set Cas = Bunka Else Set Cas = Union(Cas, Bunka)
End Select
Next Bunka
If Not Zmazat Is Nothing Then Zmazat.Offset(, 3).ClearContents: Set Zmazat = Nothing
If Not Cas Is Nothing Then Cas.Offset(, 3) = Now(): Set Cas = Nothing
Set Bunka = Nothing: Set Zmena = Nothing
End If
End Sub
Private Sub |
