Hodnoty místo vzorců VBA

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

VOM
Level 1
Level 1
Příspěvky: 89
Registrován: srpen 10
Pohlaví: Muž

Hodnoty místo vzorců VBA

Příspěvekod VOM » 09 říj 2018 12:30

Pěkně zdravím
Používám níže uvedené makro.
Protože sešit se stává pomalým, pravděpodobně kvůli množství vzorců, potřebuji makro upravit tak, aby se nakonec makra vzorce nahradili hodnotami.

Sub Makro11()
' používá se Workbook_BeforeSave
' vloží vzorce do sloupců N,O,P, které slouží k filtrování

Dim LastRow As Integer

Sheets("specification").Select

Application.ScreenUpdating = False
Range("c10000").Select
Selection.End(xlUp).Select
Selection.Activate
LastRow = ActiveCell.Row + 10


Debug.Print LastRow


Range("N9").Select
ActiveCell.FormulaR1C1 = "=IF(RC[12]=1,MID(RC[-11],1,14),R[-1]C)"

Range("O9").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[11]=1,RC[-13]>0),""Whole Mach."",IF(AND(RC[11]<>1,RC[-13]>0),RC[-12],""-""))"

Range("P9").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[10]=1,""Whole mach."",IF(RC[10]=2,RC[-13],R[-1]C))"



Range("N9:P9").Select
Selection.Copy
Range("N10 :" & "P" & LastRow).Select
ActiveSheet.Paste


Range(" A4").Select

Application.ScreenUpdating = True
End Sub



Prosím o pomoc.
děkuji
Milan



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 888
Registrován: červenec 11
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod xlnc » 09 říj 2018 12:56

Chcete to řešit? Pak to ukažte, řekněte smysl. Kód není úplně růžový, nejspíš bych ho přepsal. Ale nejspíš to nebude důvod pomalosti.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

VOM
Level 1
Level 1
Příspěvky: 89
Registrován: srpen 10
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod VOM » 09 říj 2018 13:34

Informace vložené do tří sloupců používám k filtrování databáze (náklady a specifikace), která má cca 5000 řádků. V databázi je cca 40000 vzorců. Myslím, že když jich 15000 odstraním, že to bude rychlejší.
díky
Milan

xlnc
Level 3.5
Level 3.5
Příspěvky: 888
Registrován: červenec 11
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod xlnc » 09 říj 2018 13:46

Ano, máte pravdu, je to ptákovina. Ale záplatovat výše uvedený zmatený kód naslepo nechci. Buď to chcete řešit a posunete to, nebo ne.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

VOM
Level 1
Level 1
Příspěvky: 89
Registrován: srpen 10
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod VOM » 09 říj 2018 14:26

Chtěl jsem dát na konec makra níže uvedené, ale havaruje to.
Kde je v tomto chyba prosím?
Hezký den
Milan

' Range("N9 :" & "P" & LastRow).Copy
' Range("N9").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False

xlnc
Level 3.5
Level 3.5
Příspěvky: 888
Registrován: červenec 11
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod xlnc » 09 říj 2018 15:30

Fakt to tady nebudu dávat dohromady naslepo.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

VOM
Level 1
Level 1
Příspěvky: 89
Registrován: srpen 10
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod VOM » 12 říj 2018 15:21

Správně má být:

Range("N9 :" & "P" & LastRow).Copy
Selection.Copy
Range("N9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

M.

xlnc
Level 3.5
Level 3.5
Příspěvky: 888
Registrován: červenec 11
Pohlaví: Muž

Re: Hodnoty místo vzorců VBA

Příspěvekod xlnc » 12 říj 2018 16:22

Zadání sem dáváte tak, že vyhazujete z ohniště ohořelé klacky. Kdybyste chtěl pomoct, vypadalo by to jinak.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • automatické doplnění hodnoty buňky - vba
    od Disk4Mat » 04 čer 2019 10:16 » v Kancelářské balíky
    2
    271
    od Disk4Mat
    04 čer 2019 15:07
  • Doplneni hodnoty do bunky
    od luko02420 » 02 úno 2019 16:57 » v Kancelářské balíky
    4
    666
    od luko02420
    03 úno 2019 16:49
  • Automatická úprava hodnoty excel
    od zouhin » 29 bře 2019 12:54 » v Kancelářské balíky
    4
    660
    od zouhin
    31 bře 2019 20:18
  • EXCEL: Priradenie hodnoty podla prveho stlpca (nie vlookup)
    od marek26 » 20 bře 2019 16:01 » v Kancelářské balíky
    4
    625
    od marek26
    20 bře 2019 20:53
  • Excel-práce s prázdnou buňkou (odkaz bez vstupní hodnoty)
    od MK_Vs » 30 srp 2018 14:38 » v Kancelářské balíky
    6
    631
    od MK_Vs
    31 srp 2018 06:10

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti