< návrat zpět

MS Excel


Téma: Pomoc s makrem rss

Zaslal/a 16.4.2015 9:59

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.... 7

Zaslat odpověď >

#024525
Hav-Ran
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
#024529
avatar
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
#024530
avatar
Koukám, že se mi rozhodilo formátování první 2. řádky patří ke kódu 1citovat
#024531
avatar
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: zip24531_sesit1.zip (17kB, staženo 28x)
citovat
#024546
elninoslov
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: rar24546_poslednyzaznam.rar (23kB, staženo 28x)
citovat
#024554
avatar
Kluci, díky moc, už to s Vaší pomocí šlape jak má.
Jste jedničky!!!!! 1citovat

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