Notifikationer

Markér alle som læst Log ud

krigs-offer Nybegynder

15. december 2009 - 22:36 Der er 14 kommentarer og
1 løsning

Indsætte nye rækker i bestemt interval!

Hej.

Jeg har et excel regneark, hvor jeg har samlet og lavet en masse internetlink der skal bruges til noget hjemmeside.

Jeg har nu 1 kolonne med 456 rækker netlinks.

Da jeg skal opbygge det i en tabel, skal jeg have tilføjet følgende i kolonnen: <tr> & </tr>, så det endelig output ser således ud:

<tr>
link 1
link 2
link 3
link 4
</tr>
<tr>
link 5
link 6
link 7
link 8
</tr>
osv...

Hvordan kan jeg automatisere processen, så jeg ikke skal sidde og indsætte linjer efter hvert 4. link, når det alligevel er det samme som skal skrives?
Er desværre ikke dygtig nok til at selv at programmere en makro (endnu) - så håber i forstår problem/opgaven og kan hjælpe mig.

På forhånd tak :)

Synes godt om

store-morten Ekspert

15. december 2009 - 23:04 #1

Skriv <tr> i celle A1
Skriv <tr> i celle A6
Marker A1 til A10 og fyld ud ned af.
Udfyld så med netlinks bagefter.

morten

Synes godt om

store-morten Ekspert

15. december 2009 - 23:05 #2

Prøver lig igen

Synes godt om

store-morten Ekspert

15. december 2009 - 23:07 #3

Skriv <tr> i celle A1
Skriv </tr> i celle A6
Skriv <tr> i celle A7
Marker A1 til A12 og fyld ud ned af.
Udfyld så med netlinks bagefter.

Morten

Synes godt om

krigs-offer Nybegynder

15. december 2009 - 23:08 #4

Ja det var en metode. Men det er bare en lang og kedelig proces, derfor håbede jeg på, at der en eller anden smart funktion?

Synes godt om

store-morten Ekspert

15. december 2009 - 23:10 #5

Det var så:
Marker A1 til A11 og fyld ud ned af.

Synes godt om

store-morten Ekspert

15. december 2009 - 23:13 #6

Hvis du har linkene i en anden kollonne med mellem rum i hver 4. række, så er det bare at smelte dem sammen.

Synes godt om

store-morten Ekspert

15. december 2009 - 23:18 #7

I Kollonne A
Skriv <tr> i celle A1
=B2 i celle A2
=B3 i celle A3
=B4 i celle A4
=B5 i celle A5
Skriv </tr> i celle A6
Skriv <tr> i celle A7
Marker A1 til A12 og fyld ud ned af.
Udfyld så med netlinks bagefter.
I Kollonne B
link 1 i celle B2
link 2 i celle B3
link 3 i celle B4
link 4 i celle B5

link 5 i celle B7 osv.

Synes godt om

krigs-offer Nybegynder

15. december 2009 - 23:36 #8

Kan godt se pointen i det, og har selv lavet det sådan før. Men jeg kommer jo til at skulle lave "manuelt" arbejde igen, når det skal udfyldes sådan:

I Kollonne B
link 1 i celle B2
link 2 i celle B3
link 3 i celle B4
link 4 i celle B5

link 5 i celle B7 osv.

Så skal jeg sidde og copy/paste det hele ind og igen lave rækkeskift selv?

Synes godt om

store-morten Ekspert

16. december 2009 - 00:10 #9

link 1 i celle B1
link 2 i celle B2
link 3 i celle B3
link 4 i celle B4
link 5 i celle B5
link 6 i celle B6

Sub Indsæt()
Dim i As Long
For i = 5 To 500 Step 5
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Next i
Range("A1").Select
End Sub

efter

link 1 i celle B1
link 2 i celle B2
link 3 i celle B3
link 4 i celle B4

link 5 i celle B5
link 6 i celle B6

Synes godt om

krigs-offer Nybegynder

16. december 2009 - 00:28 #10

Det passer næsten.
Den laver bare fejl, da jeg skulle have det således:

<tr>
link 1
link 2
link 3
link 4
</tr>
<tr>
link 5
.......

Med den makro, er der kun lavet plads til <tr> og dermed ikke </tr>. Så der skal vel bare indsættes en ekstra rækkes mellemrum? Kan du følge mig? :)

Synes godt om

store-morten Ekspert

16. december 2009 - 00:30 #11

Lidt nærmere :-)
Dim i As Long
Application.ScreenUpdating = False
For i = 5 To 500 Step 6
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
'</tr>
Selection.Insert Shift:=xlDown
'<tr>
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Synes godt om

krigs-offer Nybegynder

16. december 2009 - 00:36 #12

Haha - genialt! Det er sku godt arbejde. Smid et svar - er meget glad for hjælpen!

Så lærte man også en noget i dag :)

Synes godt om

store-morten Ekspert

16. december 2009 - 01:20 #13

Jeg kan ikke få skrevet i de to tomme rækker!!!
Med mindre at fylde helt ud til højre :-)
</tr></tr></tr></tr></tr></tr> -->
<tr><tr><tr><tr><tr><tr><tr> -->

Måske der er nogen der er klogere ;-)

Sub Indsæt()
Dim i As Long
Application.ScreenUpdating = False
For i = 5 To 500 Step 6
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Value = "</tr>"
Selection.Insert Shift:=xlDown
Selection.Value = "<tr>"
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Synes godt om

store-morten Ekspert

16. december 2009 - 17:16 #14

Så var den der :-)

Sub Indsæt()
Dim i As Long
Application.ScreenUpdating = False
For i = 5 To 500 Step 6
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Cells(i, 1) = "</tr>"
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Cells(i, 1) = "<tr>"
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Synes godt om

store-morten Ekspert

16. december 2009 - 21:44 #15

Og så opdagede jeg lige jeg havde bytte om på </tr> og <tr> :-(
Til sidst flytter listen ned og tilføjer <tr> i A1

Sub Indsæt()
Dim i As Long
Application.ScreenUpdating = False
For i = 5 To 500 Step 6
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Cells(i, 1) = "<tr>"
Rows(i).EntireRow.Select
Selection.Insert Shift:=xlDown
Cells(i, 1) = "</tr>"
Next i
Range("A1:A502").Select
Selection.Cut Destination:=Range("A2:A503")
Range("A1").Select
Range("A1").Value = "<tr>"
Application.ScreenUpdating = True
End Sub

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

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	I går 14:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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