VBA code samenvoegen

[mamin]

Hallo allemaal,

Ik gebruik volgende code om blad "Inventaris" te kopiëren naar blad2 "Huidige Inventaris" middels een knop.

Sub CopyData()
Worksheets("Inventaris").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Huidige Inventaris"
End Sub

en de volgende code om "Nummer Inventaris" met 1 te verhogen, de datum van vandaag automatisch te vullen en de data van de blad1 Inventaris te verwijderen, ook middels een knop.

Sub NewNR()
Range("E7").Value = Range("E7").Value + 1
Range("Datum1,Datum2,Datum3").Value = Date
Range("D13:J13,E37,E38").ClearContents
End Sub

Nu vraag ik me af of de 2 codes samengevoegd kunnen worden in een code.
Ik wil eigenlijk dat als ik op de knop klik dat de huidige sheet gekopieerd wordt (met behoud van de ingevulde data) naar blad2 en de gegevens van de eerste blad "Inventaris" verwijderen + nummer met 1 verhogen + datum.

Kan iemand mij helpen om de code samen te voegen.

Mvgr.

 

[wampier]

Het kan op verschillende manieren, maar het makkelijkst is waarschijnlijk een with statement toevoegen om je huidige sheet te onthouden:

Sub CopyData()
with ActiveSheet
   Worksheets("Inventaris").Copy after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = "Huidige Inventaris"
   .[e7].value = .[e7].value+1
   .Range("Datum1,Datum2,Datum3").Value = Date
   .Range("D13:J13,E37,E38").ClearContents
end with
End Sub

 

[mamin]

Is het echt nodig om de punt voor Range te zetten.

 

[mamin]

antwoord op mijn eigen vraag = ja
hij doet het dank je wampier

 

[mamin]

Met behulp van wampier is mijn code met succes samengevoegd. Ik heb wat aanpassingen aangebracht mbt de naam van de gekopieerde sheet. Hij krijgt nu een naam uit cel.

In principe werkt de code goed maar als de cel leeg is krijg ik natuurlijk een fout melding.
Ik heb geprobeerd If MsgBox toe te voegen met ("Graag nummer Inventaris toevoegen") en Else Exit Sub als niets is ingevuld zonder de sheet te kopiëren..

Ik kom niet uit. Help!!!

Sub CopyData()
with ActiveSheet
   Worksheets("Inventaris").Copy after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = Sheets("Inventaris").Range("nrInventaris").Value
   .[e7].value = .[e7].value+1
   .Range("Datum1,Datum2,Datum3").Value = Date
   .Range("D13:J13,E37,E38").ClearContents
end with
End Sub

 

[wampier]

Die kun je toch voor de with statement plaatsen?

if Range("nrInventaris") = "" then
   msgbox("inventarisnr)
   exit sub
end if
with activesheet ' etc

 

[mamin]

Dank je :d ik ben niet zo vba-er
Maar ik ben de laatste tijd erin gedoken en waarschijnlijk wordt het tijd om een cursusje te pakken.

 

[mamin]

Gaat niet. If... blijft rood.
Waarschijnlijk moet ik ActiveSheet of zo voor Range zetten.

 

[mamin]

sorry, te snel gereageerd.
vergeten Then te zetten.