Kopieren ahv datum

[Bart Smith]

Bekijk bijlage VB.xls

Hallo forumleden,

Ik worstel al een tijdje met onderstaande probleem. Hopelijk kan iemand mij helpen.
Op het tabblad Data staat in cel A2 de dag en cel B2 de huidige maand.
Daaronder de collega's en 4 werkzaamheden, met het aantal gepresteerde uren per werk.
Door een druk op "knop 1" zouden de gepresteerde uren moeten gekopieerd worden naar het tablad met de juiste maand (= wat in cel B2 staat) en op de juiste dag (= wat in cel A2 staat).
Ik kan een stuk van de data wel kopieren met de functie ALS, maar blijkbaar heb ik problemen met de keuzen van het juiste tabblad (maand), en dan ook zonder knop!

Alvast bedankt voor jullie input!

 

[oeldere]

Beste Bart,

ik zou kiezen voor een andere opzet.

zet alle gegevens in je bestand data.

de gewenste gegevens zijn met de filters op te vragen.

de gele cellen zijn met een formule.

boven de data staat een subtotaalformule.

deze telt de gegevens van de opgevraagde (gefilterde) waarden op.

in de laatste kolom staat de maand (dan kun je ook de gegevens per maand opvragen).

met deze opzet is het straks ook mogelijk om deze gegevens met (in) een draaitabel te bewerken.

heb je hier vragen over, laat het gewoon even weten.

P.s. ik heb dus geen antwoord op jouw vraag gegeven.

 

[Bart Smith]

Hey, Oeldere,

Dit is inderdaad een volledig andere aanpak, maar toch niet wat ik zoek.
Het moet effectief wel ongeveer zijn zoals beschreven.

Mvg,

 

[Warme bakkertje]

Sub tst()
Dim sh As String, cl As Variant, lrow As Integer, lkol As Integer
   With Sheets("Data")
        sh = .[B2].Value
        For Each cl In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            lrow = Sheets(sh).Columns(1).Find(cl, , xlValues, xlWhole).Row
            lkol = Sheets(sh).Rows(3).Find(.[A2], , xlValues, xlWhole).Column
            cl.Offset(, 1).Resize(, 4).Copy
            Sheets(sh).Cells(lrow, lkol).Resize(4).PasteSpecial xlPasteValues, , , True
        Next
    End With
    Application.CutCopyMode = False
End Sub

 

[Bart Smith]

Warm Bakkertje;

Ik heb de code gekopieerd naar m'n bestand meer op de tweede regel krijg ik een compileerfout!
Wat kan er misgegaan zijn?

 

[Warme bakkertje]

Zie aangepaste versie eerdere Post.