Avatar billede timtoftgaard Praktikant
20. november 2005 - 13:36 Der er 11 kommentarer og
1 løsning

bearbejdning af data

Jeg måler og får derved en datarække i en kolonne, hvor data står i række 2-70. De første data (4-6 målinger)ligger meget tæt og derefter stiger data meget.
Jeg vil gerne have, at jeg får flyttet data til en ny kolonne, så den første værdi er den, som er den sidste af de værdier som ligger tæt og den næste er den værdi, hvor der sker en større stigning.

eks:
21,28
21,22
21,22
21,20 den værdi skal være den første i den ny kolonne
22,04
23,86

eks 2:
20,82
20,76
20,7
20,72 første værdi i ny række
22,4
24,26

eks 3
22,26
22,12
22,02
22,18 første værdi i ny række
23,62
24,92

Nogen gode forslag ?

Mvh
Tim Toftgaard
Avatar billede bufferzone Praktikant
20. november 2005 - 14:32 #1
Det bliver ikke let.

Lav en makro der sorterer tingene ud fra nogle kriteriet om hvor tæt tallene skal ligge på hinanden for at være i samme kolonne m.m.. Det kunne evt være en opgave du kunne få hjælp til i VB kategorien, jeg ved der er gode folk der.
Avatar billede timtoftgaard Praktikant
20. november 2005 - 14:38 #2
Jeg har nu oprette samme spørgsmål i VB (http://exp.dk/spm/665951) med 60 point
Avatar billede kabbak Professor
20. november 2005 - 21:32 #3
Sub Flytdata()
Dim DK As String, TilKo As String, I As Long, RW As Long
DK = "A" ' data i A kolonnen
TilKo = "M" ' data sættes ind i M kolonnen
RW = Range(DK & "65536").End(xlUp).Row
For I = 1 To RW
If Cells(I, DK).Offset(1, 0) - Cells(I, DK) >= 0.5 Then ' hvis forskellen er større end 0,5 begynder flytningen
Range(Cells(I, DK), Cells(RW, DK)).Cut Cells(1, TilKo)
Exit For
End If
Next
End Sub
Avatar billede martin_moth Mester
21. november 2005 - 16:59 #4
Ikke samme spørgsmål i flere kategorier...
Avatar billede timtoftgaard Praktikant
21. november 2005 - 18:43 #5
spørgsmålet lukket det andet sted - sorry
Tim
Avatar billede timtoftgaard Praktikant
21. november 2005 - 18:52 #6
kabbak - det virker som sædvanligt, når du hjælper.
Kan sende et svar, så jeg kan give dig point.
I den macro som du har hjulpet mig med mange gange, har jeg igen behov for hjælp - se evt. spørgsmål http://www.eksperten.dk/spm/665931
Håber du har lyst og ved behov kan jeg klippe dit gamle visual basic program ind !!
Avatar billede kabbak Professor
21. november 2005 - 19:01 #7
et svar ;-))
Avatar billede timtoftgaard Praktikant
21. november 2005 - 19:02 #8
Kabbak :
Kan du i stedet få den til kun at kopiere de relevante data og ikke fjerne dem fra række A ?
Avatar billede kabbak Professor
21. november 2005 - 19:03 #9
Sub Flytdata()
Dim DK As String, TilKo As String, I As Long, RW As Long
DK = "A" ' data i A kolonnen
TilKo = "M" ' data sættes ind i M kolonnen
RW = Range(DK & "65536").End(xlUp).Row
For I = 1 To RW
If Cells(I, DK).Offset(1, 0) - Cells(I, DK) >= 0.5 Then ' hvis forskellen er større end 0,5 begynder flytningen
Range(Cells(I, DK), Cells(RW, DK)).Copy Cells(1, TilKo)
Exit For
End If
Next
End Sub
Avatar billede kabbak Professor
21. november 2005 - 19:06 #10
jeg har glemt hvad det var http://www.eksperten.dk/spm/665931 drejede sig om, var det Picho
Avatar billede timtoftgaard Praktikant
21. november 2005 - 19:08 #11
Ja
se spørgsmålet, hvor jeg nu sætter din gamle macro ind
Avatar billede timtoftgaard Praktikant
21. november 2005 - 19:15 #12
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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