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

hesl Nybegynder

08. februar 2012 - 15:47 Der er 13 kommentarer og
1 løsning

Start og slut x koordinater til en kolonne

Hej,

Jeg søger en løsning på at flytte data fra 2 kolonner over i 1 dermed dobbel så lang kolonne.

Jeg har 2 kolonner med x-koordinater (start og slut koordinater) som jeg gerne vil have samlet i en kolonne, hvordan skrive rjeg sådan en macro?

Visual eks:

A1= x1-start B1= x1-slut C1= x1-start
A2= x2-start B2= x2-slut C2= x1-slut
A3= x3-start B3= x3-slut C3= x2-start
A4= x4-start B3= x4-slut C4= x2-slut
A5= x5-start B3= x5-slut C5= x3-start
A6= x6-start B3= x6-slut C6= x3-slut

Osv.

Håber det giver mening og på forhånd tak.
/h

Synes godt om

eget Nybegynder

08. februar 2012 - 16:46 #1

Kan du ikke benytte sammenkædning's formlen (=SAMMENKÆDNING)

Synes godt om

hesl Nybegynder

09. februar 2012 - 08:56 #2

Jeg ønsker ikke at flette indholdet. Kolonne C, skal faktisk indeholde kolonne A og B, skifte vis. Kan man det med sammenkædning funktionen?

C1 = A1
C2 = B1
C3 = A2
C4 = B2
C5 = A3
C6 = B3
C7 = A4
C8 = B4

Synes godt om

eget Nybegynder

09. februar 2012 - 11:03 #3

Jeg er ikke sikker på at jeg helt forstår hvad du mener. Har du mulighed for at udpensle det lidt mere?

Synes godt om

hesl Nybegynder

09. februar 2012 - 11:21 #4

Jeg kan prøve.

Jeg har kolonne A og B, og jeg ønsker at skrive en macro til hurtigt og nemt at lave kolonne C.

A1= x1-start B1= x1-slut => C1= A1
A2= x2-start B2= x2-slut => C2= B1
A3= x3-start B3= x3-slut => C3= A2
A4= x4-start B3= x4-slut => C4= B2
A5= x5-start B3= x5-slut => C5= A3
A6= x6-start B3= x6-slut => C6= B3

Giver det mening?

Synes godt om

eget Nybegynder

09. februar 2012 - 11:30 #5

Sådan at den hvis det er en ulig række tager makroen kolonne A's værdi og skriver i kolonne C og hvis det er en lige række så skal den skrive B's værdi?

Men der kommer jo dobbelt så mange rækker i din kolonne C?

Hvad er det hensigtsmæssige i at det står på den måde?

Synes godt om

eget Nybegynder

09. februar 2012 - 13:28 #6

Altså skal det være en makro?

Ellers kan du jo bare indsætte formlen:

=HVIS(REST(RÆKKE(A1);2)=1;A1;B1)

Og hvis det skal være en makro, vil du så bare at du kalder den via en knap og at den så bare indsætter formlen dernedaf?

Synes godt om

hesl Nybegynder

09. februar 2012 - 13:09 #7

Ja, det er præcis det jeg gerne vil.

Jeg vil have en kolonne som har rækkesummen svarende til A+B, men således at de krydses ind som beskrevet tidligere.

/hesl

Synes godt om

eget Nybegynder

09. februar 2012 - 13:33 #8

...den virker ikke, jeg havde lige set forkert... beklager!

Synes godt om

hesl Nybegynder

09. februar 2012 - 13:50 #9

Denne virker ikke, fordi når du trækker rykker du en række ned, og den skal stadig hente fra forrige række B1 i C2.

A1= x1-start B1= x1-slut => C1= A1
A2= x2-start B2= x2-slut => C2= B1
A3= x3-start B3= x3-slut => C3= A2
A4= x4-start B3= x4-slut => C4= B2
A5= x5-start B3= x5-slut => C5= A3
A6= x6-start B3= x6-slut => C6= B3

Giver det mening?

Synes godt om

eget Nybegynder

09. februar 2012 - 14:12 #10

Så skulle den være der.

Prøv at indsætte denne makro:

Sub Eksperten()

AntalRækker = Range("A1").CurrentRegion.Rows.Count

For i = 1 To AntalRækker

Cells(i, 3).Select
Rækkenr = ActiveCell.Row

Range(Cells(Rækkenr, 1), Cells(Rækkenr, 2)).Copy
Cells(2 * Rækkenr - 1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, transpose:=True

Next i

End Sub

Synes godt om

hesl Nybegynder

09. februar 2012 - 14:28 #11

Præcis, mange tak :)

Synes godt om

hesl Nybegynder

09. februar 2012 - 14:30 #12

Hov, hvorfor fik du ikke pointene???

Jeg er ny herinde.

Synes godt om

eget Nybegynder

09. februar 2012 - 18:05 #13

Hmm. Det var et godt spørgsmål.

Muligvis fordi jeg skrev det som kommentar og ikke som svar... prøv at give point til denne...

Synes godt om

hesl Nybegynder

10. februar 2012 - 09:45 #14

Hmm jeg prøver lige.

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
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

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