Excel VBA - Výběr dat

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Piskotak
nováček
Příspěvky: 1
Registrován: listopad 19
Pohlaví: Muž
Stav:
Offline

Excel VBA - Výběr dat

Příspěvekod Piskotak » 28 lis 2019 15:17

Dobrý den,

chci se zeptat, jestli se dají vybrat data od prázdného řádku k prázdnému řádku. Dokážu vybrat data takto Range("A1:C10").Select. Ale to se nedá opakovat, protože je různý počet hodnot. Potřeboval bych vybrat data od A2 do C11 a potom od A13 do C30, s tím aby to bylo proměnné, protože další tabulka má zase jiný počet hodnot.

Obrázek

Reklama
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 165
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA - Výběr dat

Příspěvekod Grimm » 28 lis 2019 18:55

Oblast mužeš vybrat ručně myší přes InputBox.
Využít CurrentRegion.
Nebo hledat poslední obsazený řádek přes ....End(xlDown).Row

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 386
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA - Výběr dat

Příspěvekod elninoslov » 29 lis 2019 07:00

Kód: Vybrat vše

Sub VyberPostupneOblasti()
Dim RNG As Range
    On Error Resume Next
    For Each RNG In Range("A:A").SpecialCells(xlConstants).Areas
        RNG.Resize(, 3).Select
        MsgBox "Vybraná oblasť " & RNG.Address
        '... niečo, čo sa má diať s oblasťou
        'Výber oblasti je možný aj pomocou indexu .Areas(1), .Areas(2, ...)
    Next RNG
End Sub


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    5128
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12533
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    5867
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3520
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » 24 dub 2025 10:51 » v Kancelářské balíky
    5
    4129
    od atari Zobrazit poslední příspěvek
    26 dub 2025 09:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti