Příspěvky uživatele

Ďakujem za ochotu...

Re: elninoslov
To spisovanie hodnoty v jednom stĺpci je požiadavka používateľa, aby nemusel otrocky zadávať hodnotu, ktoré je nutné v každom riadku zadať, opakuje sa viac krát za sebou. Takže raz zadá tú hodnotu a potom už len pre hodnotu 1 a 2 zadáva údaje a potvrdzuje entrom.

Chybu som už našiel, bolo tam na 1. liste "zašmodrchané" makro:
Private Sub Worksheet_Activate()
'Vypnutie zobrazovania systémových hlášok.
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
End Sub

po jeho odstránení je všetko OK.

Po Obnovení v 2.Liste je prechd na 1.List.
( Sheets("1.List").Select )

Mám Zošit a v ňom dva Listy.
1. list je tabuľka v ktorej zadávam hodnoty a makro skopíruje obsah predošlej Bunky, ak je sú splnené podmienky.
Makro 1.listu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Riadok, Stlpec As Integer
Dim PredoslaKvalita As String

Riadok = ActiveCell.Row
Stlpec = ActiveCell.Column

If Stlpec = 2 And Riadok <> 2 And Len(ActiveCell.Value) = 0 Then
PredoslaKvalita = Cells(Riadok - 1, 2).Value
If Len(PredoslaKvalita) > 0 Then
ActiveCell.Value = PredoslaKvalita 'Skopíruje predošlú Kvalitu
ActiveSheet.Cells(Riadok, Stlpec + 1).Activate
End If
End If
End Sub

2. list obsahuje Kontingenčnú tabuľku.

Po zadaní hodnôt do 1.listu, v 2.liste po príkaze Údaje->Obnoviť všetko (alebo kontextové menu tabuľky->Obnoviť) Makro v 1. liste prestane pracovať.

Po zatvorení Zošitu a opätovnom spustení zase všetko funguje, pokiaľ sa nepoužije príkaz Obnoviť...

Ako zabezpečiť funkciu makier po príkaze Obnoviť?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje