MS Excel

Téma: podmienka

Zaslal/a neck 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ěď >

Palooo(3.9.2020 9:55)#047871

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-vba citovat

elninoslov(3.9.2020 12:14)#047872

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

Téma: podmienka

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje