Textbox - data do dané buňky Vyřešeno

[Jsimi]

Ahoj,
Mám sešit, kde je jednoduchá tabulka a dva formuláře, pomocí kterého se zadávají data do tabulky. Můj problém spočívá v tom, že když chci přidat zboží, které by se mělo přičíst k aktuálnímu stavu, tak mi moje řešení vypočítá nesmysl, protože se data zapisují do dané buňky ihned, takže jakmile zadávam vícemístné číslo je výpočet špatný.
Šlo by nějakým způsobem vyřešit, aby se data do daných buněk zapsala např. až po stisknutí tlačítka potvrdit? Pro úplnost přidávám soubor.
Předem moc díky za jakékoliv řešení.

[Reklama]

[cmuch]

Ahoj,
nahraď makro v příjmu tímto

Kód: Vybrat vše

Private Sub Potvrdit_Click()

' Sub čas()
 '   Aktualizuje buňku B4 aktuálním datem
   Range("B4") = Date
'   Aktualizuje buňku D4 aktuálním časem
   Range("D4") = Time
'    List1.Protect ("0")


On Error Resume Next

Range("H11").Value = TextBox1.Text + Range("H11")
Range("H30").Value = TextBox15.Text + Range("H30")
Range("H31").Value = TextBox16.Text + Range("H31")
Range("H32").Value = TextBox18.Text + Range("H32")
Range("H8").Value = TextBox2.Value + Range("H8")
Range("H29").Value = TextBox27.Text + Range("H29")
Range("H28").Value = TextBox28.Text + Range("H28")
Range("H27").Value = TextBox29.Text + Range("H27")
Range("H9").Value = TextBox3.Text + Range("H9")
Range("H26").Value = TextBox30.Text + Range("H26")
Range("H25").Value = TextBox31.Text + Range("H25")
Range("H13").Value = TextBox32.Text + Range("H13")
Range("H14").Value = TextBox33.Text + Range("H14")
Range("H15").Value = TextBox34.Text + Range("H15")
Range("H16").Value = TextBox35.Text + Range("H16")
Range("H17").Value = TextBox36.Text + Range("H17")
Range("H18").Value = TextBox37.Text + Range("H18")
Range("H19").Value = TextBox38.Text + Range("H19")
Range("H20").Value = TextBox39.Text + Range("H20")
Range("H10").Value = TextBox4.Text + Range("H10")
Range("H12").Value = Range("H12") + TextBox40.Value
Range("H24").Value = TextBox41.Text + Range("H24")
Range("H21").Value = TextBox42.Text + Range("H21")
Range("H22").Value = TextBox43.Text + Range("H22")
Range("H23").Value = TextBox44.Text + Range("H23")
Range("H33").Value = TextBox45.Text + Range("H33")
Range("H34").Value = TextBox46.Text + Range("H34")
Range("H35").Value = TextBox47.Text + Range("H35")
Range("H36").Value = TextBox48.Text + Range("H36")
Range("H39").Value = TextBox5.Text + Range("H39")
Range("H38").Value = TextBox6.Text + Range("H38")
Range("H37").Value = TextBox7.Text + Range("H37")
Range("H40").Value = TextBox8.Text + Range("H40")

  '   Uloží sešit
   ActiveWorkbook.Save
    Unload Me
End Sub

[Jsimi]

Díky za pomoc funguje jek má.

[cmuch]

Není za co. Zamkni zelenou fajfkou.