Příspěvky uživatele

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ť?

Ktorý stĺpec je určujúci pre zistenie, v ktorom riadku dáta končia?
Za to
.Value = .Value
pridajte dočasne tento riadok, ale s tým, že to "A" nahraďte tým určujúcim stĺpcom
MsgBox .Address(0, 0) & vbNewLine & .Resize(.Parent.Cells(Rows.Count, "A").End(xlUp).Row).Address(0, 0)
výsledok mi napíšte.

Hmm, asi hej, ale s takým skriptom nepomôžem ...

Vyskúšané aj na Win 7 x86 Pro SK + Excel 2007. Všetko funkčné. Niečo bude u Vás zle.

Neviem, ako pomôcť. Ja to spustím a ide to OK. Excel 2019 x64 Pro SK

Spustite prvý krát makro "UpdateCell" a čakajte minútu, pozerajte na list na logy. Musíte každú minútu vidieť 2 logy. Ak dokončíte testovanie, stopnite ďalšie naplánované spúšťanie makrom "SERVICE_PROC_STOP".

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje