MS Excel

Zdravím, poradil by mi někdo z Vás, jak zapisovat hodnotu z formuláře současně do dvou listů ?

Přiložen sešit s příkladem. Chtěl bych docílit toho, aby se hodnoty z pole známka, zapisovaly jak do ("list1") tak do ("známka"), podle toho, kolikáté je to hodnocení. Takže s každým dalším hodnocením člověka, by se automaticky vyplnovaly hodnoty pole známka do postupného pořadí.

Děkuji za rady.

Zaslat odpověď >

Začátečník(6.8.2010 10:21)#002096

Možná by bylo vhodné několik upřesnění.
Kde bude uložen seznam osob (předpokládám list Známka) a také předpokládám, že budete chtít načítat tento seznam do pole ve formuláři.

Loncitovat

Začátečník(6.8.2010 10:52)#002097

Tak jsem si odpověděl sám.

Váše komletní makro s mými drobnými úpravami.

Private Sub CommandButton1_Click()
Dim rd As Single
Dim cislo As Single
rd = ActiveSheet.UsedRange.Rows.Count + 1
Cells(rd, 1) = ComboBox2.Text
If CheckBox1.Value = True Then Cells(rd, 3) = "ANO" Else Cells(rd, 3) = "NE"
cislo = TextBox2
Cells(rd, 4) = cislo
Cells(rd, 5) = TextBox1

Call Dopln_do_znamka(ComboBox2.Text, cislo)
End Sub

Private Sub CommandButton2_Click()
Me.Hide
End Sub

Private Sub UserForm_Activate()
ComboBox2.Clear
Call nacti_seznam
'ComboBox2.AddItem "Adam Janků"
'ComboBox2.AddItem "Petr Král"
'ComboBox2.AddItem "Karel Nekrál"
End Sub

Private Sub Dopln_do_znamka(Jmeno, znamka)

Dim rd_start As Single
Dim sl_start As Single

rd_start = 6
sl_start = 3

While Sheets("Známka").Cells(rd_start, 2) <> Empty
If Sheets("Známka").Cells(rd_start, 2) = Jmeno Then
While Sheets("Známka").Cells(rd_start, sl_start) <> Empty
sl_start = sl_start + 1
Wend
Sheets("Známka").Cells(rd_start, sl_start) = znamka
Exit Sub
End If
rd_start = rd_start + 1
Wend
End Sub

Private Sub nacti_seznam()

Dim rd As Single
rd = 6

While Sheets("Známka").Cells(rd, 2) <> Empty
ComboBox2.AddItem Sheets("Známka").Cells(rd, 2)
rd = rd + 1
Wend

End Sub

Loncitovat

Tguun(6.8.2010 12:30)#002098

Tohle bylo opravdu rychlé. Díky za Váš čas a ochotu. Snad by jste si už mohl přepsat nick, ne ? Třeba na pokročilý :-) Já se z pozice nováčka snad nehnu ... Pěkný dencitovat

Začátečník(6.8.2010 12:53)#002099

NZ,
Budu o tom uvažovat, ale spíše mírně pokročilý.

Loncitovat

Tguun(6.8.2010 13:49)#002100

Teď mě ještě napadlo. Když smažu záznam v listu 1, kde zadávám hodnoty, propsaná známka v listu "Známky" mi tam zůstane. Ale žádný záznam tomu v listu1 neodpovídá. Šlo by nějak propojit hypertextovým odkazem známku v listu "známky" na daný řádek, který obsahuje jméno, zaplatil, známku, poznámku ?citovat

Tguun(6.8.2010 14:02)#002101

Že by se dle makra vytvářel automaticky hypertextový odkaz na řádek v listu1, kde je daná známka uvedena. V případě, že se řádek v listu1 jedna vymaže, hyúertextový odkaz hodí chybovou hlášku a já budu vědět, že tento řádek někdo smazal a známka by se tedy neměla počítat.citovat

Začátečník(6.8.2010 15:00)#002102

Přemýšlím o nejjednodušším řešení. Pokud jde pouze o informaci, pak by bylo vhodné vložit místo hodnoty vzorec, který by v případě platné hodnoty tuto zobrazil, v případě výmazu známky by pak vložil hodnotu:
např. -1.
Pokud by však někdo odstranil celý řádek i s daty (tedy "Odstranit řádek") vznikaly by pak chyby s neexistujícím odkazem.

Ovšem vše jde také řešit elegantněji a to zamčením sešitu (listu) proti úpravám.

Řešení je na Vás.

Loncitovat

Tguun(9.8.2010 10:05)#002125

A jak by se upravil kód, pro zápis, kdybych měl vytvořené listy červenec, srpen, září, říjen atd. a data by se zapisovala do jednotlivých listů podle toh, co by se doplnilo třeba do ComboBox3

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 Subcitovat

Tguun(9.8.2010 10:06)#002126

V ComboBox3 by samozřejmě byly na výběr měsíce. Díky

citovat

Téma: Zápis do 2 listů

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka