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: 87
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: 841
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: 87
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: 841
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: 87
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: 841
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: 87
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: 841
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
  • Excel VBA: Vyhledání položky dle ID a změna hodnoty ve vedlejší buňce
    od Goo » 23 led 2018 18:32 » v Kancelářské balíky
    3
    543
    od Goo
    27 led 2018 18:32
  • Měření teploty - vysoké hodnoty
    od SkYpiQ » 09 led 2018 15:59 » v Problémy s hardwarem
    5
    446
    od MrQvik
    09 led 2018 16:39
  • Excel_vyhledávání největší a nejmenší hodnoty
    od regpp » 21 úno 2018 09:55 » v Kancelářské balíky
    17
    1197
    od MePExG
    01 bře 2018 20:12
  • EXCEL - Přidělení bodů podle velikosti hodnoty
    od Petrfoo » 15 bře 2018 22:18 » v Kancelářské balíky
    0
    429
    od Petrfoo
    15 bře 2018 22:18
  • Sečetl by mi prosím někdo hodnoty v Excelu?
    od Peťa » 31 pro 2017 10:49 » v Kancelářské balíky
    3
    326
    od MePExG
    31 pro 2017 11:06

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

Kdo je online

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