MS Excel

Téma: zastav

Zaslal/a thums 2.5.2012 7:33

Zdravím,
mám vytvořené makro, které postupně otevírá několik sešitů ( data ze SaP ), přenese obsah do jiných sešitů s tím, že data uspořádá " Text do sloupců ". Problém je v tom, že když otevře prázdný sešit, tak se blokne...Potřebuji vytvořit podmínku, pokud je sešit prázdný, pokračuj dál...
Přílohu dát nemohu, data jsou tajná....a mám je v práci...

Uzamčeno - nelze přidávat nové příspěvky.

marjankaj(2.5.2012 10:37)#008336

A čo ti bráni poslať ten prázdny zošit? Názov zošita je ľubovoľný? Koľko to má listov?
Keď mám niečo testovať, tak by bolo dobré vedieť čo.
A nemôžeš si vytvoriť nejaké "cvičné" dáta?citovat

Anonym(2.5.2012 10:53)#008337

Dík za reakci, jenom mě nakopni...prostě jak by měla vypadat v makru podmínka, která říká = když je tento otevřený sešit prázdný, tak neprováděj akci ( text do sloupců atd...) a vrať se do následujícího procesu.citovat

marjankaj(2.5.2012 11:21)#008338

Veď to bez toho zošita práve neviem. Podľa čoho mám zistiť, že je prázdny? Testovať všetky hárky?citovat

Pavlus(2.5.2012 11:29)#008339

Bez souboru těžko říct .-), nevím jak to tam máš udělaný, ale třeba by stačilo pouze testovat jednu buňku, která je v použitém sešitu vždy vyplněna...citovat

Jeza(2.5.2012 12:08)#008340

if cells(1,1) ="" then goto ...citovat

marjankaj(2.5.2012 12:14)#008341

Public Sub test()
With ActiveSheet.UsedRange.Cells
If .Count > 1 Then Exit Sub
If .Value <> "" Then Exit Sub
End With
MsgBox "prázdny list"
End Sub

Otestuje to aktívny hárok v zošite.

Ešte tam môžeš dať cyklus a máš to pre celý zošit

For i = 1 To Sheets.Count
call test
Next icitovat

thums(3.5.2012 19:52)#008358

JJ klucí, díky za pomoc, nicméně do makra jsem vsunul před "text do sloupců" On Error ToGo... a je to...citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.