• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Vyskúšajte toto. Potrápil som sa aj s takými vecami, aby si to samé zoradilo požadované pece tak ako idú v stanovenom zozname v liste "pomoc", vytvorilo listy presne v poradí, prebytočné zmazalo, a pod. Zmenil som aj niektoré vzorce. Nemám teraz už viac času, ale ešte by som možno pouvažoval nad tým, zmazať riadky, ktoré nie sú použité, kvôli zmenšeniu veľkosti súboru a lepšiemu scrolovaniu. Lenže následne by sa museli makrom pri aktualizácii upravovať formáty, orámovanie, vzorce a pod.

Ak chcete riešenie, musíte dodať oveľa viac informácií, prílohu, a lepší popis.
Dáta nemajú hlavičku? Iba výsledok má hlavičku? Kopírovať riadky? Celé riadky (16000 stĺpcov)? Ako určiť rozsah oblasti, podľa ktorého stĺpca? Je to Tabuľka alebo tabuľka? Treba predchádzajúce výsledky mazať? Sú vedľa dát a výsledkov iné údaje (či sa dá použiť UsedRange)? Sú dáta filtrované? Sú tam medzery, zlúčené bunky? Kopírovať aj formáty buniek (orámovanie apod.), alebo iba údaje? Sú tam vzorce či len dáta (ak vzorce, tak kopírovať vzorce alebo výsledky)? O koľko sa asi jedná údajov 100/250000? Tie dáta sú import z nejakého súboru? Ak áno, dal by sa možno použiť bezmakrový prístup cez PowerQuery priamo zo súboru (ten bude potrebné priložiť). Aký je to Office?

Už teraz som venoval premýšľaniu o Vašom probléme viac času ako Vy.

V stĺpci "Vsázky" ??? Takže to nejde za sebou podľa stĺpca "Čas datum zahájení" ? To je zvláštne, ale nijako to nevadí. Mám hotové rozobranie na pece, zoradenie podľa dátumov, pridelenie súčtov pre jednotlivé dni, samozrejme "vyrobenie" dní v použitom rozsahu, ošetrené prechody cez polnoci a pod. Zajtra budem možno pokračovať, no mám otázky. Napr.
-Tých pecí je stále rovnaký počet?
-Ak nie, tak v liste Graf majú len tie, ktoré sú v dátach Celkem, alebo aj tie, ktoré nie sú použité?
-Je možné, že sa v Celkem objaví názov pece, ktorá nie je v Graf?
-Je možné, že nebude existovať list pece, ale v Celkem pec bude? Potom treba vytvoriť list, alebo ako?
-Ak chýba "Čas a datum ukončení", je logické teda, že to je pretrvávajúce, teda do teraz, ale v listoch pecí tento posledný dátum "teraz" nie je. Má sa tam vyplniť?
-A tu sa dostávam k tomu, čím ste ma Vašim príspevkom zneistil. Zdrojom sú dáta v liste Celkem, alebo dáta v samostatných listoch pecí (C1, C2, ...)? Normálne som na Vážkach.
-V liste Graf, ak nie je pre danú pec v danom dni žiaden záznam, má byť ako Pasiv 24:00 a Aktiv 0:00 alebo majú byť bunky prázdne?

Viem, že som mal ešte nejaké otázky, ale už si nespomeniem, možno keď sa k tomu vrátim...

Vidím tam filtre, teda je možné, že nepôjdu tie dáta časovo chronologicky za sebou???

Dalo by sa s tým vybabrať takto:
=HYPERLINK("#'"&MID(CELL("address";'Jméno(1)'!C3);FIND("]";CELL("address";'Jméno(1)'!C3))+1;45))
=HYPERTEXTOVÝ.ODKAZ("#'"&ČÁST(POLÍČKO("address";'Jméno(1)'!C3);NAJÍT("]";POLÍČKO("address";'Jméno(1)'!C3))+1;45))
a ak chcete mať zobrazený iba názov listu na ktorý to smeruje, tak ešte pridajte ako 2. parameter do HYPERLINK/HYPERTEXTOVÝ.ODKAZ toto
MID(CELL("filename";'Jméno(1)'!C3);FIND("]";CELL("filename";'Jméno(1)'!C3))+1;31)
ČÁST(POLÍČKO("filename";'Jméno(1)'!C3);NAJÍT("]";POLÍČKO("filename";'Jméno(1)'!C3))+1;31)
vyzerá to komplikovane, ale nie je, a reaguje to na zmenu názvu listu.

Uveďte príklad (súbor), čo si máme pod tým predstaviť. HL v tom istom súbore? V inom súbore? Názov listu sa dá zistiť z odkazu na bunku, a bude aktuálny aj o zmene názvu listu. Alebo to nie je počítaný HL vzorcom, ale zadaný ručne? Príloha s príkladom ...

Pozrite si SMART hodnotenie disku v HDTune alebo CrystalDiskInfo

EDIT
A nezabudnite urobiť aj kontrolu cez MBAM (Malwarebytes Anti-Malware) Free. Najlepšie v Núdzovom režime. Môžete mať totiž nový typ ransomware (vírus, ktorý poškodzuje data buď ich zašifrovaním, alebo poškodením), a môžete byť následne vydieraný. Tento nový poškodzovací typ je práve v rozmachu.

Ja niekedy fakt ani neviem, ako mám reagovať. Myslíte do ešte iného vzoru, ako je ten v prílohe stiahnutý 0 krát ?!?!

Nástrel. Na konci si vyberte, čo sa má udiať.
Sub Smazat_Bunky_S_Frazi()
Dim Fraze As String
Dim RNG_SMAZ As Range, Oblast As Range
Dim Radku As Long, Sloupcu As Integer, r As Long, s As Integer
Dim D()

Sloupcu = 1

With wsData
Fraze = .Range("C2").Value
If Fraze = "" Then MsgBox "Žádná fráze.", vbExclamation: Exit Sub

Radku = .Cells(Rows.Count, "A").End(xlUp).Row
Set Oblast = .Range("A1").Resize(Radku, Sloupcu)
If Radku + Sloupcu = 2 Then ReDim D(1 To 1, 1 To 1): D(1, 1) = Oblast.Value Else D = Oblast.Value

For r = 1 To Radku
For s = 1 To Sloupcu
If InStr(1, D(r, s), Fraze, vbTextCompare) > 0 Then
If RNG_SMAZ Is Nothing Then Set RNG_SMAZ = Oblast.Cells(r, s) Else Set RNG_SMAZ = Union(RNG_SMAZ, Oblast.Cells(r, s))
End If
Next s
Next r
End With

If RNG_SMAZ Is Nothing Then
MsgBox "Fráze """ & Fraze & """ nebyla v oblasti " & Oblast.Address(0, 0) & " nalezena.", vbInformation
Else
RNG_SMAZ.Select 'pouze označí nalezené
'RNG_SMAZ.ClearContents 'smaže pouze hodnoty, formát a buňky zůstanou
'RNG_SMAZ.Clear 'smaže hodnoty i formáty, buňky zůstanou
'RNG_SMAZ.Delete Shift:=xlUp 'odstraní buňky, zbytek posune nahoru
End If
End Sub

Trochu to bliká

Má prísť k vymazaniu len tej frázy alebo všetkého v bunke? Akej oblasti sa to týka? Jednej bunky? Kontrola hneď pri zadávaní vo Worksheet_Change, alebo neskôr jednorázovo na klik tlačítka?

Takže máte nejaký menný zoznam tlačítok? A v nich má mať vbRed iba jedno tlačítko, a ostatné vbGreen? Na spôsob Option Buttons? Ak nemáte zoznam názvov tlačítok, ako ich má makro identifikovať spomedzi ostatné prvky formulára? Sú v skupine Group? Na to je vhodná príloha.

OK, tak skúste toto. Vymaže prebytočné riadky za posledným vyplneným riadkom podľa "A"
Sub SaveSheet()
Dim R As Long
ThisWorkbook.Worksheets("Hárok3").Copy
With ActiveWorkbook
With .Worksheets(1).UsedRange
.Value = .Value
R = .Parent.Cells(Rows.Count, "A").End(xlUp).Row
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
Application.DisplayAlerts = False
.SaveAs "e:\Download\novy.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
End Sub

To je iba správa MsgBox. To čo sa píše v tej správe som chcel vedieť. Uvádza adresu použitej oblasti vs. adresu vypočítanej oblasti podľa určujúceho stĺpca. Teda od Vás chcem, aby ste mi napísal toto:
Napísalo mi to toto:
A1:G105
A1:G86
Ja Vám tam potom doplním kód o zmazanie prípadnej prebytočnej časti na konci, ktorá spôsobuje načítanie "prázdnych" riadkov.

Aký "oddělující sloupec" ? Ja píšem "Ktorý stĺpec je určujúci". Podľa ktorého sa dá určiť, podľa ktorého sa dá zistiť počet riadkov dát. Lebo to, že v bunke "nič" nie je neznamená, že je prázdna. A vzorcami sa často vpisuje do buniek "", to ale nie je prázdna nepoužitá bunka. Takže tie Vaše vzorce sú UsedRange - použitá oblasť. Preto sa pýtam, podľa ktorého stĺpca Vašich dát, sa dá určiť, ktorý riadok je posledný. Ako sa mám pre Boha inak opýtať?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse