Cellen selecteren om de twee

[Albatros]

Hoi,

Van een tabel. wil ik een samenvatting maken.
De kopregel bevat T1, P1, T2, P2 enz
Nu wil ik via een makro naast elkaar krijgen: T1, T2 enz en P1, P2 enz.
met de volgende code lukt het me helaas niet.

Sub Macro11()

    Application.Goto Reference:="t"
    ActiveCell.Offset(0, 0).Select
    ActiveCell.Offset(0, 2).Select
    ActiveCell.Offset(0, 4).Select
    ActiveCell.Offset(0, 6).Select
    ActiveCell.Offset(0, 8).Select
    ActiveCell.Offset(0, 10).Select
    Selection.Copy
    Range("D2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Celverwijzing is geen optie, omdat de tabel in B10 kan beginnen, maar soms ook in C10, En, er kunnen bv bij T4 en P4 geen waarden staan.
Voor de duidelijkheid: zie bijlage

Wie kan me helpen?

Albatros

 

[Ginger]

Albatros, Ik snap een paar dingen niet.

Van een tabel. wil ik een samenvatting maken

Het voorbeeld dat je geeft, vind ik niet echt een samenvatting... Tenminste, ik neem aan dat de data vanaf regel 3 en verder je 'samenvatting' is? Volgens mij sorteer je alleen maar je kolommen in de volgorde van je header.

En, er kunnen bv bij T4 en P4 geen waarden staan

En wat moet er DAN gebeuren? Heb je dan in regel 11 bijvoorbeeld die T en P4 niet en in regel15 Ten P2 niet??? Of is het dan T en P4 over de gehele kolommen I en J naar onder afwezig?

Als het dus alleen maar om het hersorteren gaat, kan dat heel eenvoudig met Excel. Sorteer je tabel. Ga naar Data > Sorteren > [knop] Opties > [optie button] Sorteer van links naar rechts > OK > OK...
En ziedaar, T1 t/m T6 en P1 t/m P6 staan netjes op een rij....

Groet, Leo

 

[Albatros]

Ginger,

bedankt voor je reactie.
In de samenvatting wil ik hebben: de waarde aan het begin van het meetproces, de maximale meetwaarden, de meetwaarden op het einde, en de waarden als het koelen wordt ingezet bv. 12:16:00 uur.

En, er kunnen bv bij T4 en P4 geen waarden staan

:
T4 en P4 over de gehele kolommen I en J naar onder is afwezig: dan ook geen waarden in de samenvatting.

Sorteren is idd een optie, maar ik zocht het via een makro, zodat ik de tabel kan laten zoals hij is.

Albatros

 

[Albatros]

Niemand?

Albatros

 

[Wigi]

Daar zal VBA code voor geschreven moeten worden, als ik tijd heb doe ik het, en als iemand anders al tijd heeft: be my guest

 

[Albatros]

Hoi,

Misschien vraag ik teveel in één keer...
Maar als iem. mij kan helpen met het selecteren om de twee cellen, (zie code eerste bericht), dan ben ik al al op weg geholpen. :love:

Albatros

 

[Wigi]

Sub ElkeTweedeCelSelecteren()

    Dim r As Range
    Dim i As Integer
    
    Set r = Range("t")
    
    For i = 2 To 10 Step 2
        
        Set r = Application.Union(r, r.Offset(0, i))
    
    Next
    
    r.Select

End Sub

Wigi

 

[Albatros]

hoi,

Wigi, precies zoals ik het bedoelde!
Perfect!
Wederom bedankt! :thumb::thumb:

Albatros