Příspěvky uživatele

Žádné vzorce tam nejsou. Jen čistá data. Zkouším vymyslet jak je ořezat ještě před exportem do excelu. Už jsem se dostal ze 40.000 řádků na 4.000.

Je to opravdu pomalé. Tak jestli přidat to mazání po 1000. Ještě mám dotaz k sloupečku A. Mám ještě jeden soubor a tam zase potřebuji sloupeček B. Stejné podmínky, jen jiný sloupec. Pokoušel jsem se přijít na to, v kterém řádku mu říct, že chci tentokrát sloupec 2. Ale nedaří se. Díky

Makro mě řádky označilo, ale nesmazalo. Možná proto to při procházení 47.000 řádků trvalo dost dlouho.

Zdravím, může mě někdo poradit s makrem. Funguje krásně i při 4000 řádcích. Jen ho potřebuji upravit a nevím jak. Používám ho na mazání řádků kde je EN, jenže já ho potřebuji upravit o to aby mazal i kde je na začátku EN a za ním třeba číslo EN1234. Napsal jsem do makra EN*, ale maže zase jen řádky s EN*. Také bych ho potřeboval rozšířit o další podmínky Z*, S*, B*. To jsem sice dokázal, ale zase maže jen ty řádky kde je přesně Z* ....
Předem díky za radu.

Sub smazatEN()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
With .Cells(Lrow, "A") ' Sloupec s hledanými podmínkami
If Not IsError(.Value) Then
Select Case .Value
Case Is = "EN": .EntireRow.Delete 'podmínka v uvozovkách
End Select
End If
End With
Next Lrow
End With
ActiveWindow.View = ViewMode
With Application
.Calculation = CalcMode
End With
End Sub

Už to funguje. Díky

Budu požívat více listů, ale makro bude při aktualizaci používat vždy List1.

Něco dělám blbě. Pokouším se přijít na to co.
Když si v tom vašem souboru udělám kopii listu, vytvoří se list2. Pak jsem v makru změnil list1 na list2 a při spouštění souboru to vyhazuje chybu: Subscript out of range (Error 9)

Custom Properties neznám.
Soubor funguje přesně.
Díky
Jen se mě to nedaří aplikovat do mého souboru.

Nemůžu přijít na to, kde je problém.

Zdravím, měl bych dotaz na vlastní pás karet.
Nevíte někdo jak dostat do pásu karet hodnotu z buňky, nebo buňku vynechat a rovnou data makrem vložit do pásu karet?
Nevím jestli jsem to popsal srozumitelně. Přikládám vzorovou přílohu. Po kliknutí na tlačítko aktualizace. Překopíruje makro hodnotu A2 do D2, do D3 vloží datu a čas použití makra.
Pokouším se použít TextBox, ale nemůžu nic na netu najít. Jde to vůbec? Díky za odpověď. Pomocí makra aktualizuji data v sešitě o více listech a hodilo by se vědět, kdy jsem naposledy aktualizoval. Díky předem

Ještě jednu věc potřebuji vyřešit.
Koukal jsem po netu a podle všeho to nejde.
Sestava se tiskne na síťové tiskárně oboustranně.
Nějak to ošetřit aby se tiskla jednostranně.
Náhled nepotřebuji tak to poslat přímo na tiskárnu (PrintOut).
Posílat to jednotlivě po listech? Neřešil to někdo?
Předem dík.

Super moc děkuji.

Můžu poprosit o jednu úpravu?
Když nebude nic vybráno, tak hlášku o nutnosti provedení výběru některého listu. Teď to vyhodí chybu. Díky moc

Díky moc.

Dobrý den,

potřebuji tisk listů dle seznamu. Na netu jsem našel téměř přesně co jsem měl v plánu. Jen se mi nedaří upravit makro.
Potřeboval bych to upravit tak, aby se tiskly jen listy ze seznamu, bez listu "data".
Přikládám soubor, který jsem našel.

Předem díky za pomoc.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje