Obrázek ideálního řešení scrollováním.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Kopírování ukotvených příček a Xtého řádku
MS Excel
Téma: Kopírování ukotvených příček a Xtého řádku 
Zaslal/a Ridder 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: 
53958_test-kopie.xlsx (16kB, staženo 5x)
53958_test-kopie.xlsx (16kB, staženo 5x)
53959_test-kopie.png
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 Subcitovat
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 Subcitovat
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
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
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
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
Příloha: 
54189_kopirovanie-multioblasti-riadkov-do-inej-aplikacie.zip (21kB, staženo 2x)
citovat54189_kopirovanie-multioblasti-riadkov-do-inej-aplikacie.zip (21kB, staženo 2x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články