Stránka 1 z 1

Kopirovaní oblsti dat z jedno listu do oblasti druheho listu  Vyřešeno

Napsal: 29 srp 2013 23:30
od Jakam
Ahoj,
mam následujici problem. Jsem uplny začatečník s makrem. Potřebuji vytvořit makro s následujícím zadáním.
Mam mnoho listů s daty v Excelu, ktre bych chtěl podle uvaženi kopirovat do prvního listu (Seznam). Kopirování by vždy probíhalo se zvoleneno aktivního listu (A nebo B nebo C nebo....) a to pomoci tlačítka "COPY". Počet řádků je vždy různý.
Chtel bych aby kopirovane data se vložila do prvniho listu (Seznam) a to na 10 řádek sloupce A.
Po vložení těchto dat a možnosti kopírovaní dalšího zvoleneho listu se vložily zkopirovane data zase do sloupce A, ale do posledni prazdné buňky +1 od spodu (vynechani prazneho řádku) a kurzor aby se překlikl na první list (Seznam).
A tak dale

Re: Kopirovaní oblsti dat z jedno listu do oblasti druheho l

Napsal: 30 srp 2013 07:31
od cmuch
Vítej na PC-Help

Tady toto makro si nakopíruj do příslušných listů.
Nebo si ho přejmenuj a vlož do normálního modulu a pak ho jen přiřazuj tlačítkům,
popřípadě mu urči klávesovou zkratku.

Kód: Vybrat vše

Private Sub CommandButton1_Click()

 
 Dim PosledniRadek As Long, i As Long
 Dim OznacOblast As Range
 With ActiveSheet
     PosledniRadek = .Range("A" & .Rows.Count).End(xlUp).Row
 End With
     
 If Sheets("Seznam").Range("A11") = "" Then
    Range("A2:B" & PosledniRadek).Copy Destination:=Sheets("Seznam").Range("A11")
   
 Else
 
    i = Sheets("Seznam").Range("A" & Sheets("Seznam").Rows.Count).End(xlUp).Row + 2
    Range("A2:B" & PosledniRadek).Copy Destination:=Sheets("Seznam").Range("A" & i)
 End If
       
 Sheets("Seznam").Select
End Sub
   

Re: Kopirovaní oblsti dat z jedno listu do oblasti druheho l

Napsal: 30 srp 2013 12:52
od Jakam
Ahoj,

dik moc. Funguje to nad ocekavani moc dobre. Klobouk dolu.