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: « předchozí 1 2

lubo(22.2.2022 0:34)#052158

2.jak označit v makru více řádků, když v nich kdekoliv mám označeno více buňek.

'zapamatuju si vybrané buňky
dim vybrano as range
Set vybrano = Selection

' vybarvim řádek, kde je nějaká vybraná buňka
vybrano.EntireRow.Interior.Color = vbRed

kopírovat celé tyto řádky/2,5,7,10/, nebo třeba do jiného listu

Dim i As Long
Dim area As Range
Dim list2 As Worksheet

'každý řádek zkopíruje do List2
set list2 = Worksheets("List2")
i = 1
For Each area In vybrano.EntireRow.Areas
With area
list2.Cells(i, 1).Resize(.Rows.CountLarge, .Columns.CountLarge).Value = .Value
i = i + .Rows.CountLarge
End With
Next area
citovat

PavDD(22.2.2022 14:41)#052164

Jestli můžu ještě něco.
není mi jasná syntax jak se zapisuje oblast s proměnnou

Potřebuju vybrat :

oblast ActiveSheet.Range("C3:E11").Select ok
oblast s prom. Range("B2", "B" & PosledniPlnyRadek).Select ok

ale jak napsat dvě oblasti s proměnnou ? B2:B3 a C2:C?
Range("B2:B3", "C2:C & PosledniPlnyRadek").Select nejde

Pcitovat

Jiří497(22.2.2022 15:45)#052166

Range("B2:B3", "C2:C" & PosledniPlnyRadek).SelectUvozovky musí být za písmenem C, ne před závorkou.
Stejně jako tadyRange("B2", "B" & PosledniPlnyRadek).Selectcitovat

PavDD(22.2.2022 19:31)#052169

Jo, super.
a když chci vybrat dvě nesousedící oblasti:
píšu:

Range("A2:A3,C2:C3").Select ' dvě samostatné, nesousedící oblasti /může jich být i více ??

ale nejde mi to zas s tou proměnnou:
Range("A2:A3", "C2:C" & PosledniPlnyRadek).Select
kde je zrada ?citovat

Jiří497(22.2.2022 19:46)#052170

Zase ten stejný problém. Napište si to pod sebe a zahrajte si hru "Najdi rozdíly". Měl byste najít 2 rozdíly, když pominu nahrazení čísla 3 proměnnou.

Co je tam jinak?citovat

PavDD(23.2.2022 15:45)#052179

Ok, našel jsem
Range("D8:D11,Y8:Y" & PosledniPlnyRadek).Select

Ale další prkotina, furt vyhazuje chybu když chci obě oblasti definovat s promennou :

Range("D8:D & PosledniPlnyRadek,Y8:Y" & PosledniPlnyRadek).Select

Tady je nutné použít zase jiný styl zápisu ?citovat

Jiří497(23.2.2022 18:10)#052181

Všechno co je mezi uvozovkami je text.
Proměnnou (její hodnotu) připojím k textu pomocí znaku &.
Takže:
"A1" program bere jako text A1

Mám proměnnou Radek = 1
pak platí:
"A" & Radek si program přebere jak A1

ale

"A & Radek" není A1 ale je jeden text "A & Radek"

Příklady:

Souvislá oblast:Range("D8:D9", "F8:F9").Select
Range("D8:D" & Radek, "F8:F" & Radek).Select

Dvě nespojité oblasti:Range("D8:D9, F8:F9").Select
Range("D8:D" & Radek & ", F8:F" & Radek).Select
citovat

PavDD(23.2.2022 20:46)#052184

Děkuju, byl to teda "porod"
Hezký večercitovat

PavDD(9.3.2022 10:43)#052267

Vše funguje.
nevěděl by jste ještě, jak obsah označených buněk vložit do Label.caption?
jedná se vždy o dva sloupce a x-počet řádků.

Oblast jsem si označil takto , ale potřebuji její obsah vložit jako text emailu :

'text e-mailu
strBody = "Dobrý den,posílám blabla"
strBody = strBody & "...tady ten výpis obsahu buněk označených" & vbCrLf
strBody = strBody & " S pozdravem" & vbCrLf

jak to udělat? Uložit nějak ten obsah buněk do proměnné?
..nebo třeba do nějakého Label.caption?

Pcitovat

PavDD(9.3.2022 10:44)#052268

bunky jsem si označil příkazem :

Range("XFC8:XFC" & PosledniPlnyRadek & ", XFD8:XFD" & PosledniPlnyRadek).Select
Selection.Copycitovat

Strana: « předchozí 1 2

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