Excel-combobox zápis čísla

[fire150]

Rád by som poprosil o radu. Mám vytvorený jednoduchý formulár cez VBA s textbox a combobox cez ktoré sa zadávajú položky - každá do jednej bunky (čísla aj text ).Tlačidlom ich vložím a po ďalšom výbere vloženie na nový riadok. Problém je v tom že pri zadaní čísla do textboxu alebo výberu čísla s comboboxu sa číslo uloží ako text, ale ja potrebujem pre dalšie výpočty použiť vybrané/uložené čísla (office 2010)

Kód: Vybrat vše

Private Sub CommandButton1_Click()
Dim PoslBunka As Range
' nalezeni posledniho neprazdneho radku na listu:
' nastaveni na posledni radek listu ve sloupci
Set PoslBunka = Worksheets("7").Range("A:A").Cells(Range("A:A").Cells.Count)
' presun na posledni neprazny radek listu
If IsEmpty(PoslBunka) Then Set PoslBunka = PoslBunka.End(xlUp)
'nastaveni na prazdnou bunku
Set PoslBunka = PoslBunka.Offset(1, 0)
' vlozeni dat z textovych poli formulare do listu
PoslBunka.Value = UserForm1.TextBox1
PoslBunka.Value = UserForm1.vodic1
PoslBunka.Value = UserForm1.km1
PoslBunka.Value = UserForm1.pret1
PoslBunka.Value = UserForm1.cer1
PoslBunka.Value = UserForm1.tankcs1
PoslBunka.Value = UserForm1.tanksklad1
PoslBunka.Value = UserForm1.rano1
PoslBunka.Value = UserForm1.druh1
PoslBunka.Value = UserForm1.TextBox2
PoslBunka.Offset(0, 0).Value = UserForm1.TextBox1
PoslBunka.Offset(0, 1).Value = UserForm1.vodic1
PoslBunka.Offset(0, 2).Value = UserForm1.km1
PoslBunka.Offset(0, 3).Value = UserForm1.pret1
PoslBunka.Offset(0, 4).Value = UserForm1.cer1
PoslBunka.Offset(0, 5).Value = UserForm1.tankcs1
PoslBunka.Offset(0, 6).Value = UserForm1.tanksklad1
PoslBunka.Offset(0, 7).Value = UserForm1.rano1
PoslBunka.Offset(0, 8).Value = UserForm1.druh1
PoslBunka.Offset(0, 9).Value = UserForm1.TextBox2
'vyprazdnit textova pole
UserForm1.TextBox1.Value = vbNullString
UserForm1.vodic1.Value = vbNullString
UserForm1.km1.Value = vbNullString
UserForm1.pret1.Value = vbNullString
UserForm1.cer1.Value = vbNullString
UserForm1.tankcs1.Value = vbNullString
UserForm1.tanksklad1.Value = vbNullString
UserForm1.rano1.Value = vbNullString
UserForm1.druh1.Value = vbNullString
UserForm1.TextBox2.Value = vbNullString
End Sub

Vďaka za rady

[Reklama]

[karel.laska]

Zdravím,

bylo by vhodné kdyby jsi přiložil soubor, aby člověk nemusel vytvářet excel svůj, pak se to mnohem lépe řeší.
Jinak jsem se s podobnou věcí setkal, řešil jsem to pokud si pamatuji buď definováním proměnný jako číslo (dim něco as double) naplříklad, nebo jsem hodnotu před zapsáním do buňky násobil 1.
Přilož soubor se vzorovými daty pokud to stále nepůjde a vyzkoušíme ...

S pozdravem Karel

[fire150]

Zrovna som to poriešil ( pred 10 min. )

Kód: Vybrat vše

pozadovana_hodnota = CInt(UserForm1.TextBox2.Text)

Zošit má vyše 1,5 M sem ho nedostanem
Keď už Vás tu mám ide nejak orámovať výpis v zozname ( napr. po kliku na button "razítko" ? ) a dá sa konkrétny zoznam vytlačiť?
Riešené je to cez užívateľské formuláre, lebo do toho budú zapisovať viacerý a nechcem aby zasahovali do nastavených vzorcov v listoch- výsledkom by mal byť funkčný prehľad o autoprevádzke