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

Příspěvky uživatele

Kdybych ho uměl modifikovat, tak sem nepíšu a udělám to. A 3D vzorec mi neříká vůbec nic. Poradíš lépe?

Jde udělat vlastní funkce podobně jako sumapřeslisty ?Function SumaPresListy(cell)
Dim dblVal As Double
Dim strAdr As String
Dim Wks As Object
Application.Volatile
strAdr = cell.Range("A1").Address
dblVal = 0
For Each Wks In cell.Parent.Parent.Worksheets
If Wks.Name = cell.Parent.Name And _
strAdr = Application.Caller.Address Then
'zabránění cyklického odkazu tj. jesli kontrolovaná buňka _
není ta, která obsahuje funkci. V takovém případě je vynechána
Else
If WorksheetFunction.IsNumber(Wks.Range(strAdr)) Then
dblVal = dblVal + Wks.Range(strAdr).Value
End If
End If
Next Wks
SumaPresListy = dblVal
End Function,

a to na zjištění maximální hodnoty některé buňky či oblasti(listy mají pojmenování 1 až 100, přičemž tam jsou navíc i nečíselné názvy - třeba 29_1,29_2 a tyhle to může přeskočit, protože je to vlastně list 29, který už existuje)Listy začínají od 1 a postupně se přidávají. Díky M.

Funguje bezvadně, moc díky. M

Vždy v rámci listu. Díky.

Poprosil bych ještě jednou. Zadání:
makro pro zkopírování buňky A1 a následné vložení do A2 (vložit pouze hodnoty). Makro by mělo hodnotu překopírovat při každé změně hodnoty A1 a to u všech listů sešitu (můžou tam být různé hodnoty. Kam makro vložím? Jen pro upřesnění v listu mám v code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$1" Then Exit Sub
ActiveSheet.Name = Range("j1").Value

End Sub

Díky.

Nejde, spíš bych tu radu na makro. Potřebuji ten název adresáře zkopírovat z editované buňky.

Potřebuji složit cestu k sešitu s různými podadresáři, které nadefinuju na listu a pak bych to potřeboval z jedné buňky zkopírovat už celé, abych to pomocí macromakeru vytiskl do pdf pomocí pdfcreatoru. M.

Jak jednoduše převést vzorec na hodnotu ve více listech sešitu. Např. z buňky a1 (=concatenate("C:\tisk\";"pdf\") dostat do a2 pouze hodnotu C:\tisk\pdf\, abych ji mohl potom takto zkopírovat. Jde to nějak, ať nemusím používat vložit jinak - hodnoty. Díky M.

Jak udělat, aby se makro ve VBA otevřelo automaticky při otevření sešitu? Ve VBA project je u soboru v listu toto makro:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$1" Then Exit Sub
ActiveSheet.Name = Range("j1").Value
End Sub
a potřebuji, aby se otevřelo při zabazpečení středním a vyšším. Díky M.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse