< návrat zpět

MS Excel


Téma: podmienka rss

Zaslal/a 27.8.2020 14:23

Dobry den

trapim sa spodmienkou makra ktora ma zabezpecit ze pokial sa nenajde vo vybranej oblasti slovo "tolerovany pobyt" tak sa vykona uloha za Else cize bunky sa odznacia.

Mozem poprosit o pomoc ?

Dakujem


zlucit Tolerovany pobyt -------------------

Dim tolerovany As Range ' zadefinovanie premennych
Dim xto As Long
Dim yto As Long


xto = ActiveCell.Row
yto = ActiveCell.Column
Cells(xto, yto - 1).Activate ' posun o bunku vlavo


Range("B" & xto, ActiveCell).Select ' vyberie riadok v ktorom s anachadza kurzor

Set tolerovany = Selection.Find(What:="Tolerovaný pobyt") ' slovo ktore sa hlada

If tolerovany = xxxxxxx Then ' podmienka ak tam tolerovany nebude

tolerovany.Select

Range(ActiveCell, Cells(xto, yto - 1)).Merge ' vyberie bunky na zlucenie a zlici ich

Else
Application.CutCopyMode = False ' zrusi vyber pre kopirovanie
End If



Zaslat odpověď >

#047871
avatar
asi lepsie to bude kontrolovat bunka po bunke a potom to len s unionom spojit tak ako je to v tomto priklade:

https://stackoverflow.com/questions/45705044/select-and-copy-multiple-ranges-with-vbacitovat
#047872
elninoslov
Zlý popis, zlé makro, žiadna príloha. Riešenie bude bez problémov, ak pridáte prílohu, kde bude jasne ukázané čo máte (1. list), a čo má vzniknúť (2. list).
V tomto Vašom makre je "divno" definované, akú oblasť má prehľadávať na daný text.
Range("B" & xto, ActiveCell)
??? od B až po aktívnu bunku? Teda môže byť aktívna v rôznych stĺpcoch a aj tak makro má zlučovať?
A zlučovať sa má bunka s nájdeným textom so susednou zľava? Alebo ak bude prvá aktívna H, hľadať sa bude v B:G, nájde sa text v C, tak sa zlúči C:G ?
...
No dajte prílohu.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