Just nu i M3-nätverket
Gå till innehåll

Sök

Visar resultat för taggar 'förenkla makro'.

  • Sök efter taggar

    Skriv taggar separerade med kommatecken.
  • Sök efter författare

Innehållstyp


Forum

  • Datorhårdvara
    • Bildskärmar
    • Bärbara datorer
    • Grafikkort
    • Hårddiskar & Lagringsmedia
    • Ljudkort
    • Mac-hårdvara
    • Processorer, moderkort & minnen
    • Retro - datornostalgi
    • Skrivare
    • TV-kort
    • Hårdvara – övrigt
    • Arkiverat
  • Film, foto & bilder
    • Bildredigering
    • Film- och Videoredigering
    • Kameror
    • Mediaspelare – Media Player m fl
  • Internet & nätverk
    • Chattprogram - ICQ, MSN m fl
    • Driftstörningar hos operatörer, internet etc
    • Epostprogram
    • Internetuppkoppling
    • IP-telefoni
    • Nätverket - hårdvara
    • Nätverket - programvara
    • Surftips
    • Webbläsare
    • Internet – övrigt
  • Ljud och Musik
    • Ljudformat (mp3, aac, ogg m fl)
    • Musikskapande på datorn
    • Ljud & Musik – övrigt
  • Operativsystem
    • Windows 95/98/ME/NT/2000
    • Windows XP
    • Windows Vista
    • Windows 7
    • Windows 8 & 8.1
    • Windows 10
    • Windows Server
    • Linux & Unix
    • Mac OS X & Classic
    • Operativsystem - övriga
    • Arkiverade Windows-trådar
  • Program
    • CD/DVD-bränning
    • Kalkylprogram - Excel m fl
    • Mac-program
    • Ordbehandling - Word m fl
    • Presentation – PowerPoint m fl
    • Print - om trycksaker
    • Program - övriga
  • Spel
    • Datorspel
    • Konsoler & konsolspel
  • Säkerhet
    • Brandväggar
    • Skräppost
    • Virus, skadliga program & botemedel
    • Säkerhet - övrigt
  • Hemelektronik
    • DVD & Blu-ray
    • Hemmabio/HTPC
    • El & övrig hemelektronik
  • Mobilt
    • Surfplattor
    • Mobiltelefoner
    • Bärbart Ljud/Mp3-spelare
    • GPS
    • Handdatorer
    • Mobilt – övrigt
  • Tips inför köpet
    • Köpa/Bygga dator
    • Köpa datortillbehör och komponenter
    • Köpa kamera
    • Köpa gps
    • Köpa internetabonnemang
    • Köpa IP-telefoni och fast telefoni
    • Köpa mobila enheter
    • Köpa nätverksutrustning
    • Köpa/Bestämma program
    • Köpa tv, hemmabio och mediacenter
  • System- och webbutveckling
    • Databaser
    • Systemutveckling
    • Webbutveckling
  • Eforum
    • Diskutera Eforum
    • Buggrapporter och önskemål om Eforum
    • PC för Alla
    • Arkiverat: Smart-forumet
  • Övrigt

Hitta resultat i...

Hitta resultat som...


Datum skapat

  • Start

    Slut


Senast uppdaterad

  • Start

    Slut


Filtrera efter antalet...

Gick med

  • Start

    Slut


Grupp


Facebook


Linkedin


Hemsida


Twitter


MSN


ICQ


Yahoo


Jabber


Skype


AIM


Ort


Intressen


Min dator


IT-kunskaper

Hittade 1 resultat

  1. Hej! Jag har skrivit ett makro som tar data från ett "uträkningsdata blad" flyttar och tar bort värdena i en kolumn där och lägger dem i ett "beräknings blad" och skulle vilja att de upprepades tills kolumnen i bladet "uträkningsdata" är tom på data. då vill jag att upprepningen avslutas. sen undrar jag även om de går att städa något i makrot. jag är självlärd på detta och vill gärna lära mig mer! Sub område13() ' ' område13 Makro ' ' Range("C1").Select Sheets("13").Select Columns("E:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("E1").Select ActiveCell.FormulaR1C1 = "=Formler!R[1]C[-3]" Range("E89").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E90").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E94").Select ActiveCell.FormulaR1C1 = "=Formler!R[-83]C[6]" Range("E96").Select ActiveCell.FormulaR1C1 = "=Formler!R[-85]C[8]" Range("E98").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[10]" Range("E101").Select ActiveCell.FormulaR1C1 = "=Formler!R[-78]C[3]" Range("E110").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E111").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E112").Select ActiveCell.FormulaR1C1 = "=Formler!R[-92]C[3]" Range("E115").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E116").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E117").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E120").Select ActiveCell.FormulaR1C1 = "=Formler!R[-110]C[10]" Range("E127").Select ActiveCell.FormulaR1C1 = "=Formler!R[-119]C[3]" Range("E129").Select ActiveCell.FormulaR1C1 = "=Formler!R[-117]C[6]" Range("E131").Select ActiveCell.FormulaR1C1 = "=Formler!R[-123]C[8]" Range("E134").Select ActiveCell.FormulaR1C1 = "=Formler!R[-126]C[10]" Range("E138").Select ActiveCell.FormulaR1C1 = "=Formler!R[-125]C[3]" Range("E141").Select ActiveCell.FormulaR1C1 = "=Formler!R[-128]C[6]" Range("E145").Select ActiveCell.FormulaR1C1 = "=Formler!R[-132]C[8]" Range("E148").Select ActiveCell.FormulaR1C1 = "=Formler!R[-135]C[10]" Range("E151").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E152").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E155").Select ActiveCell.FormulaR1C1 = "=Formler!R[-141]C[6]" Range("E163").Select ActiveCell.FormulaR1C1 = "=Formler!R[-136]C[3]" Range("E167").Select ActiveCell.FormulaR1C1 = "=Formler!R[-151]C[3]" Range("E170").Select ActiveCell.FormulaR1C1 = "=Formler!R[-153]C[3]" Range("E172").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E175").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E176").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E189").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E190").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E191").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E192").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E193").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E194").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E195").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E196").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E199").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E200").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E201").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E203").Select ActiveCell.FormulaR1C1 = "=Formler!R[-175]C[6]" Range("E206").Select ActiveCell.FormulaR1C1 = "=Formler!R[-187]C[8]" Range("E227").Select ActiveCell.FormulaR1C1 = "=Formler!R[-182]C[3]" Range("E229").Select ActiveCell.FormulaR1C1 = "=Formler!R[-183]C[3]" Range("E235").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E236").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E237").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E238").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E239").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E241").Select ActiveCell.FormulaR1C1 = "=Formler!R[-188]C[3]" Range("E249").Select ActiveCell.FormulaR1C1 = "=Formler!R[-232]C[10]" Range("E252").Select ActiveCell.FormulaR1C1 = "=Formler!R[-234]C[10]" Range("E255").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E256").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E257").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E258").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E264").Select ActiveCell.FormulaR1C1 = "=Formler!R[-247]C[10]" Columns("e:e").Select Selection.Copy Columns("f:f").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("e:e").Select Application.CutCopyMode = False Selection.ClearContents Columns("C:C").Select Selection.Copy Columns("E:E").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("C88").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C88").Select Selection.AutoFill Destination:=Range("C88:C177"), Type:=xlFillDefault Range("C88:C177").Select Range("C187").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C187").Select Selection.AutoFill Destination:=Range("C187:C299"), Type:=xlFillDefault Range("C187:C299").Select Range("C1").Select Sheets("Beräkning").Select Range("C1").Select Sheets("Uträkningsdata").Select Range("D1:D49").Select Selection.Copy Sheets("Beräkning").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Uträkningsdata").Select Columns("C:C").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Sheets("Beräkning").Select Range("C1").Select End Sub
×
×
  • Skapa nytt...