Albatros
Gebruiker
- Lid geworden
- 4 nov 2001
- Berichten
- 386
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.
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
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.
Code:
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
Bijlagen
Laatst bewerkt: