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

Příspěvky uživatele

ale tohle ti vytváří stále nové grafy.

zkus takhle

Dim oblst As Range
Sub Makro1()

Set oblst = List1.Range("B2:F11")
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData oblst
ActiveChart.ChartType = xlLine
Set oblst = Nothing
End Sub
Sub Makro2()
Set oblst = List1.Range("B2:B11,D2:D11,F2:F11")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData oblst
ActiveChart.ChartType = xlLine
Set oblst = Nothing
End Sub

AL:
děkuji ti.
tohle je přesně co potřebuji
já blázen se snažil vzorečkům co nejvíc vyhýbat a řešit všechno vba a teď mám mezery

třeba
Range("A1:A20").NumberFormat = "0"

Kluci děkuji vám za povzbudivé písmenka a za váš čas
na ADO a SQL se určitě podívám.

Palooo: díky za odkazy a přeji příjemně ztrávenou dovolenou

AL: vzorce jsou taky pro mě těžký oříšek

k zadání ještě: vzoreček se mi líbí, ale nedokážu ho upravit tak aby nalezené hodiny byly v rozmezí těch časů.
t.j. když zadám od6:42 do9:48 tak výsledek hledání nemůže být mimo té množiny.
Výsledek u tvého vzoru je 6:40 ( což je špatně když mám od 6:42)
Výsledek u tvého vzoru je 9:50 ( což je špatně když mám do 9:48)

Zdravím pánove,

potřeboval bych nakopnout

mám csv soubory, kde ve sloupci "A" jsou časy (cca 20 tis až 50tis řádku, záleží jaký den vyberu) viz přílohu
mam vytvořený UF pro zadaní času od-do (třeba od 06:00:00 do 10:30:00)

potřeboval bych vymyslet příkaz, které by mi našlo:
řádek nejbližší k času počátečnímu (od) a
řádek nejbližší k času konečnému (do)

příkaz "find" není to pravé ořechové.

Má prosím někdo nějaký nápad?
Nebo to budu muset cyklovat řádek po řádku?

nechápu moc co potřebuješ. píšeš, že chceš jednotky po 100;200;300... ale v tabulce nemas nic takového. podle čeho volíš který člověk do které skupiny. Makro se mi nechctelo krokovat je moc dlouhé
Popíš trochu víc svůj požadavek a dáme to dohromady

Ahoj
tohle zkopíruj do thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim bnk As Variant
Dim r1 As Integer, r2 As Integer

r1 = 20
r2 = 50

For Each bnk In Sh.Range(Cells(1, 1), Cells(1, 20))
If bnk = 0 Or bnk = "" Then
Sh.Rows(r1 & ":" & r2).EntireRow.Hidden = True
Else
Sh.Rows(r1 & ":" & r2).EntireRow.Hidden = False
End If
r1 = r1 + 40
r2 = r2 + 40
Next
End Sub

Makro se spustí při přepínání listů.

takto

Private Sub CommandButton2_Click()
adresar = "C:\User\215781\????\"
ChDir adresar
ActiveWorkbook.SaveAs Filename:="poptavka" & Format(Now, "yyyymmdd") & ".xlsm"
End Sub

Ahoj, udělal jsem makro pro zapisovaní vkladů a výběrů přes tlačítka ( v druhé tabulce) a userform.

Snad ti to trochu pomůže.

Co se týče procent a suma celkem, tam stačí doplnit vzorečky, ale to si snad uděláš sám.
Já v tom zrovna nevynikám.

csá csumi ...

Mám takový pocit, že se složkou $RECYCLE.BIN, která je schovaná.
Ale 100% si nejsem jistý, nijak jsem to nestudoval.
Přidal jsem prikaz On Error Resume Next toď vše

ahoj.
upraveno
+
přidal jsem tlačítko Uložit nové kde:
1) už není dialogové okno (ukládá tam kde se nachází sešit)
2) počet řádků v sešitě je dynamický (uloží všechny řádky)
3) sloupce lze libovolně nastavit (počet, pořadí)
4) místo příkazu Write jsem nahradil Print (ukládání bez uvozovek)

Snad teď už si vybereš a složíš si makro dle obrazu svého

a co ted

bude stacit?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje