< návrat zpět

MS Excel

Téma: Postupny vypis hodnot rss

Zaslal/a Nomen 9.12.2011 2:13

Do List1 A1 postupne vkladam ruzne hodnoty jak zaridit aby se v List2 postupne ukladaly do dalsich bunek a zustavaly tak hodnoty ktere jsem tam uz vlozil?

Priklad

Do List1 A1 vlozim Modry v List2 A1 se objevi Modry

Do List1 A1 vlozim Cerveny v List2 A2 se objevi Cerveny

Do List1 A1 vlozim Zlaty v List2 A3 se objevi Zlaty

A vysledek by mel byt
List1 (pamatuje si jen posledni zapsanou hodnotu =) Zlaty

a v List2
A1 je Modry
A2 je Cerveny
A3 je Zlaty

Jak na to diky za Radu 1

stop Uzamčeno - nelze přidávat nové příspěvky.
icon Poki(9.12.2011 8:49)#006665
Poki
tohle jde jedine makrem - zkuste prilohu...
Příloha: zip6665_a1.zip (11kB, staženo 20x)
citovat
Nomen(11.12.2011 10:46)#006675
avatar
Skvely 5 Vazne moc diky s Macrama umim jen trochu a tak se z toho nepochopil jak de nastavit ze se to macro zautomatizuje ze neni potreba spoustet. Slo by poslat jeste ten kod to macro nebo proste jak si to udelal DIKYcitovat
icon Poki(12.12.2011 16:24)#006679
Poki
V modulu prislusneho listu je makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Radek As Long
Dim LIST As String

LIST = "List2"

If Target.Address = "$A$1" Then
If Len(Target) > 0 Then
Radek = Worksheets(LIST).Cells(65000, 1).End(xlUp).Row + 1
Worksheets(LIST).Cells(Radek, 1) = Target
Worksheets(LIST).Cells(Radek, 2) = Now
End If
End If
End Sub

Tato procedura se spusti vzdy, kdyz je zmenena bunka A1 na prislusnem listu - je to takove automaticky spoustene makro - zkuste se podívat na událostní procedury.citovat

Uživatelské menu

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

Menu

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.

On-line nástroje