< návrat zpět

MS Excel

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

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
avatar
Já jsem tak hloupý, vždyť je to tak jednoduché 5 5
Sheets("Prac list").Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
citovat

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