< návrat zpět
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?
citovatAnonym(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.
citovatmarjankaj(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?
citovatPavlus(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...
citovatJeza(2.5.2012 12:08)#008340 if cells(1,1) ="" then goto ...
citovatmarjankaj(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
RSS nejnovější články