Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: Kan dit eenvoudiger !!

  1. #1
    Vraag is opgelost

    Kan dit eenvoudiger !!

    Ik wil meerdere cellen met een msgbox, uitlichten als je op de cel klikt. Ik heb nu voor iedere cel
    apart de opdracht gemaakt, dat werkt goed maar ik heb 1 sheet met 6 cellen en 1 met 50 cellen.

    Kan de onderstaande code dus éénvoudiger, cellen staan in zelfde kolom.

    Code:
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveCell.Cells.Address = "$C$6" Then
        MsgBox Range("C6").Value
    End If
    If ActiveCell.Cells.Address = "$C$8" Then
        MsgBox Range("C8").Value
    End If
    If ActiveCell.Cells.Address = "$C$10" Then
        MsgBox Range("C10").Value
    End If
    End Sub

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zoiets:
    Code:
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Select Case Target.Address(0,0)
            Case "C6", "C8", "C10"
                MsgBox Target.Value, vbInformation, "Cel: " & Target.Address(0,0)
        End Select
    End Sub
    Laatst aangepast door edmoor : 14 maart 2018 om 08:55
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  3. #3
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Code:
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        MsgBox target
    End Sub
    Alle elementen in een code betekenen wat; ze staan er niet voor niets.
    Analyseer code.
    En veel korter dan hierboven lijkt me lastig.
    Laatst aangepast door snb : 13 maart 2018 om 16:42
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    @Ed,
    Code:
    "Cel: " & Target.Address(0,0)
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Yep! Beter
    Aangepast.
    Laatst aangepast door edmoor : 14 maart 2018 om 08:54
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  6. #6
    super bedankt en inderdaad alles werkt zoals ik wilde....

    wat moest ik zonder jullie

  7. #7
    Hallo sorry nog 1 vraagje ik heb de code in het workbook staan, maar nu doet hij het op
    alle sheets. Ik zou dat graag iets anders zien ... alleen op enkele sheets waar het noodzakelijk is.
    Nu gaat het op diverse sheets mis.

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Controleer dan ook op de naam van de sheet:
    Code:
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Select Case Sh.Name
            Case "Blad3", "Blad6"
                Select Case Target.Address(0, 0)
                    Case "C6", "C8", "C10"
                        MsgBox Target.Value, vbInformation, "Cel: " & Target.Address(0, 0)
                End Select
        End Select
    End Sub
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  9. #9
    ik heb dat ingevoerd maar dat werkt niet.... hij laat geen MSG box zien
    Attached Files Attached Files

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dan werkt het dus prima.
    Je sheet heet niet blad1 maar Blad1
    Laatst aangepast door edmoor : 24 maart 2018 om 21:26
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

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 en business

Partners
Sponsoren
Aanbiedingen