MS Excel

Dobrý den všichni
Nejsem specialista na makra a tak se zeptám zda by mi někdo mohl pomoci s jednoduchou úlohou.

Potřebuji obsah buněk B4, C4, D4, E4, F4 v listu Formulář po stisknutí tlačítka odešli zapsat do listu Databáze na další volný řádek ve sloupcích B, C, D, F ( řazeno od posledního záznamu)

Už jsem vyzkoušel asi 356 příkladů a pořád to není to co chci....

Zaslat odpověď >

Hav-Ran(16.4.2015 20:00)#024525

Doporučujem spustiť Záznam makra a predviesť uvedenú akciu v súbore. Ak pritom vhodne vypneš - zapneš Relatívne zaznamenanie (pri výbere posledného zapísaného riadku + 1 riadok), veľa ti to napovie a mal by si to zvládnuť.citovat

Joker(17.4.2015 17:59)#024529

Sub Kopie()
' výběr dat
Zkus tento kód:

Sheets("Formulář").Select
Range("B4:F4").Select
Selection.Copy
'kopie dat
Sheets("Databáze").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Subcitovat

Joker(17.4.2015 18:01)#024530

Koukám, že se mi rozhodilo formátování první 2. řádky patří ke kódu

citovat

ji026441(17.4.2015 19:07)#024531

Myslím si, že to od JOKER nebude fungovat, protože v databazi vybírá sloupec A a ty máš data v B,C,D,E,F. Vyzkoušej moje.

Příloha: zip

24531_sesit1.zip (17kB, staženo 27x)

citovat

elninoslov(20.4.2015 22:36)#024546

A nemá to byť náhodou tak, že má byť posledný záznam na vrchu ?
Ak to má byť DB ako píšeš, tak asi bude platiť
1 záznam = 1 riadok

Potom by to mohlo byť takto. A nezáleží na tom, či sú vyplnené všetky údaje alebo nie.

Aktivuj si v makre režim radenia posledný na spodku alebo posledný na vrchu. Máš tam oba.

PS: Ak to nemá byť databázový záznam (čiže záznam = riadok), tak treba obdobne urobiť toto, čo navrhujem pre všetky dotknuté stĺpce zvlášť.

Příloha: rar