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
Kopírovanie do filtrovaných buniek
Kopírovanie do filtrovaných buniek
- Přílohy
-
- kopírovanie do filtra.xlsx
- (21.5 KiB) Staženo 46 x
Re: Kopírovanie do filtrovaných buniek
Učiť sa
- Přílohy
-
- kopírovanie do filtra.xlsx
- (22.35 KiB) Staženo 79 x
Re: Kopírovanie do filtrovaných buniek
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)"
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)"
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti