MS Excel

Téma: Převod vzorce na hodnotu

Zaslal/a zac1234 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ší »

Pavlus(21.7.2014 12:14)#020614

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

zac1234(21.7.2014 12:18)#020616

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

MJJ(21.7.2014 12:41)#020617

Copak to nejde vytisknout ikdyž je v buňce vzorec?citovat

zac1234(21.7.2014 12:47)#020618

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

MJJ(21.7.2014 14:48)#020619

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

zac1234(21.7.2014 15:08)#020621

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

MJJ(21.7.2014 15:48)#020622

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 Subcitovat

zac1234(21.7.2014 16:25)#020623

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

MJJ(21.7.2014 16:53)#020624

Tak to by to mělo fungovat :-)citovat

zac1234(21.7.2014 17:26)#020626

Funguje bezvadně, moc díky. Mcitovat

Strana: 1 2 další »

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.