MS Excel

Zdravím.
Poradil by někdo prosím,
1.jak označit celý řádek, když v něm /kdekoliv/ mám označenou jednu buňku.
2.jak označit v makru více řádků, když v nich kdekoliv mám označeno více buňek.

asi by to chtělo zjistit z adresy bunky/bunek jejich řádek a to pak použít v označení jednoho/více řádků.

příklad: v listu si označím třeba B2,B5,C7,B10 apod
a chci pak kopírovat celé tyto řádky/2,5,7,10/, nebo třeba do jiného listu

Děkuji
P

Zaslat odpověď >

Strana: 1 2 další »

Jiří497(18.2.2022 23:14)#052141

Tímto zjistím postupně adresu všech označených buněk. Pak s tím lze libovolně pracovat.

Sub kteraBunka()

Dim Bunka As Range
For Each Bunka In Selection
MsgBox "Řádek je " & Bunka.Row & vbCrLf & "Sloupec je " & Bunka.Column
Next Bunka
End Sub
citovat

PavDD(21.2.2022 9:03)#052148

otestuju, moc díky.
Pcitovat

PavDD(21.2.2022 13:00)#052149

Děkuju za info.
Ale nemám ponětí, jak to dál zpracovat.
Potřeboval bych alespoň, aby mi ty adresy zapsalo do nového listu.

1.oz.buňka / sloupec / řádek / celá adresa
2.oz.buňka / sloupec / řádek / celá adresa
3. atd

Odtud už si to pak navážu dál.

Pcitovat

Jiří497(21.2.2022 14:27)#052150

Příklad navázaný na první dotaz:

Označím si nějaké buňky. Předpokládám, že to znamená to, že zmáčknu Ctrl a postupně kliknu na buňky B2, D5, G9 (např.)
Mám tedy označené buňky B2, D5, G9.
Po stisknutí tlačítka (v přiloženém souboru) se obarví řádky 2,5,9 a sloupce B,D,G.
Dále se zkopírují buňky A:H v řádcích 2,5,9 do List2.

Jak říkám, nevím, co přesně s tím chete dělat, ale adresy jednotlivých vybraných buněk jsou načtené v poli a s tím pak už jde dělat cokoliv.

Nejlépe, když přiložíte svůj konkrétní příklad a co přesně máte v plánu.

Příloha: zip

52150_oznacitradky.zip (21kB, staženo 11x)

citovat

PavDD(21.2.2022 15:15)#052151

ad : Nejlépe, když přiložíte svůj konkrétní příklad a co přesně máte v plánu.

Chci docílit toho, že v listu1-seznam lidí si mohu v kterém koliv sloupci označit bunku, a pak další a další, a makro zjistí řádky všech označených buněk a tyto řádky Celé /nebo jen některé sloupce z nich - pokud by to šlo nějak v makru zvýraznit-vyberu si variantu Celý řádek, nebo jen určité sl./ , zkopíruje do Listu 2.
Pcitovat

PavDD(21.2.2022 15:16)#052152

tady ten příkladcitovat

PavDD(21.2.2022 15:34)#052153

Super, ten Váš příklad je přesně co chci.

Jen moc nechápu , jak jste docíli toho, že podle vybraného počtu buňek, To pěkně ukládá do listu 2, pod sebe.

Potřeboval jsem v jiném makru docílit vložení nějakých řádků dat, začít od A1, a komplikovaně jsem zjištoval jak to doplňovat pod sebe. Nemáte na to nějakou standartní proceduru ?...nebo je to dané tím , že jste použil"pole"? ..v tom se ztrácím.citovat

Jiří497(21.2.2022 15:51)#052154

Žádný soubor jste nevložil, pokud jste to měl v plánu. Pokud se jedná o excel s makrem, musí se nejdřív zazipovatcitovat

Jiří497(21.2.2022 16:35)#052156

[/quote]

PavDD napsal/a:

Jen moc nechápu , jak jste docíli toho, že podle vybraného počtu buňek, To pěkně ukládá do listu 2, pod sebe.

j = 1
For i = 0 To velikostArrBunka
Worksheets("List2").Range("A" & j & ":H" & j).Value = Range("A" & arrBunka(i, 0) & ":H" & arrBunka(i, 0)).Value
j = j + 1
Next i

Počítadlo "j" určuje na který řádek se bude zapisovat výsledek. ¨Nejdříve jej nastavím na číslo 1. Tzn. při prvním průchodu cyklem se zapíše výsledek na řádek 1.
Přičtu 1 (j = j+1). Při dalším průchodu cyklem se zapíše na řádek 2. atd.

Worksheets("List2").Range("A" & j & ":H" & j).Value Tento kód určuje, do kterého řádku se zapisuje. Pokud za "j" dosadím postupně čísla, tak to pak bude takto:Worksheets("List2").Range("A1:H1).Value
Worksheets("List2").Range("A2:H2).Value
Worksheets("List2").Range("A3:H3).Value Když si na začátku nastavím třeba j = 10, tak to začne zapisovat od řádku č.10.citovat

PavDD(21.2.2022 20:30)#052157

..máte pravdu, soubor se nepřipnul, nezipoval jsem ho, nevěděl jsem to.
Ale už to asi nebude třeba, studuji ten váš kod, tak se s tím snad nějak poperu.
Děkuji, Děkuji !
Pcitovat

Strana: 1 2 další »

Téma: označit jeden/více celých řádků

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje