< návrat zpět

MS Excel


Téma: kopirovani riadku rss

Zaslal/a 10.4.2012 14:08

frantilopaZdravim vsetkych odbornikov.
Vedel by mi niekto pomoct.
Potreboval by som makro (VBA), kde v liste 1 pri kliknuti na hociktoru buknu a po spusteni makra sa mi skopiruje tento cely riadok do prveho volneho riadku v liste 2. (Ak napr. je v liste2 zapisanych 6 riadkov tak to nakopiruje do 7-meho).
Vopred Vam velmi pekne dakujem!!!

Zaslat odpověď >

#007962
avatar
No asi takto nejako.
Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Sub
citovat
#007963
frantilopa
marjankaj SUPER!!!
DAKUJEM !!!
Velmi si mi pomohol... to bola ale bleskovka!
A nechcem byt drzi... keby si mi pomohol esteraz... ma napadlo este nieco dalo by sa to vylepsit...?
Z listu 1 by to kopirovalo tak jak to je zrobene ale vkladalo by to do listu2 tak, ze len od riadku 11 az po riadok 30. (prvych 10 riadkov mam popis, tie nechcem narusat a tak isto od 30 riadku by boli vzorce do ktorych tiez nechcem sprtat.) Malo by to ukladat od 11-teho riadku po 30-ty, a ak by sa zaplnili riadky 11-30 potom by zacalo posuvat tie vzorce z 31-ho riadoku dalej na 32 atd., cize by tam vkladalo riadky a zaroven posuvalo.
DAKUJEM.citovat
#007964
avatar
Aké vzorce?citovat
#007965
frantilopa
V riadku 31 su napr. SUM(A11:A30), SUM(D11:D30)...
A ja chcem aby tie riadky mi vkladalo (nakopirovalo) od 11teho az po 30ty a po vozeni riadkov do Harku 2 mi to bude pocitat v 31 riadku... az sa naplnia vsetky kopirovane riadky od 11 az po 30 tak to zacne vkladat ridky tak ze tie vzorce a vsetok ten obsah pod 31 riadkom bude uz posuvat nizsie...
Dakujem. Dakujem!citovat
#007971
avatar
tak tie vzorce to docela komplikuju, existuje stlpec v ktorom niesu vzorce a su kopirovane data (podla coho zistime ze sa jedna o posledny vypneny riadok pred vzorcami)?

daj nejaky kusisko suboru nech sa na to mozme pozriet ako by sa to dalo vymysliet.citovat
#007975
avatar
No takto by to stačilo?
V riadku 32 sú tie vzorce
a riadok 31 musí zostať prázdny.
Příloha: zip7975_vloz.zip (9kB, staženo 24x)
citovat
#007981
frantilopa
Klobuk dole. Super!
Dakujem.
Takto nejak som si to predstavoval.
upravim si to uz podla svojho. Dakujem ti!
p.s.
pracuje to super aj ked zmazem riadky a znovu kopirujem... vzdy to funguje, az na malicku chybycku... ked zmazem aj 11 ty riadok tak to zblbne a potom zacne kopirovat az do 33. riadku ?!?citovat
#007983
avatar
Tak si zmeň zvýraznený riadok.
Nabudúce prilep tvoj súbor, nech nemusíme vymýšľať.

Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A9").End(xlDown).Offset(1, 0).Select
If ActiveCell.Row >= 31 Then
ActiveCell.Insert
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Sub
citovat
#007984
frantilopa
Dakujem.
Super tuto vec mam vyriesenu a este jednu vec... ,ale tu pripravim a prilepim subor.
Diki. 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