Textbox - data do dané buňky
Napsal: 13 lis 2012 15:34
od 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í.
Re: Textbox - data do dané buňky
Napsal: 13 lis 2012 16:56
od 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
Re: Textbox - data do dané buňky
Napsal: 13 lis 2012 18:05
od Jsimi
Díky za pomoc funguje jek má.
Re: Textbox - data do dané buňky Vyřešeno
Napsal: 13 lis 2012 18:10
od cmuch
Není za co. Zamkni zelenou fajfkou.