Probleem met SpecialCells

[toverkamp]

Hallo forumleden,

Ik heb een probleem met de eigenschap SpecialCells. Hij geeft een foutmelding bij LastRow, dit terwijl het eerder wel goed ging. De gehele code is:

Sub storinggereed_module()

Dim MyRange             As Variant
Dim c                   As Range
Dim LastRow As Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

Set MyRange = Worksheets("openstaande storingen")

storinggereedordernummer = storingsformuliergereed.storinggereedordernummer.Value

    Dim Tempstoringgereedbegintijd As Date
    Dim Tempstoringgereedeindtijd As Date
    'wat gaan we opslaan
    storinggereeddatmelding = storingsformuliergereed.storinggereeddatmelding.Value
    storinggereedtijdmelding = storingsformuliergereed.storinggereedtijdmelding.Value
    storinggereedfiliaalnummer = storingsformuliergereed.storinggereedfiliaalnummer.Value
    storinggereedkassanummer = storingsformuliergereed.storinggereedkassanr.Value
    storinggereedordernummer = storingsformuliergereed.storinggereedordernummer.Value
    storinggereedidnummer = storingsformuliergereed.storinggereedidnummer.Value
    storinggereeddatumgereed = storingsformuliergereed.storinggereeddagrep & "-" & storingsformuliergereed.storinggereedmaandrep & "-" & storingsformuliergereed.storinggereedjaarrep
    storinggereedsoortstoring = storingsformuliergereed.storinggereedsoortstoring.Value
    Tempstoringgereedbegintijd = storingsformuliergereed.storinggereedtijdrepuur & ":" & storingsformuliergereed.storinggereedtijdrepmin
    Tempstoringgereedeindtijd = storingsformuliergereed.storinggereedeindtijdrepuur & ":" & storingsformuliergereed.storinggereedeindtijdrepmin
    storinggereedcode = storingsformuliergereed.storinggereedcode.Value
    storinggereedomschrijving = storingsformuliergereed.storinggereedomschrijving.Value
    storinggereedcode1 = storingsformuliergereed.storinggereedcode1.Value
    storinggereedomschrijving1 = storingsformuliergereed.storinggereedomschrijving1.Value
    
    storinggereeddatumgereed = Format(storinggereeddatumgereed, "mm-dd-yy")
    storinggereedbegintijd = FormatDateTime(Tempstoringgereedbegintijd, vbShortTime)
    storinggereedeindtijd = FormatDateTime(Tempstoringgereedeindtijd, vbShortTime)

    'waar gaan we opslaan
    Dim Rij As Integer
    Rij = FindOnSheet("reactietijden", storinggereedordernummer, "r")
    If Rij = -1 Then Rij = LastRow
    With Sheets("reactietijden")
        .Range("s" & Rij) = storinggereeddatumgereed
        .Range("w" & Rij) = storinggereedbegintijd
        .Range("y" & Rij) = storinggereedeindtijd
        .Range("az" & Rij) = storingsformuliergereed.storinggereedcode.Text
        .Range("ba" & Rij) = storingsformuliergereed.storinggereedomschrijving.Text
        .Range("bb" & Rij) = storingsformuliergereed.storinggereedcode1.Text
        .Range("bc" & Rij) = storingsformuliergereed.storinggereedomschrijving1.Text
    End With
    

    MsgBox "De storing is gereed gemeld"
    storingsformuliergereed.Hide
    Sheets("blad1").Select
       
End Sub

In de bijlage vindt u het probleem

 

[Wigi]

Doe misschien eerst Reset_lastcell.

 

[toverkamp]

Het werkt!! Vreemd dat het eerder wel goed ging en nu in een keer niet meer Maar het probleem is weer opgelost

 

[Wigi]

Vreemd dat het eerder wel goed ging en nu in een keer niet meer

Zo vreemd vind ik dat niet. Je moest eens weten wat er allemaal in werkbladen gebeurt en hoe de LastCell opschuift...

 

[toverkamp]

nou ik had 'm al een tijdje in gebruik, en plotseling gaf die een foutmelding, toch wel vreemd vind ik dat.. njah