Proč tato funkce nefunguje ?! Vyřešeno

[Madara]

Kód: Vybrat vše

    On Error Resume Next
   TextBox1 = Range("B10")
   TextBox2 = Range("B12")
   TextBox3 = Range("B15")
   TextBox4 = Range("B17")
   TextBox5 = Range("B18")
   TextBox6 = Range("E10")
   TextBox7 = Range("E11")
   TextBox8 = Range("E12")
   TextBox9 = Range("A23")
   TextBox10 = Range("37D")
   TextBox11 = Range("38D")

Kód z tohoto souboru :

protokol1.xls

(111 KiB) Staženo 6 x

Proč to nefunguje ? Kdopak mi to opraví ? Spěchá to, děkuji

[Reklama]

[cmuch]

Tak to End if co je zatím dej před to.

[Azuzula]

Hlavně tohle je špatně...
TextBox10 = Range("37D")
TextBox11 = Range("38D")
Proč asi? Skoro mám pocit, že tohle už je trolling...

[Madara]

Díky, už vím proč, první má být D