Abych se na to mohl kouknout, bych potřeboval přílohu v zipu 
citovat
citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: UserForm a zaznam Dat
MS Excel
Téma: UserForm a zaznam Dat 
Zaslal/a nio313 21.10.2010 3:37
Ahoj
Mam problemik s UserForm. Ako prve asi s listbox kde nemozem zapisovat alespon neviem preco. Potrebujem poradit po odkliknuti ok aby sa vsetky data zapsali do suboru(tabulka)v ktorej su vytvorene listy. Cielovy list urcuje comboBox7. Prosim o radu pre pripad Priloha.
Dakujem za vsetky odpovede
Příloha: 
2817_userform1.rar (25kB, staženo 18x)
2817_userform1.rar (25kB, staženo 18x)Ahoj
Tak Ten list box som uz vyriesil. Akurat ma trapi ten export dat do tabulky. A este jeden dotaz proc my v comboBoxe duplikuje zadane hodnoty
V prilohe zipcitovat
Tak Ten list box som uz vyriesil. Akurat ma trapi ten export dat do tabulky. A este jeden dotaz proc my v comboBoxe duplikuje zadane hodnoty
V prilohe zipcitovat
ahoj potreboval bych aspon malu ukazku zapisu pls nejak sa nemozem pohnut vpred citovat
citovatVie niekto co stim pls ?
Private Sub CommandButton1_Click()
Dim Druh As String
Druh = ComboBox7.Value
Workbooks.Open Filename:="C:\Documents and Settings\TEMP\Desktop\Total NCM.xls"
Sheets("Druh").Select
Dim radek As Integer
ActiveSheet.Cells(1000000, 1).End(xlUp).Row 1
MsgBox radek
Cells(rd, 1) = ComboBox3.Value
Cells(rd, 2) = ComboBox4.Value
Cells(rd, 3) = TextBox6.Value
Cells(rd, 4) = TextBox1.Value
Cells(rd, 5) = ComboBox7.Value
Cells(rd, 6) = TextBox2.Value
Cells(rd, 7) = ComboBox5.Value
Cells(rd, 8) = TextBox3.Value
Cells(rd, 9) = TextBox4.Value
Cells(rd, 10) = ComboBox2.Value
Cells(rd, 11) = ComboBox6.Value
Cells(rd, 12) = TextBox5.Value
End Subcitovat
Private Sub CommandButton1_Click()
Dim Druh As String
Druh = ComboBox7.Value
Workbooks.Open Filename:="C:\Documents and Settings\TEMP\Desktop\Total NCM.xls"
Sheets("Druh").Select
Dim radek As Integer
ActiveSheet.Cells(1000000, 1).End(xlUp).Row 1
MsgBox radek
Cells(rd, 1) = ComboBox3.Value
Cells(rd, 2) = ComboBox4.Value
Cells(rd, 3) = TextBox6.Value
Cells(rd, 4) = TextBox1.Value
Cells(rd, 5) = ComboBox7.Value
Cells(rd, 6) = TextBox2.Value
Cells(rd, 7) = ComboBox5.Value
Cells(rd, 8) = TextBox3.Value
Cells(rd, 9) = TextBox4.Value
Cells(rd, 10) = ComboBox2.Value
Cells(rd, 11) = ComboBox6.Value
Cells(rd, 12) = TextBox5.Value
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články