Wegschrijven data met bepaalde opmaak

[Danielle22]

Hallo allemaal,

Ik heb een excelsheet met testresultaten en bijhorende bedragen. Nu staan deze in het blad “resultaten” maar deze moeten in een bepaalde opmaak komen in het blad “wegschrijven resultaten”.

Nu doe ik dit allemaal handmatig maar kan dit ook opgelost met een macro? Zo dat deze gegevens in het blad “resultaten” met de juiste opmaak weggeschreven worden naar het blad “wegschrijven resultaten”. En ook dat de negatieve waarde in een kolom ernaast komen.

In de bijgevoegde bijlege heb ik het verder beschreven.

Hopelijk kan iemand mij helpen met dit probleem.

Alvast heel erg bedankt voor de eventuele reactie.

Groetjes,

Danielle


Bekijk bijlage kopie gegevens.xls

 

[Danielle22]

Hallo Allemaal,

Ik heb het geprobeerd om een macro op te nemen, maar dat is eigenlijk geen oplossing .

Heeft iemand nog tips?

Groetjes,

Danielle

 

[Cobbe]

Doe eens een paar testen met Copy - Plakken Speciaal - Transponeren.

 

[VenA]

Zet deze code eens onder een macroknop:

Sub kopieer()
Dim sr, dr As Long
dr = 8
With ActiveWorkbook.Sheets(1)
    sr = .Range("A" & .Rows.Count).End(xlUp).Row
End With
    For t1 = 2 To sr
        For t2 = 3 To 65
            Sheets(2).Cells(dr, 1) = Sheets(1).Cells(t1, 1)
            Sheets(2).Cells(dr, 2) = Sheets(1).Cells(1, t2)
            If Sheets(1).Cells(t1, t2) >= 0 Then Sheets(2).Cells(dr, 4) = Sheets(1).Cells(t1, t2) Else Sheets(2).Cells(dr, 5) = Sheets(1).Cells(t1, t2)
            dr = dr + 1
        Next t2
    Next t1
End Sub

 

[Danielle22]

Bedankt voor de reacties.

VenA, de macro die je hebt gestuurd is precies wat ik bedoel :thumb:

Bedankt!!

Groetjes,

Danielle