Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: twee change codes 1 maken.

  1. #1
    Senior Member
    Geregistreerd
    3 juli 2009
    Locatie
    venray
    Vraag is niet opgelost

    twee change codes 1 maken.

    heeft iemand idee om de Worksheet_Change codes 1 van te maken?


    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim xRng As Range
        Dim xValue1 As String
        Dim xValue2 As String
        If Target.Count > 1 Then Exit Sub
        On Error Resume Next
        Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
        If xRng Is Nothing Then Exit Sub
        Application.EnableEvents = False
        If Not Application.Intersect(Target, xRng) Is Nothing Then
            xValue2 = Target.Value
            Application.Undo
            xValue1 = Target.Value
            Target.Value = xValue2
            If xValue1 <> "" Then
                If xValue2 <> "" Then
                    If xValue1 = xValue2 Or _
                       InStr(1, xValue1, ", " & xValue2) Or _
                       InStr(1, xValue1, xValue2 & ",") Then
                        Target.Value = xValue1
                    Else
                        Target.Value = xValue1 & ", " & xValue2
                    End If
                End If
            End If
        End If
        Application.EnableEvents = True
    End Sub
    
    ------------------------------------------------------------------------------------------------------------------------------------------------
    
    Dim PreviousValue
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> PreviousValue Then
    x = Environ("USERNAME") & "|" & Application.UserName & "|" & " changed cell " & "|" & ActiveSheet.Name & Target.Address _
                & "|" & PreviousValue & "|" & Target.Value & "|" & Date & "|" & Time
    Sheets("logboek").Cells(65000, 1).End(xlUp).Offset(1, 0).Resize(1, 8).Value = Split(x, "|")
    End If
    
    End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    PreviousValue = Target.Value
    End Sub

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Controleer op Target.Address en bepaal aan de hand daarvan welke code moet worden uitgevoerd.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member
    Geregistreerd
    3 juli 2009
    Locatie
    venray
    wat ik wil gaat dus niet. ik wou ze alle bij gebruiken.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Nee.
    Een werkblad heeft 1 Change event.
    Wat je wilt is ook niet nodig en kan gewoon in 1 event routine.
    Bijvoorbeeld zo:
    Code:
    Private Sub Worksheet_Change(ByVal target As Range)
        Select Case target.Address(0, 0)
            Case "A1":  Call A1Changed(target)
            Case "B1":  Call B1Changed(target)
            Case "C1":  Call C1Changed(target)
        End Select
    End Sub
    
    Sub A1Changed(target As Range)
        MsgBox "Voor A1", , target.Value
    End Sub
    
    Sub B1Changed(target As Range)
        MsgBox "Voor B1", , target.Value
    End Sub
    
    Sub C1Changed(target As Range)
        MsgBox "Voor C1", , target.Value
    End Sub
    Laatst aangepast door edmoor : 22 september 2021 om 18:27
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren