Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  37 38 39 40 41 42 43 44 45   další » ... 298
Export sešitu na více částí se záhlavím (10.2.2023 9:50)

+-

Export sešitu na více částí se záhlavím (10.2.2023 8:30)

Všetky riadky alebo iba vyfiltrované?
Sú tam nejaké skryté stĺpce, ktoré treba vynechať?
Rozsah stĺpcov?
Je to tabuľka alebo Tabuľka?
"otevřený list" - takže tých listov je viac, a Vy potrebujete takto spracovať iba aktuálne aktívny list? Takže na každom takom liste je tlačítko? Alebo je ovládacie tlačítko na inom liste - v tom prípade to nemôže platiť na "otevřený list".

Transponuj na nový list data (9.2.2023 21:06)

Do súboru od Jiřího som pridal aj jednoduché PQ riešenie.

Výmaz řádku podle hodnoty v konkrétním sloupci (9.2.2023 13:52)

To je úplne jednoduché.
Sub DeleteRows()
Dim rngDel As Range, DelCount As Long, D(), i As Long, colDel As New Collection, Check

D = wsHodnoty.ListObjects("tblMazatHodnoty").ListColumns(1).Range.Value2
On Error Resume Next
For i = 2 To UBound(D, 1) 'vytvoření kolekce mazaných hodnot z tblMazatHodnoty
colDel.Add CStr(D(i, 1)), CStr(D(i, 1))
Next i

With wsFaktury.ListObjects("DataFaktury")
With .ListColumns(11).Range
D = .Value2

For i = 2 To UBound(D, 1)
Check = colDel(CStr(D(i, 1))) 'mazat při hodnotách z tblMazatHodnoty, hodnoty lze lehce editovat
If Err.Number = 0 Then
If rngDel Is Nothing Then Set rngDel = .Cells(i) Else Set rngDel = Union(rngDel, .Cells(i))
Else
Err.Clear
End If
Next i
End With
On Error GoTo 0

If rngDel Is Nothing Then MsgBox "Žádné řádky k smazání", vbInformation: GoTo KONEC 'žádné řádky k smazání

DelCount = rngDel.Cells.Count
Intersect(.DataBodyRange, rngDel.EntireRow).Delete Shift:=xlUp 'odstranění řádků
MsgBox "VYMAZÁNO " & DelCount & " ŘÁDKŮ", vbExclamation 'informativní výpis počtu chyb
End With

KONEC:
Set colDel = Nothing
End Sub
A nebolo by pre Vás vhodnejšie PowerQuery s výslednou Tbl do druhého listu/súboru ???

IBAN (8.2.2023 20:51)

Pozerám, že po rokoch už tu ten môj súbor nie je. Našiel som ho na inom fóre, kam som ho tiež posielal. Skúšal som funkčnosť aj na mBank.

Výmaz řádku podle hodnoty v konkrétním sloupci (8.2.2023 18:54)

Takto?
Sub DeleteRows()
Dim rngDel As Range, DelCount As Long, D(), i As Long, bDel As Boolean

With wsFaktury.ListObjects("DataFaktury")
With .ListColumns(11).Range
D = .Value2
For i = 2 To UBound(D, 1)
bDel = IsError(D(i, 1)) 'mazat při chybě
If Not bDel Then
Select Case D(i, 1)
Case "něco", 900: bDel = True 'nebo mazat při těchto hodnotách, hodnoty lze lehce přidat
End Select
End If

If bDel Then If rngDel Is Nothing Then Set rngDel = .Cells(i) Else Set rngDel = Union(rngDel, .Cells(i))
Next i
End With

If rngDel Is Nothing Then MsgBox "Žádné řádky k smazání", vbInformation: Exit Sub 'žádné řádky k smazání

DelCount = rngDel.Cells.Count
Intersect(.DataBodyRange, rngDel.EntireRow).Delete Shift:=xlUp 'odstranění řádků
MsgBox "VYMAZÁNO " & DelCount & " ŘÁDKŮ", vbExclamation 'informativní výpis počtu chyb
End With
End Sub

Výmaz řádku podle hodnoty v konkrétním sloupci (7.2.2023 21:49)

Ja by som to videl na SpecialCells
Sub DeleteRows()
Dim rngErr As Range, ErrCount As Long

With wsFaktury.ListObjects("DataFaktury")
On Error Resume Next
Set rngErr = .ListColumns(11).Range.SpecialCells(xlCellTypeFormulas, xlErrors) 'všechny buňky s chybou ve 11. sloupci Tabulky
On Error GoTo 0

If rngErr Is Nothing Then MsgBox "Žádné chyby", vbInformation: Exit Sub 'žádné chyby

ErrCount = rngErr.Cells.Count
' If ErrCount = .DataBodyRange.Rows.Count Then .ListRows.Add 'asi není potřeba, ale pokud jsou všechny buňky s chybou, přidej 1 řádek, pro zachování vzorců a formátů

Intersect(.DataBodyRange, rngErr.EntireRow).Delete Shift:=xlUp 'odstranění řádků
MsgBox "VYMAZÁNO " & ErrCount & " ŘÁDKŮ", vbExclamation 'informativní výpis počtu chyb
End With
End Sub

plán 12 h směn na celý rok (6.2.2023 14:16)

alebo aj

plán 12 h směn na celý rok (6.2.2023 14:15)

Možností je mrte...
Napadajú ma ďalšie 2

plán 12 h směn na celý rok (6.2.2023 13:21)

Asi by som to počítanie smien urobil úplne inak. S pomocou referenčnej tbl., ktorú zadáte raz na cyklus ktorý viete, a ostatné sa cyklicky dopočíta vzhľadom na rozdiel počtu dní medzi daným dátumom a referenčným dátumom.

štítky z kusovníků (6.2.2023 11:04)

Môj mail vidíte v konte...

Výpočet percentilu dle podmínek (6.2.2023 11:02)

Tak skúste za 1. vzorec vložiť ako maticový, nie obyč. Enter ale Ctrl+Shift+Enter, a za 2. pridajte overenie farby pomocou vyhľadania reťazca:
=PERCENTILE(IF(IFERROR(SEARCH($E7;$A$2:$A$81);)*($B$2:$B$81=F$6);$C$2:$C$81);F3)
=PERCENTIL(KDYŽ(IFERROR(HLEDAT($E7;$A$2:$A$81);)*($B$2:$B$81=F$6);$C$2:$C$81);F3)

štítky z kusovníků (6.2.2023 9:48)

Ak to chcete napáskovať na nejaký požadovaný vizuál, tak si ho najskôr pripravte, vylaďte tlač so štítkovým papierom, a makro treba potom prispôsobiť. Lebo ja som počítal s rozložením tak ako je, napr. aj PF na skrývanie orámovania nepoužitých štítkov je nastavený na oblasť každého štítku. Ozvite sa, keď bude treba.

plán 12 h směn na celý rok (6.2.2023 0:17)

Tak nad tým čo to má kde robiť, čo chcete hľadať, čo to robí zle, čo to nerobí, ako má vyzerať výsledok, ... sa mi moc premýšľať nechce. Takže čo Vám nefunguje?

vyhledání konkrétního textu (5.2.2023 11:59)

Chybovej hlášky sa zbavíte jednoducho:
=IFERROR(váš vzorec;"")

EDIT:
Inak to sa dá urobiť ľahko aj dynamické (ale to je na DÚ príliš). Príklad:


Strana:  1 ... « předchozí  37 38 39 40 41 42 43 44 45   další » ... 298

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje