< návrat zpět

MS Excel


Téma: pozastavení běhu programu rss

Zaslal/a 19.2.2018 12:47

hoj lidičkové, potřeboval bych radu. Z jednoho sešitu pomocí vba vytvořím novou aplikaci excelu a do ní načítám sešit. Do tohoto sešitu uložím data a pak tyto data zobrazuji. A potřeboval bych, aby sešit, z kterého toto volám, počkal, než uzavřu ten nový volaný sešit. Mně to prostě běží dál. A pokud nový sešit zavřu a uložím tak mi to hodí chybu za běhu programu.


'otevreme databazi v novem okne
sesitDatabaze.Workbooks.Open ThisWorkbook.Path & "\...\databaze.xlsm"
sesitDatabaze.ActiveWorkbook.Windows(1).Visible = True
sesitDatabaze.Visible = False

MsgBox "Mail nenalezen!"

Dim odpoved As Integer
odpoved = MsgBox("Chcete zapsat nový záznam do databáze?", vbYesNo, "INFO")

If odpoved = 6 Then
.
.
.

Dim navratHodnota As Integer
navratHodnota = 0

‘ODTUD MI TO DĚLÁ BORDEL
Do While (navratHodnota = 0)
navratHodnota = MsgBox("Data byla zapsána. :-)")
Loop
sesitDatabaze.Rows(oblastI_poslRadek).EntireRow.Select
AppActivate sesitDatabaze.ActiveWorkbook.Windows(1).Caption
sesitDatabaze.ActiveWorkbook.Save


chtěl jsem aby mi to zastavilo na msgboxu a po odkliknutí ok se mi teprve zobrazil ten záznam, ale ono to zobrazí záznam a na pozadí se mi bliká msgbox 6

Zaslat odpověď >

#039601
elninoslov
Zaznamenal som rovnaký problém. Ale možno by bolo dobré sem priložiť celé zošity (bez citlivých dát).citovat
#039616
avatar

elninoslov napsal/a:

Zaznamenal som rovnaký problém. Ale možno by bolo dobré sem priložiť celé zošity (bez citlivých dát).


Hm to by byla fuška 4 a ten sešit má cca 9 mega 9 a hlavně nemělo by se to zaciklit na té smyčce? 6 . Ještě mě napadlo tam dat form, ne msgBox.citovat
#039654
elninoslov
Neviem ako presne kooperuje aplikačná vrstva kompilátoru VBA s OS a CPU, ale ak je tam skutočne nejaký tzv. špekulatívny výpočet (prediktívny), tak je slušná šanca, že to urobí aj za zobrazením Formulára, aj keď sa o tom nedozviete, ani keď si dáte Breakpoint. Treba vyskúšať, a ak to bude OK tak to bude asi kratšia cesta ako hľadať ťažko dostupné riešenie nepravidelného a ťažko odchytiteľného problému.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Excel Formulář

pisbo • 19.10. 12:03

Prepínanie údajov po rokoch

Denis • 18.10. 22:37

Excel Formulář

pisbo • 18.10. 17:57

Odeslání dat do souboru v síti a zápis do něj

xlnc • 18.10. 12:09

Excel Formulář

xlnc • 18.10. 11:56

Odeslání dat do souboru v síti a zápis do něj

Pavel-Krivanek • 18.10. 11:17

Excel Formulář

pisbo • 18.10. 8:30