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

Příspěvky uživatele

Nemáte denní, týdenní nebo měsíční záznamy? S tím by se mnohem lépe pracovalo a pro výstupní analýzu by to bylo mnohem lepší. Jak psal lubo dal by se přidat sloupec zda byl produkt v katalogu a event. barevné roztřídění by se dělalo až na nějakém výstupu.

Zdravím
dotaz: dle čeho se určuje zda je produkt v prodeji? Nerozumím tomu, že byl produkt prodán a přitom není podbarven (dle Vašeho popisu modře).
Máte tam neskutečné množství podmíněného formátování i opakujícího se. Myslím že ani makra nebudou potřeba pokud se správně nastaví PM a použije kontingenční tabulka nebo PowerQuery. Ta data si vyplňujete sami nebo je to výstup z nějakého programu?
Pro lepší práci by bylo možná vhodné jiné rozložení vstupních údajů.

zkuste
Sub apply_autofilter_across_worksheets()
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("E1").AutoFilter 6, "=1"
Next
End Sub

ještě jsem udělal malé úpravy v dotazu
není zač, kdyby něco tak klidně napište

třeba takto pomocí Power Query
Na listu "FPath" zadejte cestu a název souboru i s koncovkou
kdyby se přidávaly jména tak je potřeba před aktualizací seznamu soubor nejprve uložit a potom pravý klik do Tabulky seznamu a Obnovit, nebo na kartě Data->Aktualizovat
Případně by na aktualizaci šlo udělat i tlačítko

dejte přílohu se smyšlenými daty, stejnou datovou strukturou a výsledkem jak by měl vypadat
stačí jen několik málo řádků

Tak soubor uložte pod jiným názvem a změňte citlivá data, ponechte trochu toho co nefunguje i funguje a on se Vám na to určitě někdo podívá. Bez přílohy pochybuji.

vytvořte si v Outlooku pravidlo
https://ci.vse.cz/elektronicka-posta/posta-v-office-365/zasady-automaticke-mazani-po-urcite-dobe/#pravidlo

na smazání veškerého PF v aktivním listu stačí
Cells.FormatConditions.Delete

nějaký vzorový soubor se smyšlenými daty jak to vypadá teď a co chcete jako výsledek

Tady mám soubor vytvořený pomocí PowerQuery který vypíše Excel, Word a Pdf dokumenty do zvlášť listů a vytvoří hypertextový odkaz na otevření složky a souboru.
Složka k prohledání se zadává na listu "SetupFolder" do buňky B1. Potom stačí na kartě Data->Aktualizovat vše a na Listech Excel, Word a Pdf se vypíšou soubory a vytvoří odkazy.
Pokud by Vám něco takového vyhovovalo, je potřeba znát datovou strukturu vašeho souboru a případně koncovky pro obrázky které používáte.
jak už bylo napsáno, dejte přílohu, stačí pár řádků a pár obrázků

Zdravím
Chtěl bych požádat o radu.
Rád bych použil tento kód tak, abych mohl editovat ostatní buňky a odpočet v B2 stále běžel.
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
----------------------
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("B1") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("B1").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("B1") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
-------------------
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
------------------
Private Sub CommandButton3_Click()
Range("B1").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub

Našel jsem zde na Foru i kód od elninoslov který načítá vteřiny z D1 a byl taky přijatelný, jen bych potřeboval aby se na nule zastavil.
Public OldTime As Date
Public Citac As Long

Sub Timer2()
With Worksheets("List1")
Citac = Citac + 1
.Buttons("btnStartStop").Caption = "Stop Timer (" & TimeSerial(0, 0, .Cells(1, 4) - Citac + 1) & ")"
OldTime = Now + TimeSerial(0, 0, 1)
If Citac > .Cells(1, 4) Then
Citac = 0
End If
Application.OnTime OldTime, "Timer"
End With
End Sub

Sub StartStop()
With Worksheets("List1")
If Left(.Buttons("btnStartStop").Caption, 5) = "Start" Then
Call Timer
Else
.Buttons("btnStartStop").Caption = "Start Timer"
Application.OnTime OldTime, "Timer", Schedule:=False
Citac = 0
End If
End With
End Sub

Edit:Přikládám soubor kde jsou obě možnosti, nějak jsem na něj zapomněl

Díky V.

Ano to je přesně ono a díky moc.

nějak takhle?

Zdravím Jiří
díky že jste se na to mrknul. Mohu požádat o úpravu?
Buňka A1 je pouze výchozí hodnota pro A7:D7 a tato hodnota by se měla načíst do A7:D7 při otevření sešitu nebo při její změně.
Potom už by na přepočty neměla mít vliv a přepočty by měly probíhat s hodnotami A7:D7
zkusím na příkladu:
načtená hodnota z A1=200
Do A8 zadám 5 a vyjedu jakkoliv z buňky, A7=215 ; B7:D7=195
do A8 zadám znovu 5 a opustím buňku, A7=230 ; B7:D7=190

teď to vlastně pořád bere v úvahu hodnotu A1

Děkuji

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse