Calamiteiten

[Jarodxxx]

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

 

[Wigi]

Bestand is niet bijgeleverd.

 

[Jarodxxx]

Hmmz dan nu het bestand

Ik zie't ja!
zou zweren da'k 't erbij gedaan had!
Anyway, hier 't bestand dan!

Jarod

 

[Wigi]

Jarod

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