• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: zápis hodnoty do buňky na další list

Zaslal/a Adam774 5.6.2014 17:12

Ahoj,
prosím o pomoc. Mám podmínku, která zapisuje do buněk hodnoty takto If podmínka Then cells(14, "D") = ”6:15”
End if
A potřeboval bych aby se cells(14, "D") = ”6:15” zapsalo na stejnou pozici ale na dalším listu. Takže pokud jsem na listu s názvem únor tak do listu s názvem březen. Pomůže mi prosím někdo?

Zaslat odpověď >

---

Pavlus(5.6.2014 20:41)#019848

Možné řešení s využitím Select Case.
P.

Př.:Sub zapis_na_dalsi_list()
Dim aktivni_list As String
Dim zapisovy_list As String

aktivni_list = ActiveSheet.Name

Select Case aktivni_list
Case "leden": zapisovy_list = "únor"
Case "únor": zapisovy_list = "březen"
'atd.
End Select

Sheets(zapisovy_list).Cells(14, "D") = "6:15"
End Subcitovat

adosl(5.6.2014 21:41)#019849

Díky Pavlusi tohle funguje a díky za názorný kód. Snad to pomůže i ostatním co to budou potřebovat. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse