MS Excel

Prosím o pomoc, potřebuji zapisovat z listu1 na list2 přes userform na aktivní řádek a pokračovat dál ze zapisováním dál (20 sloupec ) a dál a dál.Na listu 2 si vyberu řádek na který chci přesunout záznam (dvojklik)a potom přesunu záznam na akt.řádek za záznam který již je zapsán a takhle pokračovat pořád. Děkuji předem za pomoc.

Uzamčeno - nelze přidávat nové příspěvky.

Opičák(10.2.2013 21:37)#011575

Nerozumím ...citovat

haga(10.2.2013 21:46)#011578

Na list 2 přenést záznam z listu 1 na aktivní řádek za záznam který tam již je a kdykoli přidat dalšícitovat

Jeza.m(10.2.2013 22:42)#011583

Taky moc nerozumím :-)
Na listu2 vyberu řádek, 2x kliknu a když už na daném řádku jsou hodnoty T-X, tak by se měly vyplnit hodnoty Y-AC? Ale vyplnit čím? Hodnotami z listu1 ze stejného řádku sloupce A-E, nebo F-J?

Chce to trochu srozumitelněji.

M@citovat

haga(10.2.2013 22:53)#011585

Prostě vkládat za sede hodnoty z userformu na aktivní řádek v listě 2citovat

haga(11.2.2013 21:32)#011604

Nějak mi to pořád nejde.

pořád se mi přepisují sloupce 20-21-22-23-24,, a já potřebuji psát na sloupec 25,26,27,28,29,, a další záznam z formu na 30,31,32,33,34 a td..... pomůže mi někdo

citovat

Opičák(11.2.2013 22:02)#011605

Nevím jestli tomu rozumím.

Příloha: zip

11605_prenost-na-list-a-pokracovat-na-radek-_-uprava.zip (24kB, staženo 22x)

citovat

Pavlus(11.2.2013 22:30)#011606

Ujasněme si nejdříve zadání .-).
Takže, jak to chápu já...

Postup:
1. Uživatel na Listu 2 klikne dvakrát na řádek kam chce zapisovat a následně je přesměrován na List 1.
2. Na Listu 1 uživatel dvakrát klikne na řádek, který chce překopírovat na List 2, tím se spustí formulář s těmito předvyplněnými daty.
3. Uživatel klikne na tlačítko a tím data uloží na List 2 (na řádek, který je aktivní na Listu 2) za poslední záznam na daném řádku.

Je to tak správně?

Pokud ano, tak máš u tlačítka špatné určení řádku, kam se má zapisovat. Aktuálně to bere pro zápis do Listu 2 aktivní řádek z Listu 1.
Dále se divíš, že ti to stále zapisuje do sloupců 20, 21 atd., ale máš to tam tak v tom kódu napsaný .-), takže asi tak.
Tvůj problém je asi v nalezení posledního záznamu na řádku. Lze využít třeba toto:Sloupec = Cells(Radek, Columns.Count).End(xlToLeft).ColumnDo kódu jsem nijak nesahal, jen jsem to upravil tak, aby to fungovalo dle mého postupu...
P.

Viz příloha:

Příloha: zip