Horizontaal naar verticaal gegevens overbrengen van blad 2 naar blad 1 in een excelwe

[Roger53]

Hallo, ik had graag geweten hoe ik een rij horizontale gegevens van blad 2 in een excelwerkmap (bv. uitgaven per dag van de maand) zou kunnen overbrengen naar éénzelfde indeling maar dan verticaal in blad 1 zodat de som van de waarden op blad 2 automatisch verschijnen op blad 1 in de verticale kolom? In bijlage een simpel voorbeeld waar op de 1ste en 2de van de maand bedragen werden ingevoerd op blad 2.
Bekijk bijlage Testmap.xlsx

 

[jolivanes]

Sub Try()
    Sheets("Blad2").UsedRange.Copy
    Sheets("Blad1").Range("A1").PasteSpecial Transpose:=True
End Sub

of in Uw geval misschien

Sub Probeer_Dit_Eens()
    Sheets("Blad2").Range("A3:AE4").Copy
    Sheets("Blad1").Range("A1").PasteSpecial Transpose:=True
    Sheets("Blad1").Range("D1:D31").Formula = "=SUM(RC[-3]:RC[-1])"
End Sub

 

[Cobbe]

Zet deze in cel C1 in Blad1 en trek dan door tot rij 31:

=INDIRECT("blad2!"&ADRES(6;RIJ()))

 

[Roger53]

Antwoord aan jolivanes en Cobbe

Hallo jolivanes en Cobbe,

Bij de eerste oplossing (jolivanes) zou ik in hemelsnaam niet weten waar ik die code moet inbrengen, sorry, ben maar een leek.
Voor Cobbe volgende opmerking. Wanneer ik zijn formule gebruik in het uiteindelijke bestand (en aanpas zoals blad 2 = april enz.) verspringen de dagen (bv 29 april wordt 27 april)
Ik ga dan ook het bestand bijvoegen waar ik deze dingen voor nodig heb.
Bekijk bijlage Personal budget1.xlsx

 

[Cobbe]

Dat heeft te maken met de rij vanaf welke je begint :

=INDIRECT("April!"&ADRES(24;RIJ(A2)))

 

[Roger53]

Bedankt Cobbe, is gelukt. Voor Maart en Februari had ik hyperlinks gemaakt maar dat lukte voor April dus van geen kanten.