Notifikationer

Markér alle som læst Log ud

saxtus Nybegynder

22. november 2004 - 13:13 Der er 3 kommentarer og
1 løsning

flytning af celler i et regneark via en makro

Hej eksperter

Jeg sidder og bisker med et problem i excel, hvor jeg skal have flyttet nogle værdier til en anden celle i et nyt regneark

Opstillingen jeg har ser sådan her ud

Hans Jensen
Byvej 12
4200 Slagelse

Per Olsen
Svinget 4
4220 Korsør

mit nye output skal se sådan her ud
A B C
1 Hans Jensen Byvej 12 4200 Slagelse
2 Per Olsen Svinget 4 4220 Korsør

Ved at det skal laves i en eller anden form for lykke, men ved ikke lige hvordan det skal skrives

Synes godt om

kabbak Professor

22. november 2004 - 13:29 #1

Hvis du har dem i A kolonnen og kopierer til ark2

Sub Makro1()
sidste = Range("A65536").End(xlUp).Row
For I = 1 To sidste Step 4
Range(Cells(I, 1), Cells(I + 3, 1)).Select
Selection.Copy

Worksheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Application.CutCopyMode = False
Next
End Sub

Synes godt om

kabbak Professor

22. november 2004 - 13:31 #2

Hvis du har dem i A kolonnen og vil kopierer dem til ark2

skulle det være.

NB jeg regner med at der altid er brugt 4 celler til adressen, incl. den tomme

Synes godt om

saxtus Nybegynder

22. november 2004 - 13:49 #3

nå lavede det åbenbart på en anden måde, men fik det til at virke

Sub konvertering()
Dim i1, i2, i3, i4, t As Integer
i1 = 1
i2 = 2
i3 = 3
i4 = 4
For i = 1 To 3000
t = i + 1
Sheets("ark").Range("a" & t) = Sheets("Sheet1").Range("a" & i1)
Sheets("ark").Range("b" & t) = Sheets("Sheet1").Range("a" & i2)
Sheets("ark").Range("c" & t) = Sheets("Sheet1").Range("a" & i3)
Sheets("ark").Range("d" & t) = Sheets("Sheet1").Range("a" & i4)
i1 = i1 + 4
i2 = i2 + 4
i3 = i3 + 4
i4 = i4 + 4
Next

End Sub

Synes godt om

saxtus Nybegynder

03. januar 2005 - 11:09 #4

nå fandt selv ud af det, tak for hjælpen.

Lukker det nu

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

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