< návrat zpět

MS Excel


Téma: UserForm a zaznam Dat rss

Zaslal/a 21.10.2010 3:37

nio313Ahoj

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 3

Příloha: rar2817_userform1.rar (25kB, staženo 18x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#002818
avatar
Abych se na to mohl kouknout, bych potřeboval přílohu v zipu 3citovat
#002835
nio313
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 6

V prilohe zipcitovat
#002838
nio313
:D ja som ale deges duplicity uz OK UserForm_Activate 7citovat
#002847
nio313
ahoj potreboval bych aspon malu ukazku zapisu pls nejak sa nemozem pohnut vpred 3citovat
#002856
nio313
Vie 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
#002857
nio313
tak vyreseno nocna je dlha zalezitost 7citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje