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

Příspěvky uživatele

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?

Co napríklad tohle

Sub hledej()
Dim i As Integer
Dim kde As String, co As String
If Cells(1, 1) <> 0 Then Columns(1).ClearContents
ChDrive "C"
kde = "C:\blabla" 'sem zadat cestu
ChDir kde
co = Dir("*.*")
i = 1
Do While co <> ""
Cells(i, 1) = kde & "\" & co
i = i + 1
co = Dir
Loop
End Sub

tohle jen tak narychlo

@eLCHa
a jo mám 64 bit office Díky.

a kdo má lepší řešení, tak to je jedno. Já nechci s nikým soutěžit
Zadavatel si vybere sám co mu bude vyhovovat.

@Dingo:
Díky za upozornění chybu jsem opravil

edit: nyní funguje i v excel 2003

@Dingo:
Co se týče tvého makra tak hned po spuštění se mi ukaže tohle viz přílohu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje