MS Excel

Téma: Neměnná hodnota místo vzorce (VBA)

Zaslal/a SmallDevill 6.9.2016 10:58

Zdravím,
potřeboval bych pomoci s drobnou změnou v kódu.
Aktuálně vkládám data přes kód:
PosledniPlnyRadek = Range("'MFA'!A1").End(xlDown).Row
PrvniPrazdnyRadek = PosledniPlnyRadek + 1

Cells(PrvniPrazdnyRadek, 1).Select
ActiveCell.FormulaR1C1 = Date
Cells(PrvniPrazdnyRadek, 2).Select
ActiveCell.Formula = "='MFA-CELKEM'!I11"
Cells(PrvniPrazdnyRadek, 3).Select
ActiveCell.Formula = "='MFA-CELKEM'!I27"
Cells(PrvniPrazdnyRadek, 4).Select
ActiveCell.Formula = "='MFA-CELKEM'!I43"
Cells(PrvniPrazdnyRadek, 5).Select
ActiveCell.Formula = "='MFA-CELKEM'!R43"

Což samozřejmě vkládá z dotyčných odkazů vypočtenou hodnotu, která se narozdíl od data v první buňce neustále mění.

Dotaz tkví v tom, že bych potřeboval vložit hodnoty z jiného listu (MFA-CELKEM) v tomto případě, tak , aby byly neměnné.

Soubor případně v příloze.

Předem díky

Příloha: zip

32670_produktivita-eurofab.zip (255kB, staženo 25x)

Zaslat odpověď >

Pavlus(6.9.2016 11:38)#032671

V tom případě tam nevkládej přes VBA vzorec (Formula), ale vlož do buňky přímo hodnotu (Value). Třeba nějak takto:
ActiveCell.Value = Sheets("MFA-CELKEM").Range("I11").ValueP.citovat

SmallDevill(6.9.2016 12:53)#032675

Dík moc, už jsem asi přepracovanej. ;)citovat

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.