Wegschrijven ingevulde gegevens

[gerrit123456789]

Hallo,

Ik heb een bestand waarin er gegevens worden bijgehouden per shift.

Van deze gegevens wil ik een analyse maken.

In de cellen C34 t/m C34 heb ik een keuze uit vier machines. Daarachter komen het aantal minuten te staan. Daarachter heb ik weer een keuze uit alle voorkomende storingen.

Nu wil ik deze gegevens wegschrijven naar blad 1 en op die manier dat er per machine de meest voorkomende storingen komen te staan en daarachter het aantal minuten,

Dit moet gebeuren als ik het programma afsluit

Wie kan mij hierbij helpen.

Ik kom er niet uit.

Groet,

Gerrit

Bekijk bijlage overdrachtsformulier TK2-3 test.xlsx

 

[gerrit123456789]

Sorry,

Ik zie dat ik een foutje heb geschreven. Het moet zijn cel C32 t/m C34.

Gerrit

 

[Roncancio]

Code voor ThisWorkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet11.Range("C32:E34").Value = Blad1.Range("C32:E34").Value
End Sub

Bij het afsluiten van het bestand wordt de inhoud van de cellen C32 t/m C34 van Ma nacht in het werkblad Zo nacht geplaatst.

Met vriendelijke groet,


Roncancio

 

[gerrit123456789]

Dit is niet wat ik bedoel

De waarden van cel C32 t/m C34 moeten in werkblad i komen te staan met de daarbij behorende waardes van cellen D32 t/m D34 en cellen E32 t/m E34.

Dit moet gebeuren als ik het bestand afsluit.

Gerrit

 

[Roncancio]

Correctie op mijn vorige bericht.
De waardes van C32 tem E34 worden in de werkblad ZO nacht geplaatst.
Ik neem aan dat je dat werkblad bedoelt.

Met vriendelijke groet,


Roncancio

 

[gerrit123456789]

Ik zal wel kijken of ik daar iets aan heb.

Moet in de formule dat van Cancel as Boolean erbij.

Groet,

Gerrit

 

[Roncancio]

Dat staat er standaard in.
Het is overigens geen formule maar VBA code.

Met vriendelijke groet,


Roncancio

 

[gerrit123456789]

Ik heb deze code geprobeerd in een heel eenvoudig bestand, maar het schrijft de gegevens niet naar een ander blad en laat de gegevens op het andere blad ook staan.

Groet,

Gerrit

 

[VenA]

Geef eens aan wat de uitkomst in 'blad1' moet zijn.

 

[gerrit123456789]

In blad1 moeten de gegevens uit het blad Zo nacht uit de cellen C32 t/m C34 komen te staan, zonder dat deze gewist worden in het blad Zo nacht.

Gerrit

 

[HSV]

Het strookt niet helemaal met #4 wat je in je laatste post schrijft, maar ik geef het maar een schot.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Sheets("blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(3, 3) = Sheets("Zo nacht").Range("C32:E34").Value
  ' thisworkbook.save  'melding wijziging opslaan vermijden,
End Sub

 

[gerrit123456789]

Dit is ongeveer wat ik bedoel.

Alleen moeten ze op een vaste plaats in blad 1 komen te staan en niet telkens als het bestand sluit onder elkaar op blad 1.

Is dat te verwezenlijken.

Groet,

Gerrit

 

[VenA]

Dan sloop je toch een stukje uit de code die naar de eerste lege rij zoekt.

Sheets("blad1").[A1].Resize(3, 3) = Sheets("Zo nacht").Range("C32:E34").Value

 

[gerrit123456789]

Kan ik dat voor elk werkblad doen.
Zo krijg ik dan een overzicht van alle diensten, waaruit ik dan kan gaan analyseren wat de meeste voorkomende storing was.

Ik ga hier vanavond me aan de gang.

Het werk roept.

Groet,

Gerrit

 

[gerrit123456789]

Hallo,

Het is gelukt met hulp van jullie.

Bedankt hiervoor.

Groet

Gerrit