MS Excel

Sub pokus()
Dim i As Long, C As Long, ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
With ws
For i = 1 To 20000
If .Cells(i, 1) = "" Then C = C + 1: .Cells(1, 1) = C
DoEvents
Next i
End With
Set ws = Nothing
End Sub
Počas behu makra možno otvoriť iný zošit pomocou Súbor Otvoriť, nie dvojklikom.citovat

@Jan-Mach
Vypadá to chytře, to co píšete. Zatím jste mne ale ničím nepřesvědčil, co by vás opravňovalo používat tento tón ("...na tomto fóru je zvykem...", "...proboha co je to za kód...", atp.).

Zastanu se elninoslova. Předpokládám, že do buňky zapisuje v každém kroku prostě proto, aby bylo opravdu vidět, že makro běží. Tady nejde o rychlost, ale o demonstraci.

A s tím Textem bych to tak růžově taky neviděl.
Vlastnost Text vrací formátovanou hodnotu buňky. Jejím používáním si zakládáte na velké problémy.
Napište do buňky číslo 123456 a zužte buňku, až se zobrazí kriminály. Pak se podívejte, co vrací vlastnost Text.
Nebo nastavte vlastní formát "0 " (0+mezera). Dostanete 123 a jste v (ano tam).
Místo toho se raději podívejte na Value2.citovat

Nejsem si jist, jestli jste mě pochápali....
Dejme tomu, že mám puštěný formulář, kde zadám kritéria, do listboxu vyfiltruju hodnoty které potřebuji zobrazit a to je vše, co od prvního sešitu potřebuju.

Teď potřebuju otevřít druhý sešit, do kterého si potřebuju opsat hodnoty z listboxu z prvního sešitu.
Kapiš?

Nikde není daný, za jak dlouho na jak dlouho apod. ten druhý sešit budu otvírat, jestli ho budu ukládat, jestli ho budu otvírat vícekrát atd. atd.

Takže předpokládám, že kód od Elninoslov je správný a s dobrým úmyslem, ale k jinému případu..citovat

Hneď po prečítaní ma napadlo, či Ernesto nemyslí náhodou na modálny vs. nemodálny form, ale potom ma nejako premohla myšlienka, vzhľadom na koncepciu použitých slov vo vete, že to asi bude myslené na bežiaci kód, takže DoEvents. No a vida, to čo sa hovorí o prvom dojme, predsa len niekedy kurňa bude pravda citovat

Ernesto má vždy něco v hlavě a než si uvědomí, že mu druzí nečtou myšlenky, tak to chvíli trvá :D
Ernesto děkuje..citovat