Stránka 1 z 1

Kopírovanie do filtrovaných buniek

Napsal: 08 pro 2020 15:58
od karolp
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

Re: Kopírovanie do filtrovaných buniek

Napsal: 08 pro 2020 20:16
od MePExG
Učiť sa

Re: Kopírovanie do filtrovaných buniek

Napsal: 09 pro 2020 07:59
od karolp
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)"