van rij naar kolom

[nothere]

Wie kan of wil deze code aanpassen.
heb zelf het een en ander geprobeert maar om een of ande reden is dan de variabele niet goed.
Alvast bedankt.

 

[Wigi]

Nothere

een Excelbestand met een voorbeeldsituatie (hoe het nu is en ook hoe je het zou willen), is veel handiger. Zip het bestand eerst.

Wigi

 

[nothere]

is dit beter zo?

hoop dat ik dit keer goed plaats.
dank u

 

[Wigi]

Hallo

- Kopieer B3:B13 naar E35, plakken speciaal > Transponeren
- gebruik deze code:

Sub kisten_kleuren_kolommen()
    Dim x As Long, Rng As Range
    x = Cells(35, Columns.Count).End(xlToLeft).Column
    Range("E37:IV500").Interior.ColorIndex = xlNone
    For Each Rng In Range("E35", Cells(35, x))
        If Rng <> "" And Rng > 0 Then
            Rng.Offset(2, 1).Resize(Rng, 1).Interior.ColorIndex = 3
        End If
    Next Rng
End Sub

Indien problemen dan hoor ik het wel.

Wigi

 

[nothere]

Bedankt

bedankt WIGI
Ik begin vb aardig door te krijgen nu,
maar zo een macro gaat mij toch te ver.
dit is erg leerzaam nogmaals bedankt

nothere