Automatische aanvullen =WEEKNUMMER functie in lege cellen

[smvrolijk]

Hoi,

Zie file AWeekly Report Processing Department.xlsx voor verduidelijking.

In de file staan een aantal gegevens, met verschillende data (zie kolom F).
Iedere week komen hier nieuwe gegevens bij.

Deze gegevens worden via een andere macro vanuit een andere file ingevuld in de kolommen B t/m H.

Nu staat in kolom A =WEEKNUMMER functie die kijkt naar de datum uit kolom F en vult vervolgens in kolom A het correcte weeknummer in.


De vraag is:
Hoe kan ik in een macro er voor zorgen dat op het moment er nieuwe gegevens in kolom B t/m H worden geplaatst, er ook automatisch de =WEEKNUMMER functie in kolom A wordt uitgevoerd. In voorbeeld file moet dat komen te staan in A7 t/m A9.

Het liefst voeg ik deze commando toe aan de macro die reeds bestaat om data uit de andere file te halen.

Code is nu:
Sheets("N600077").Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Workbooks("AWeekly Report Processing Department.xlsx").Sheets("N600077").[B65536].End(xlUp).Offset(1)
End Sub


Ik heb het een en ander proberen te verduidelijken in de toegevoegde file.

Wie kan mij helpen?
Super bedankt.

gr
sander

 

[Djoane]

Kun je dat niet gewoon met een formule doen? Dat je dus in Kolom A zoiets neerzet:

=ALS(

Nah ben een tijdje aan het @#@# geweest, maar lukt niet.

Ik dacht misschien kun je een ALS-functie invoegen, met =ALS($F6:$H6>0;(=WEEKNUMMER($A6)-1);"") Maar dit lukt niet.

 

[tilpi]

Je zou dit aan het eind van jouw code kunnen plakken.

    Range("A6500").End(xlUp).Copy
    Range("B65000").End(xlUp).Offset(0, -1).Select
    Range(Selection, Selection.End(xlUp)).PasteSpecial

Mvg

Piet

 

[smvrolijk]

Hoi,

dit heb ik geprobeerd maar dan doet hij niet wat hij moet doen.....

de commando =WEEKNUMMER functie komt niet in de lege cellen te staan

 

[Superzeeuw]

Sander,

Plaats de volgende code aan het einde:

[A2].Copy
Range(Cells(3, 1), Cells(Range("B65536").End(xlUp).Row, 1)).PasteSpecial
Application.CutCopyMode = False

 

[Warme bakkertje]

Deze beantwoord ook ineens je vorige vraag

Sub tst()
With Application
    .ScreenUpdating = False
For Each sh In Sheets
    sh.Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
    With Workbooks("AWeekly Report Processing Department.xlsx").Sheets(sh.Name)
        .[B65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
        .Range("A2:A" & .Cells(Rows.Count, 2).End(xlUp).Row).Formula = "=WEEKNUMMER(RC[5])-1"
    End With
Next
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub