< návrat zpět

MS Excel


Téma: Převod vzorce na hodnotu rss

Zaslal/a 21.7.2014 12:02

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.

Zaslat odpověď >

Strana:  1 2   další »
#020614
avatar
Upřesni, k čemu to máš.
Překopírovat s "Vložit jinak" můžeš i větší rozsahy a přijde mi to dosti jednoduché. Záleží také na tom, zda se jedná o jednorázové řešení, nebo to chceš dělat dynamicky, to bys pak musel vytvořit nějaké makro.
P.citovat
#020616
avatar
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.citovat
#020617
avatar
Copak to nejde vytisknout ikdyž je v buňce vzorec?citovat
#020618
avatar
Nejde, spíš bych tu radu na makro. Potřebuji ten název adresáře zkopírovat z editované buňky.citovat
#020619
avatar
furt nechápu, ale příklad makra:
Public Sub kopiruj()
Dim tmp As String
tmp = Range("A1")
For Each List In ThisWorkbook.Sheets
List.Range("A2") = tmp
Next
End Sub

:-)citovat
#020621
avatar
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.citovat
#020622
avatar
Má to kopírovat z aktivního listu do všech ostatních, nebo to má kopírovat vždy v rámci daného listu?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
If Target.Row = 1 And Target.Column = 1 Then
For Each List In ThisWorkbook.Sheets
List.Range("A2") = List.Range("A1").Value
Next
End If
End If
End Sub
citovat
#020623
avatar
Vždy v rámci listu. Díky.citovat
#020624
avatar
Tak to by to mělo fungovat :-)citovat
#020626
avatar
Funguje bezvadně, moc díky. Mcitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09