Příspěvky uživatele

Ani toto nepomôže?:
"[$-405]dd.mm.yy hh:mm"
Verzia a jazyk Win?
Verzia a jazyk Office?

Sub smazat_radek()
Dim Firstrow As Long
Dim Countrows As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
Dim aDataB()
Dim rngDel As Range
Dim rngRange As Range

Const constMARK = "MW-"

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With

With ActiveSheet
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
Firstrow = .UsedRange.Row
Countrows = .UsedRange.Rows.Count
Set rngRange = .Cells(Firstrow, "B").Resize(Countrows)

If Countrows = 1 Then ReDim aDataB(1 To 1, 1 To 1): aDataB(1, 1) = .Cells(Firstrow, "B").Value Else aDataB = rngRange.Value

For Lrow = 1 To Countrows
If Not IsError(aDataB(Lrow, 1)) Then
If Left$(aDataB(Lrow, 1), Len(constMARK)) = constMARK Then
If rngDel Is Nothing Then Set rngDel = rngRange.Cells(Lrow) Else Set rngDel = Union(rngDel, rngRange.Cells(Lrow))
End If
End If
Next Lrow
End With

If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
ActiveWindow.View = ViewMode
With Application
.Calculation = CalcMode
End With
Beep
End Sub

=MAX(nákup mj;nákup nl)

+- autobus (neoptimalizované) ...

Prvý vzorec je maticový (Ctrl+Shift+Enter) a treba pred jeho editáciou nastaviť formát na Všeobecný. Po úprave naspäť na Text (kvôli možnosti, že budú textočísla začínať "0"). Natiahnuť na predpokladanú výšku.

To by chcelo ten konkrétny súbor.

Dnes som mal žiaľ neplánovaný online zásah cca 5 hod. Nestíham. Zatiaľ som popísal len makro. Pridal som ošetrenie chýb a výpis výsledkov. Lepšie popisovať neviem. Nie som učiteľ.
PQ musí ešte počkať...

?:
Takže súbor je iba jeden? Pár 10000 riadkov? Takže nemusí sa v súbore hľadať nejaký riadok napr. s určitým menom apod. ? Potrebujete naraz načítať dáta iba z 1 súboru? V tom prípade je to brnkačka.

UTF-8:
Open ani FSO Vám to UDF-8 nezožerie. Preto existuje táto finta s ADO. Čo je na tom kóde zložité? Keď prídem popíšem Vám ho.

PowerQuery:
Rozhodne by som ho na Vašom mieste nazavrhoval. PQ môže byť predsa tiež rovnako parametrizované. Vy ste tuším nechcel, aby sa Vám do Excelu načítala nejaká Tabuľka, ale prečo je to problém? Veď môže byť na skrytom liste, PQ do nej načíta iba parametrizované dáta, nie všetky. A ľahko si ich vzorcom vytiahnete do buniek.

Možno večer...

@ GeorgeK: Zkoušel jsem PQ...
Ale v prílohe žiadny PQ pokus neposielate. Veď je to, čo som Vám poslal ja, nie??? To čo nežerie UTF-8. Teda tej Vašej prílohe nerozumiem.
Čo znamená, že sa obávate o rýchlosť? Koľko tisíc riadkov má to CSV? Koľko desiatok CSV súborov budete na jeden klik spracovávať? Koľko "dotazov" budete spúšťať v desiatkach klikov? Do koľkých stoviek buniek budete načítavať údaje?

EDIT:
Malý test. Cez to ADO načítam CSV o 11000 riadkoch, a z neho 60 rôznych hodnôt z rôznych súradníc do rôznych buniek za cca 0,35s

EDIT2:
A teraz ešte rozmýšľam ... Vy vždy viete číslo riadku v CSV? Nechcete Vy náhodou zisťovať nejaký údaj pána Mrkvičku na riadku X, kde má aktívnu žiadosť, alebo ešte aj inú podmienku?

DTPicker z knižnice MSCOMCT2.OCX nefunguje v 64bit. A aj v 32bit systéme ju tuším treba doplniť/zaregistrovať manuálne. Nemám ako teraz vyskúšať.

Príloha s makrom, teda XLSM sa musí zabaliť (ZIP, RAR).

pr.

https://stackoverflow.com/questions/48562941/closing-any-open-userform

Stačí vytvoriť novú premennú "sviatky" ale pre celý zošit. Starú lokálnu zmazať.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje