MS Excel

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ěď >

Poki(10.8.2010 14:56)#002140

Zdravim - tezko se to takhle nasucho testuje, ale co pouzit zapis do bunky takto:Sheets(combobox3.value).Cells(rd_start, 2) = "cokoliv"citovat

Tguun(11.8.2010 10:46)#002148

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: zip

2148_zapis-dat.zip (17kB, staženo 20x)

citovat

Poki(11.8.2010 13:11)#002149

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

Tguun(11.8.2010 13:31)#002150

Šlape to jako po másle.

Díky Poki.
Něktěrým není dáno se VBA naučit ...citovat

Téma: Obsah Combo do listu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje