CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

supertekst Ekspert

20. januar 2013 - 17:32 #1

Via en makro..

Synes godt om

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

Synes godt om

encigar Nybegynder

20. januar 2013 - 19:58 #3

Ok. Kan man ikke gøre brug af en "betinget formatering" eller sådan noget?

Joshva

Synes godt om

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

Synes godt om

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.

Synes godt om

store-morten Ekspert

20. januar 2013 - 20:26 #6

Husk at "Teste" i en kopi....

Synes godt om

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.

Synes godt om

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

Synes godt om

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

Synes godt om

store-morten Ekspert

20. januar 2013 - 22:03 #10

http://gupl.dk/690454/

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Formel med tre kriterier Af Pletz123 i Excel	1	I dag 10:26	I dag 10:38
Diagram - søjle så den viser et rul på 12 måneder Af bhh i Excel	4	I går 13:57	I dag 08:11
"usynligt tegn" i celle Af Frederik i Excel	6	I går 11:41	I går 12:54
Kombinér to celler med kode Af TheLibrarian i Excel	2	22/05/202413:55	I går 08:05
Flytning af data Af Dam i Excel	5	22/05/202413:14	22/05/202415:00

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS