omzetten datasheet naar andere datasheet

[mlaurense]

Hallo,

Ik heb nog 1 probleempje.

Ik heb een tabel (zoals in de bijlage). In een ander blad moet een bepaald resultaat gekopieerd worden. In dit andere blad zitten 3 kolommen. Als eerste de waarde van de cellen in de range. Deze vba code heb ik. Daarnaast moet er in de tweede kolom het corresponderende weeknummer worden getoond (die boven de tabel staat) en in de derde kolom de taak (die in de eerste kolom staat).

Kan iemand mij hiermee helpen met een stukje code ofzo??

 

[EdWel]

Hallo mlaurense,

Ik denk dat je je probleem iets beter moet omschrijven.
De waarden 50, 100, enz. komen in kolom A meerdere keren voor.
Wat zou er volgens jou in B2, B3, C2 en C3 moeten staan?

Groet, Ed

 

[mlaurense]

Elke cel binnen de tabel (C5:AL12) moet bekeken worden, en als hier een getal in staat moet deze gekopieerd worden naar "blad2" kolom A. In "blad2" kolom B moet de bijbehorende weeknummer komen en en in "blad2" kolom C de bijbehorende taak.

Bijvoorbeeld in Blad1 staat in cel S6 het getal 300. Dit getal moet gekopieerd worden naar blad2 in kolom A (de eerste lege regel) en vervolgens in kolom B de bijbehorende weeknr (namelijk "17") en in kolom C de bijbehorende taak (namelijk "slapen")

Mijns inziens moet er code komen die gebruik maakt van het celadres (in het bovenstaande voorbeeld S6)

Hopelijk ben ik nu wat concreter???

 

[EdWel]

Dan bedoel je denk ik dit:

Private Sub CommandButton1_Click()
   With Sheets(1)
      For r = 5 To .UsedRange.Rows.Count
         For k = 3 To .UsedRange.Columns.Count
            If .Cells(r, k) <> "" Then
               t = t + 1
               Sheets(2).Cells(t, 1) = .Cells(r, k)
               Sheets(2).Cells(t, 2) = .Cells(3, k)
               Sheets(2).Cells(t, 3) = .Cells(r, 1)
            End If
         Next k
      Next r
   End With
End Sub

Groet, Ed

 

[snb]

Of

Sub tst()
  For Each cl In Blad1.UsedRange.Offset(4, 2).SpecialCells(2, xlNumbers)
    c2 = c2 & cl & "|" & cl.Offset(3 - cl.Row) & "|" & cl.Offset(, 1 - cl.Column) & vbCr
  Next
  Blad2.Cells(1, 1).Resize(UBound(Split(c2, vbCr)) + 1) = WorksheetFunction.Transpose(Split(c2, vbCr))
  Blad2.Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, "|"
End Sub

 

[mlaurense]

Dank dank dank

Hartelijk dank voor jullie inbreng.
Ik ben geholpen.

mvg.
ML