< návrat zpět

MS Excel


Téma: Kopírování ukotvených příček a Xtého řádku rss

Zaslal/a 23.11.2022 7:07

Zdravím,

často potřebuji zkopírovat ukotvené názvy a k tomu Xtý řádek nebo více řádků. Bohužel neznám jiné řešení, než všechny ostatní řádky skrýt, zkopírovat ty, které potřebuju a pak znovu odkrýt ostatní. Tohle mi ale přijde jako dost nešikovné a zdlouhavé řešení.

Ideální varianta by byla, kdybych jen vhodně zascrolloval viz obrázek. To by samozřejmě řešilo jen jeden řádek a nemohl bych takhle nakopírovat například 7., 10. a 12.. I tak by to byl ale mega pokrok.

P.S.: Označení názvů + řádku 10 přes CTRL znamená, že se do emailu vloží názvy + všechny řádky až do 10.

Příloha: xlsx53958_test-kopie.xlsx (16kB, staženo 5x)
Zaslat odpověď >

#053959
avatar
Obrázek ideálního řešení scrollováním.
Příloha: png53959_test-kopie.png (2kB, staženo 18x)
53959_test-kopie.png
citovat
#053963
elninoslov
Bez makra to bude o dobrom prstoklade. Pr.:
Chcem dátový riadok 1 a 3 (teda riadok 5 a 7):
1. Označím si Názvy. Mám označené C4:F4
2. Označím k tomu pomocou Ctrl aj bunku C5. Mám označené C4:F4,C5
3. Ctrl+Shift+šípka vpravo. Mám označené C4:F4,C5:F5
Ďalšie oblasti pridávam opakovaním bodov 2. a 3., pričom môžem označiť aj viac riadkov, a po klávesovej skratke sa označia všetky riadky v stĺpcoch vpravo.

Potom už iba Ctrl+C...

Ak chcete makro, tak potom by sa mohlo napr. na klávesovú skratku Ctrl+G nastaviť
Sub Makro1()
' Klávesová skratka: Ctrl+g
Dim RNG As Range
With ActiveSheet
Set RNG = Intersect(Selection.EntireRow, .Range("C4:F4").EntireColumn)
If RNG Is Nothing Then MsgBox "Nevybrali jste sloupce C:F", vbCritical: Exit Sub
Union(.Range("C4:F4"), RNG).Copy
End With
End Sub
citovat
#054169
avatar
Přeji vše nej v novém roce :)

Prstoklad dělám pravidelně, ale ten mi teda funguje jen po část CTRL+C. Když otevřeš Gmail-Nový email a dáš CTRL+V, tak se mi vloží i to, co nebylo označeno a tedy konkrétně řádek 6. Tobě to funguje?citovat
#054189
elninoslov
Tak takéto hrátky s kopírovaním multiriadkov fungujú iba v Exceli. Do inej apky to nejde. Jediné riešenie, čo ma napadá, je použiť skrytý dočasný TMP list.
Sub Makro1() ' Klávesová skratka: Ctrl+g
Dim RNG As Range

Set RNG = ActiveSheet.Range("C4:F4")
wsTMP.UsedRange.Clear
On Error Resume Next
Union(Intersect(Intersect(Selection, RNG.Offset(1, 0).Resize(Rows.Count - RNG.Row)).EntireRow, RNG.EntireColumn), RNG).Copy wsTMP.Cells(1, 1)
If Err.Number = 0 Then wsTMP.UsedRange.Copy Else MsgBox "Nevybrali jste řádky od č. " & RNG.Row + 1 & " ve sloupcích " & RNG.EntireColumn.Address(0, 0), vbCritical
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09