Příspěvky uživatele
< návrat zpět
Ď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ť?
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články