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

Příspěvky uživatele

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

Pokud by jste chtěl použít PowerQuery tak třeba takto.
Nicméně je potřeba zdrojová data převést na Tabulku nebo použít Definovaný název. V případě, že by byl lepší Def. název, bylo by potřeba udělat malé změny v dotazu.

v posledním příspěvku od elninoslov máte soubor "PQ Import dát" kde je list KT a list Settings, tam je potřeba upravit cestu, nebo použít vzorce z posledního příspěvku elninoslov.

Co se týče "zdojového dotazu":
Používám v PQ, dle toho co mě naučil MePExG, dotaz pojmenovaný jako Zdroj (a v něm právě FPath-cesta ke složce)a další dotazy pokud je potřeba vytvářím z něj.
elnino má trochu odlišný způsob, ale zkušenosti mnohem mnohem větší
Kniha je určitě super nápad

Na listě "Settings" si upravte správné cesty podle toho kde to máte u sebe.

Osobně používám maticový vzorec a pojmenovanou buňku FPath

načte cestu ze které byl soubor otevřen

vzorec:
=ZLEVA(POLÍČKO("filename");NAJÍT("[";POLÍČKO("filename"))-1)[/code]

v PQ si připravím vlastním dotazem cestu

[code]let
Source = Excel.CurrentWorkbook(){[Name="FPath"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
Column1 = #"Changed Type"{0}[Column1]
in
Column1


a zdrojový dotaz načítám

= Folder.Files(FPath)

snad nevadí že odpovídám

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse