Příspěvky uživatele

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

ad1-2
budou to 3 případně 4 sloupce podle hodnoty buňky "B3" a budou to buď sloupce A:C nebo A:D , ne jiné.

ad3-4
ne, hodnoty v řádcích 5 a 6 budou jiné ale pokud je potřeba nějaký identifikátor, je možné využít jakékoliv řádky 9+ s tím, že je potom skryji.
případně je možné i využití celých sloupců F+

Díky V.

našel jsem tento kódPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And IsNumeric(Target.Value) = True Then
Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target.Value
Target.Value = 0
End If

End Sub
který dělá podobnou věc kterou potřebuji
hodnoty ve sloupci A přičítá do sloupce B a nastaví nulu
neumím to předělat na můj soubor

Zjistil jsem že mám špatně popis.
Něco už jsem se snažil spáchat, nicméně moje znalosti na to nestačí. Snažím se vždy dohledat nějaký kód a alespoň trochu pochopit logiku, ne vždy úspěšně.
Skrytí sloupce na základě hodnoty už jsem pořešil.
Přičítání hodnoty mi nefunguje podle potřeby, protože nevím jak kód upravit. Makro se mi spouští až po návratu do buňky místo při opuštění a nevím jak od myConst (vlastní název pro konstantu kterou beru z buňky) odečíst 1.
Přikládám nový soubor kde jsem i doplnil jak by měl vypadat výsledek.

Zdravím
Chtěl bych požádat o pomoc s VBA.
Podrobněji jsem popsal v přiloženém souboru.
Děkuji V.

Nevím jakou používáte verzi Office.
Pomocí PowerQuery by to šlo třeba takto.
Vstupní Data jsou nastavená do řádku 22 (muselo by se případně upravit)
Tituly musí končit "." (tečkou) a třídění zatím nastaveno na 10 celků oddělených mezerami tzn. "Ing. Petr Nový" jsou 3 celky.
Po přidání řádků ve sloupci "B" stačí pravý klik na výstupní Tabulku a Obnovit

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje