CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede encigar Nybegynder
20. januar 2013 - 17:06 Der er 13 kommentarer og
1 løsning

Hvordan flytte data automatisk?

Hejsa

Jeg har et regneark som består af 3 ark. Det første ark består af en logfil hvor vi kan skrive nogle opgaver ind. Det sidste punkt er der en liste hvor man kan vælge nogle forud bestemte ord. Bla opgave løst.

Hvordan laver man det sådan at hvis ordet "løst" bliver valgt under Række F så flytter excel hele rækken over i ark 2 og væk fra ark 1 så der kun står de opgaver som ikke er løst

Joshva
Avatar billede supertekst Ekspert
20. januar 2013 - 17:32 #1
Via en makro..
Avatar billede store-morten Ekspert
20. januar 2013 - 20:04 #2
Måske denne Makro.

Kopier koden her under.
I Excel
Tryk alt+F11
Dobbelt klik på det Ark makroen skal virke på.
Tryk ctrl+v og luk på det røde kryds.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'For at undgå at koden looper
On Error GoTo Slut

    If Target.Column = 6 And Target.Text = "Løst" Then
    Target.EntireRow.Cut
    Worksheets(2).Select
    Worksheets(2).Range("F65536").End(xlUp).Offset(1, -5).Select
    ActiveSheet.Paste
    Worksheets(2).Range("F65536").End(xlUp).Offset(0, -5).Select
    Worksheets(1).Select
        If ActiveCell.Value = "" Then
        Selection.EntireRow.Delete Shift:=xlUp
            Else
            Selection.Offset(-1, 0).EntireRow.Delete Shift:=xlUp
            Selection.Offset(-1, 0).Select
        End If
    End If
   
Slut:
Application.ScreenUpdating = True
Application.EnableEvents = True 'For at undgå at koden looper
End Sub
Avatar billede encigar Nybegynder
20. januar 2013 - 19:58 #3
Ok. Kan man ikke gøre brug af en "betinget formatering" eller sådan noget?

Joshva
Avatar billede encigar Nybegynder
20. januar 2013 - 20:15 #4
Hejsa

Det virker ikke. Jeg har prøvet på alle 3 sider. Der bliver ikke flyttet noget

Joshva
Avatar billede store-morten Ekspert
20. januar 2013 - 20:20 #5
Virker ved at en celle på Ark1 i kolonne F får teksten "Løst" enten som indtastning eller valg fra "Liste" valg.

Bemærk "Løst" med stort begyndelse bogtav.
Avatar billede store-morten Ekspert
20. januar 2013 - 20:26 #6
Husk at "Teste" i en kopi....
Avatar billede store-morten Ekspert
20. januar 2013 - 20:47 #7
I Excel
Tryk alt+F11
Dobbelt klik på det Ark makroen skal virke på.
Tryk ctrl+v og luk på det røde kryds.

Rettelse:

I Excel
Tryk alt+F11
Dobbelt klik på det Ark1. (Virker kun på Ark1)
Tryk ctrl+v og luk på det røde kryds.
Avatar billede encigar Nybegynder
20. januar 2013 - 20:48 #8
Hejsa

Virker ikke. Jeg har kopieret det ind på ark 3 men intet sker. Jeg bruger office 2007 hvis det betyder noget
Joshva
Avatar billede store-morten Ekspert
20. januar 2013 - 21:57 #9
"Hvordan laver man det sådan at hvis ordet "løst" bliver valgt under Række F så flytter excel hele rækken over i ark 2 og væk fra ark 1 så der kun står de opgaver som ikke er løst"


På Ark3
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'For at undgå at koden looper
On Error GoTo Slut

    If Target.Column = 6 And Target.Text = "Løst" Then
    Target.EntireRow.Cut
    Worksheets(2).Select
    Worksheets(2).Range("F65536").End(xlUp).Offset(1, -5).Select
    ActiveSheet.Paste
    Worksheets(2).Range("F65536").End(xlUp).Offset(0, -5).Select
    Worksheets(3).Select
        If ActiveCell.Value = "" Then
        Selection.EntireRow.Delete Shift:=xlUp
            Else
            Selection.Offset(-1, 0).EntireRow.Delete Shift:=xlUp
            Selection.Offset(-1, 0).Select
        End If
    End If
   
Slut:
Application.ScreenUpdating = True
Application.EnableEvents = True 'For at undgå at koden looper
End Sub
Avatar billede store-morten Ekspert
20. januar 2013 - 22:03 #10
http://gupl.dk/690454/
Avatar billede encigar Nybegynder
20. januar 2013 - 22:26 #11
Sådan som du har lavet det skal det virke. Der skal dog være en mulighed mere. Hvis man i stedet for skriver/vælger arbejdsweekend skal den kopiere det over i ark 2 og skriver/vælger man løst skal den kopiere det over i ark 3.

Når det er sagt så virker det stadig ikke ved mig selvom jeg kopiere det hele over.

Når jeg åbner editoren så kan jeg se at du har 2 VBAProjekt med hver x antal ark. Jeg har kun eet sæt.

Kan det have noget med det at gøre? Er der evt noget jeg skal vinge af i excel? Jeg har sagt ja til at den må køre makroer

Joshva
Avatar billede store-morten Ekspert
20. januar 2013 - 22:44 #12
Kopier koden her under.
I Excel:
Højre-klik på Ark1, vælg "Vis programkode"
Tryk ctrl+v og luk på det røde kryds.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'For at undgå at koden looper
On Error GoTo Slut
homeArk = ActiveSheet.Name

    If Target.Column = 6 And Target.Text = "Arbejdsweekend" Then
    Target.EntireRow.Cut
    Worksheets(2).Select
    Worksheets(2).Range("F65536").End(xlUp).Offset(1, -5).Select
    ActiveSheet.Paste
    Worksheets(2).Range("F65536").End(xlUp).Offset(0, -5).Select
    Worksheets(homeArk).Select
        If ActiveCell.Value = "" Then
        Selection.EntireRow.Delete Shift:=xlUp
            Else
            Selection.Offset(-1, 0).EntireRow.Delete Shift:=xlUp
            Selection.Offset(-1, 0).Select
        End If
    End If
   
    If Target.Column = 6 And Target.Text = "Løst" Then
    Target.EntireRow.Cut
    Worksheets(3).Select
    Worksheets(3).Range("F65536").End(xlUp).Offset(1, -5).Select
    ActiveSheet.Paste
    Worksheets(3).Range("F65536").End(xlUp).Offset(0, -5).Select
    Worksheets(homeArk).Select
        If ActiveCell.Value = "" Then
        Selection.EntireRow.Delete Shift:=xlUp
            Else
            Selection.Offset(-1, 0).EntireRow.Delete Shift:=xlUp
            Selection.Offset(-1, 0).Select
        End If
    End If
     
Slut:
Application.ScreenUpdating = True
Application.EnableEvents = True 'For at undgå at koden looper
End Sub
Avatar billede encigar Nybegynder
20. januar 2013 - 22:59 #13
Super så virker det.

Jeg fandt ud af hvorfor det ikke virkede ved mig. Jeg havde taget de 3 første linjer og flettede dem. Da jeg fjernede fletning virkede det som det skulle.

Hvordan lukker jeg sagen og giver dig point?

Joshva
Avatar billede store-morten Ekspert
20. januar 2013 - 23:04 #14
Ja, flettede celler, er noget skidt..  :-)


Når du har fået et 'Svar' på dit spørgsmål, du kan bruge,
beder du den der har hjulpet dig, om at lægge et:
Svar (til løsninger og pointgivning)

Her er en lille film om:
Hvordan man accepterer svar på Eksperten.dk
http://www.youtube.com/watch?v=s26DGiuvXBo
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel 1 22/11/202416:49 22/11/202421:00
Ændre nuller til ovenstående tekst Af boro23 i Excel 4 20/11/202410:44 20/11/202412:08
HVIS med datoer Af HHA i Excel 6 20/11/202408:31 20/11/202412:51
Numerisk liste Af AND i Excel 8 19/11/202414:05 19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel 3 19/11/202409:39 19/11/202411:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:30 Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56 Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10 Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58 vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35 Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Læs mere »
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Sådan får du overblik og beskytter dine cloudapplikationer
Cyberstatus 2024: Her er truslerne – og her forbereder virksomhederne sig
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »