Just nu i M3-nätverket
Jump to content

VBA Tidstämpel krånglar


MvS
 Share

Recommended Posts

Jag har en matrikel där jag har infogat en tidstämpelfunktion som har funkat hyggligt men nu krånglar. 

Har prövat lite olika varianter men får vid varje uppdatering upp en dialogruta med "Ogiltigt proceduranrop eller argument". (Se bifogad bild.)
Det är ett enkelt skript men jag blir inte klok på vad som felas - någon som vet bättre än mig? 

Bifogar skriptet som txt-fil!

 

error.png

VBA Timestamp.txt

 

Infogar texten direkt, förenklar kanske lite:

Private Sub Worksheet_Change(ByVal Target As Range)

    Call Modul1.TaBortSkydd
    
    Application.EnableEvents = False
    ActiveSheet.ListObjects("Tabell2").Range.Select
        With Selection
            If Target.Column <= 13 Or Target.Column >= 15 Then
            Range("N" & Target.row).Value = Date
            End If
        End With
    Application.EnableEvents = True
    Call Modul1.Skydd
    
End Sub

/Mikael63, moderator

Edited by Mikael63
Visar koden direkt
Link to comment
Share on other sites

Ove Söderlund

Jag tar för givet att du har säkerställt att subbarna TaBortSkydd och Skydd finns i Modul1.

 

Testa att göra din Worksheet_Change publik genom att ta bort ordet Private.

Sub Worksheet_Change(ByVal Target As Range)

 

 

Link to comment
Share on other sites

Tack för svar!

Jag har prövat det mesta inklusive de tips du kommer med men utan framgång...
När jag gjort föreslagna ändringar så antingen skapas ingen tidstämpel alls eller så skapas en men med dialogrutan "Ogiltigt proceduranrop..." som pop-up!

Edited by MvS
Link to comment
Share on other sites

 Share



×
×
  • Create New...