Kopírovanie do filtrovaných buniek

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

karolp
nováček
Příspěvky: 2
Registrován: prosinec 20
Pohlaví: Muž
Stav:
Offline

Kopírovanie do filtrovaných buniek

Příspěvekod karolp » 08 pro 2020 15:58

Dobrý deň
Prosím o radu ako skopírovať hodnoty do filtrovaných buniek aby mi nebralo pri vkladaní do filtrovaných buniek aj skryté riadky filtra. Mám konkretny príklad ktorý prikladám v prílohe. V tomto príklade sú dve hárky 1 hárok - filtrované bunky a druhý kopírované dáta. Potreboval by som prekopírovať žlto označené kopírované dáta do žlto vyznačených vyfiltrovaných buniek v hárku filtrované bunky
Ďakujem
Přílohy
kopírovanie do filtra.xlsx
(21.5 KiB) Staženo 46 x

Reklama
MePExG
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

Re: Kopírovanie do filtrovaných buniek

Příspěvekod MePExG » 08 pro 2020 20:16

Učiť sa
Přílohy
kopírovanie do filtra.xlsx
(22.35 KiB) Staženo 79 x

karolp
nováček
Příspěvky: 2
Registrován: prosinec 20
Pohlaví: Muž
Stav:
Offline

Re: Kopírovanie do filtrovaných buniek

Příspěvekod karolp » 09 pro 2020 07:59

Dakujem za odpoved
Nedá sa to cez nejaké makro skúšal som niečo takéto co som nasiel na webe no nefunguje:
Sub KopirovanieDoFiltra()
Set CoChcemKopirovat = Selection
Set KdeChcemKopirovat = Application.InputBox("Vyberte rozsah buniek, do ktorých chcete nakopírovať", Type:=8)
For Each Cell In CoChcemKopirovat
Cell.Copy
For Each thing In KdeChcemKopirovat
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial
Set KdeChcemKopirovat = thing.Offset(1).Resize(KdeChcemKopirovat.Rows.Count)
Exit For
End If
Next
Next
End Sub
po spustení mi vypíše chybu "Type mismatch (Error 13)"


Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Seznam[Bot] a 8 hostů