transponeren

[wilmaart]

hoe kan ik de waardes tranponeren van de ene tabblad (weekscore)naar een ander tabblad.
maar de waardes moeten wel mee veranderen.

 

[Haaren101]

Wat bedoel je precies met transponeren?
Moet dat meteen gebeuren? Na een druk op de knop?
Of is op het nieuw tabblad =Blad1!A1 tikken voldoende?
Of bedoel je transponeren van het "plakken speciaal" menu?

Ron

 

[wilmaart]

ik wil de waarde uit een kolom naar een rij in een ander tabblad,
maar de waarde moet wel veranderen als ik hem in de kolom ook verander.

 

[robdgr]

Op het moment dat je kiest voor transponeren kun je geen koppeling meer plakken, dus dat gaat niet. Ik ben bang dat het handwerk wordt: =$A$5 etc.

 

[Wigi]

ASAP utilities heeft een optie om dit voor mekaar te krijgen, als ik de vraag goed begrepen heb. Zie www.asap-utilities.com

 

[robdgr]

Wim,

Inderdaad, heb daar nog nooit goed naar gekeken:

Range --> Transpose data with formulas...
- Transpose data with formula.
This will transpose your data and keep the correct formulas (it will not change/update the cell references in the formulas).

 

[wilmaart]

ASAP utilities heeft een optie om dit voor mekaar te krijgen, als ik de vraag goed begrepen heb. Zie www.asap-utilities.com

bedankt voor het antwoord
ik kan en mag asap-utilities niet downloaden.
is er nog een andere manier

 

[Jan van Asseldonk]

is er nog een andere manier

Ja, je zult de routine dan zelf moeten schrijven in vba.

 

[Jan van Asseldonk]

Kleine aanzet.
Plaats je gegevens in rij 1 en start de macro.
Op blad 2 worden de formules in kolom A geplaatst,

Sub TransponeerFormule()
'
Dim Teller As Integer
Dim aKol As Integer
'
    Sheets("Blad1").Select
    aKol = Range("a1").End(xlToRight).Column
    
    Sheets("Blad2").Select
    For Teller = 1 To aKol
        Cells(Teller, 1).Formula = "=Blad1!R1C" & Teller
    Next
    
End Sub

 

[wilmaart]

Beste Jan
bedankt
volgens mij werkt dat wel een beetje.
kan jij mij uitleggen wat hier onder staat zodat ik zelf een beetje kan uitproberen.

wilmaart

Kleine aanzet.
Plaats je gegevens in rij 1 en start de macro.
Op blad 2 worden de formules in kolom A geplaatst,

Sub TransponeerFormule()
'
Dim Teller As Integer
Dim aKol As Integer
'
    Sheets("Blad1").Select
    aKol = Range("a1").End(xlToRight).Column
    
    Sheets("Blad2").Select
    For Teller = 1 To aKol
        Cells(Teller, 1).Formula = "=Blad1!R1C" & Teller
    Next
    
End Sub

 

[Jan van Asseldonk]

Zie commentaar achter de coderegels

Sub TransponeerFormule()
'
Dim Teller As Integer
Dim aKol As Integer
'
    Sheets("Blad1").Select                                         'zorgen dat blad 1 je op blad 1 staat
    aKol = Range("a1").End(xlToRight).Column            'bepaal het aantal gevulde kolommen vanaf A1 
    Sheets("Blad2").Select                                          'selecteer blad 2
    For Teller = 1 To aKol                                            'herhaal van 1 tot aantal kolommen
        Cells(Teller, 1).Formula = "=Blad1!R1C" & Teller  'plaats telkens in cel de formule. Door hier gebruik te maken van Cells resp. RC-notatie i.p.v. range in combinatie met de teller kan gemakkelijk de volgende cel gevuld worden.
    Next                                                                    'Teller wordt automatisch opgehoogd.
    
End Sub

Plaats eventueel de cursor op bijv. cells en druk op F1.
Je krijgt dan een duidelijke uitleg met voorbeeld(en). Mits help voor VBA geïnstalleerd natuurlijk.