PC-HELP.CZ

zdravíčko mám problém s vypsáním pole, mám tento kód

Private Sub Worksheet_Change(ByVal Target As Range)
Dim seznam(10)

For i = 1 To 6
    seznam(i) = Range("B" & i).Value
Next i


For k = 1 To 6
    Range("D" & k) = seznam(k)
Next k


End Sub

a když to spustím tak to hází chybu Method '_Default' of object 'Range' failed
občas to vypíše 4 řádky občas žádnej jak kdy, prosím o radu jak to mám vyřešit. Děkuji!

a) zacyklení kódu
b) nepromyšlená definice pole
c) nevhodné překlápění pole do listu
d) proč vůbec pole
e) proč tohle celé

Nebudu zkoumat proc tohle cele (ackoliv se tomu taky dost divim).
Kazdopadne, pokud pouzijete udalostni proceduru change, tak se pri kazdem zapsani do sloupce D procedura spusti znovu (dojde ke zmene), takze se to cele zacykli...

Pokud to musi byt navazane na zmenu, tak musite na zacatku vasi procedury zakazat spousteni udalostnich procedur (Application.EnableEvents = False) a na konci je zase povolit (Application.EnableEvents = True)

PC-HELP.CZ

vypsání pole do buněk hází chybu

vypsání pole do buněk hází chybu

Re: vypsání pole do buněk hází chybu

Re: vypsání pole do buněk hází chybu