Overnemen gegevens naar nieuw werkblad.

[sont]

Beste mensen ,

Heb waarschijnlijk niet zo een moeilijke vraag maar ik kom er niet uit.

Heb hier een controle lijst met weeknummers waar wat gegevens in staan.
Meterstanden die met wat sommetjes opgeteld worden

Nu wil ik graag met het maken van een nieuw blad dat hij een kopie van het vorige
werkblad maakt en waaruit hij dan alleen de gegevens van 2 cellen (FG89&FG93 ) overneemt naar een verwijzing in het nieuwe blad (G12&15). maar wel de formules van het vorige blad meeneemt naar het nieuwe blad en het liefst blanco .

Nu kan ik handmatig een weeklijst kopiëren.(Gaan de formules mee)
Dan de tekst en de meterstanden leeghalen en dan handmatig de gegevens van het vorige werkblad overnemen en dan kan ik weer een weekje vooruit.

Graag wil ik meerdere weken aanmaken maar kan de verwijzing niet maken omdat hij bij iedere
nieuwe week de verwijzing anders is (oplopende weeknummers)

Hoop dat dit met het bijgevoegd bestandje duidelijk is.

Neem aan dat niet zonder Vba kan?

Bekijk bijlage Controlle lijst..xlsx


Alvast bedankt .

 

[gast0660]

Met zoiets mischien?
Maak een blad aan zoals het nieuw moet verschijnen en noem het master,
Zie bijlage:

 

[sont]

Hallo,

Bedankt voor je snelle reactie.
Dit is niet echt wat ik bedoel. ja het werkt wel met een nieuw blad aanmaken en die benoemen naar een nieuwe week maar de verwijzing naar het vorige blad is er (nog) niet?
Als ik een week 34 aanmaak dan moet hij uit week 33, 2 meterstanden overnemen uit cel FG89 en FG93 maar omdat die nog niet ingevuld is krijg ik een verwijzingsfout zie weeknummer 34 in cel G12 en G15.
In de bijlage zie je in de weeknummers 31 en 32 in de cellen G12 en G15 de verwijzing staan naar het vorige blad en krijg je natuurlijk geen fout omdat daar de cellen gegevens bevatten.

 

[VenA]

Je krijgt de fout omdat je een spatie achter Wk 32 hebt staan.
Je kan ook beter de samengevoegde cellen eruit halen. (gaat vaak niet goed in combinatie met VBA)

Probeer het zo eens.

Sub VenA()
c00 = Val(Right(Sheets(Sheets.Count).Name, 2))
Sheets(Sheets.Count).Copy , Sheets(Sheets.Count)
On Error Resume Next
With ActiveSheet
    .Name = "Wk " & c00 + 1
    .[f12].Formula = Replace(.[f12].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[g12].Formula = Replace(.[g12].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[m4] = c00 + 1
    .[F11:I93].SpecialCells(2).ClearContents
End With
End Sub

 

[sont]

VenA,

U bent een held! Het werkt precies zoals ik wil.(zelfs de weeknummers lopen mee). Super!
Mijn hartelijke dank voor U gedane moeite.

Deze vraag is opgelost en zal hem aanmerken als opgelost

 

[sont]

Toch nog een aanpassing moeten maken in Vba.
Oude code:

Sub VenA()
c00 = Val(Right(Sheets(Sheets.Count).Name, 2))
Sheets(Sheets.Count).Copy , Sheets(Sheets.Count)
On Error Resume Next
With ActiveSheet
    .Name = "Wk " & c00 + 1
    .[[COLOR="#FF0000"]f12[/COLOR]].Formula = Replace(.[[COLOR="#FF0000"]f12[/COLOR]].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[[COLOR="#FF0000"]g12[/COLOR]].Formula = Replace(.[[COLOR="#FF0000"]g12[/COLOR]].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[m4] = c00 + 1
    .[F11:I93].SpecialCells(2).ClearContents
End With
End Sub

Aangepaste code :

Sub VenA()
c00 = Val(Right(Sheets(Sheets.Count).Name, 2))
Sheets(Sheets.Count).Copy , Sheets(Sheets.Count)
On Error Resume Next
With ActiveSheet
    .Name = "Wk " & c00 + 1
    .[[COLOR="#FF0000"]g12[/COLOR]].Formula = Replace(.[[COLOR="#FF0000"]g12[/COLOR]].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[[COLOR="#FF0000"]g15[/COLOR]].Formula = Replace(.[[COLOR="#FF0000"]g15[/COLOR]].Formula, "Wk " & c00 - 1, "Wk " & c00)
    .[m4] = c00 + 1
    .[F11:I93].SpecialCells(2).ClearContents
End With
End Sub

Nu werkt hij foutloos. Gegevens moet hij iedere keer uit de vorige week halen. Bij de oude code neemt hij bij de 2e regel de gegevens van 2 weken terug.
Zie formule cel G15 van het nieuwe blad. Met de aangepaste code doet hij het goed.
Alsnog bedankt voor het meedenken en het opzetten van de code. :thumb: