< návrat zpět

MS Excel


Téma: Obsah Combo do listu rss

Zaslal/a 10.8.2010 14:29

Mohli by jste mi prosím Vás poradit, jak upravit kód pro následující situaci.

V ComboBox3 mám nastaveny měsíce Leden-Prosinec. V sešitu jsou vytvořeny listy se stejnými názvy (leden-prosinec). Data z ComboBox3 se zapisují do sloupce E. Rád bych se dopídil k tomu, aby se data zapisovala do příslušného listu, podle toho, který měsíc se zadá do ComboBox3. Kód je vytvořen pro zápis do jednoho listu a nezajímá ho tedy, co je v Combo3.

Děkuji za úpravu.

Kód pro zápis.

Private Sub Dopln_do_hodnoceni(Jmeno, Hodnoceni)

Dim rd_start As Single
Dim sl_start As Single

rd_start = 3
sl_start = 4

While Sheets("Červenec").Cells(rd_start, 2) <> Empty
If Sheets("Červenec").Cells(rd_start, 2) = Jmeno Then
While Sheets("Červenec").Cells(rd_start, sl_start) <> Empty
sl_start = sl_start + 1
Wend
Sheets("Červenec").Cells(rd_start, sl_start) = Hodnoceni
Exit Sub
End If
rd_start = rd_start + 1
Wend
End Sub

Zaslat odpověď >

icon #002140
Poki
Zdravim - tezko se to takhle nasucho testuje, ale co pouzit zapis do bunky takto:Sheets(combobox3.value).Cells(rd_start, 2) = "cokoliv"citovat
#002148
avatar
Díky za radu Poki, mohl by jsi to prosím zkusit na ostro u přiloženého souboru ? Děkuji. Jinak bych ještě rád vyřešil jeden problém, v případě sdíleného sešitu, když v tomto formuláři pracuje více uživatelů, tak se uloží jen to, kdo otevřel tento sešit první, ostatním se tyto změny neuloží. Nelze to nějak ošetřit. Děkuji za radu.
Příloha: zip2148_zapis-dat.zip (17kB, staženo 20x)
citovat
icon #002149
Poki
Myslim, ze to funguje.
K tomu sdilenemu sesitu - to asi vyresit nepujde, protoze pri zapisovani do bunek bude dochazet u vice uzivatelu k upravovani identicke bunky, coz bude znamenat kolizi. Ta bohuzel nelze resit...citovat
#002150
avatar
Šlape to jako po másle. 4 Díky Poki.
Něktěrým není dáno se VBA naučit ...citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09