• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vložit kopírovaný výběr

Zaslal/a Raders486 19.4.2018 18:35

Ahoj.

Nevím si rady jak vložit zkopírovaný výběr z jiného listu do do první prázdné buňky ve sloupci "A" na listě "Prac list".

Důvod: procházím cca 20-30 listů, ve kterých odfiltruji určité řádky a to co zůstane potřebuji nakopírovat do Prac list. Následně dělám součty za jednotlivé položky.

Poradíte někdo?

Sub Krok1(x As Boolean, nazev As String)
Set ws = Sheets(nazev)
Set ws1 = Sheets("Prac list")
'zrušit ukotvení
SplitColumn = 0
SplitRow = 0

With ws
If .AutoFilterMode = True And .FilterMode = True Then
'MsgBox "Data jsou filtrovaná. Sešit obsahuje filtr ;)"
.ShowAllData
ElseIf .AutoFilterMode = True Then
'MsgBox "K dispozici filtry - data nefiltrovaná."
Else
'MsgBox "Sešit neobsahuje filtry."
.Range("A1:M1").AutoFilter
End If
End With

'ohraničit řádky a sloupce podle sloupce "C"
Dim lastrowF As Long
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
ws.Range("A1:M" & lastrow).Borders.LineStyle = xlContinuous
'skryje řádky, když je ve sloupci "6" neboli "F" nějaká poznámka
ws.Range("A1:M" & lastrow).AutoFilter Field:=6, Criteria1:="="
'kopíruj viditelné řádky
'ws.Range("A1:M" & lastrow).Copy

'vlož do listu "Prac list" do první prázdné buňky ve sloupci "A"
'ws1.Offset(1, 0).ActiveSheet.Paste

End Sub

Zaslat odpověď >

---

Raders486(19.4.2018 19:11)#040170

Já jsem tak hloupý, vždyť je to tak jednoduché
Sheets("Prac list").Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse