Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 22

třeba takto

a nemůžete si načíst hodnoty přímo z druhého sešitu? pak nemusíte nic porovnávat
takhle třeba vypadá vzorec u mě
='D:\Downloads\50821_porovnaj\[Zošit1.xlsx]Hárok1'!C$41

jen bokem dotaz
proč to nemáte vše v jednom souboru?

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.


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 22

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51