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ž

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
Nemáte oprávnění prohlížet přiložené soubory.



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

Re: Kopírovanie do filtrovaných buniek

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

Učiť sa
Nemáte oprávnění prohlížet přiložené soubory.

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

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: CommonCrawl [Bot], elninoslov a 2 hosti