• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Calamiteiten

Status
Niet open voor verdere reacties.

Jarodxxx

Gebruiker
Lid geworden
26 nov 2006
Berichten
243
Hallo Gentlemen en verdwaalde vrouwe,

Volgend bestand werkt wel qua registratie van calamiteiten in hetzelfde workbook
Alleen bij het extern wegschrijven naar een zelfde soort ongevallen register maar dan met de knop extern opslaan krijg ik steeds foutmeldingen doordat het om een ander workbook gaat.

De code weet dan niet meer waar de gegevens vandaan komen (wel waar naar toe)

Iemand die mij dat eens goed kan uitleggen?

Jarod
 
Jarod

Code:
Public Sub TotaleCalamiteitenMelding()
Dim MFC As Workbook, TCOR As Workbook, rij As Long

Set MFC = ThisWorkbook

'GEGEVENS WEGSCHRIJVEN NAAR HET TOTALE VESTIGINGEN ONGEVALLEN REGISTER'
    
'Op tabblad ONGEVALLEN REGISTER een lege rij zoeken
    Set TCOR = Workbooks.Open("C:\Temp\Calamiteitenformulier Met mail\Totale Calamiteiten en Ongevallen registratie.xls")
    Sheets("Ongevallen Register").Activate
    rij = Range("B5").End(xlDown).Row + 1
    
'Gegevens kopieren naar ONGEVALLEN REGISTER'
    ActiveSheet.Unprotect
    With MFC.Sheets("Meldingsformulier")
        Cells(rij, 1) = .Range("Meldingsformulier!TypeOngeval")
        Cells(rij, 2) = .Range("Meldingsformulier!DatumGebeurtenis")
        Cells(rij, 3) = .Range("Meldingsformulier!DatumOngevalMelding")
        Cells(rij, 4) = .Range("Meldingsformulier!NaamSlachtoffer")
        Cells(rij, 5) = .Range("Meldingsformulier!FunctieSlachtoffer")
        Cells(rij, 6) = .Range("Meldingsformulier!BehandelingGebeurtenisDoor")
        Cells(rij, 7) = .Range("Meldingsformulier!SoortLetsel2")
        Cells(rij, 8) = .Range("Meldingsformulier!PlaatsGebeurtenis")
        Cells(rij, 9) = .Range("Meldingsformulier!NaamBHVer")
        Cells(rij, 10) = .Range("Meldingsformulier!OmschrijvingGebeurtenis")
        Cells(rij, 11) = .Range("Meldingsformulier!MaatregelenGebeurtenis")
    End With
    
    'dit begrijp ik niet
''''        Selection.Copy.all
''''        Cells(rij, 0).Select
''''        ActiveSheet.Paste
''''        Cells(rij, 2).Select
    'tot hier
    
    ActiveSheet.Protect
End Sub

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan