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)

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.