Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: Change event voor range

  1. #1
    Junior Member
    Geregistreerd
    27 september 2021
    Vraag is niet opgelost

    Post Change event voor range

    Goedemiddag,
    ik heb een Excel sheet met in de cellen A1 t/m A10 verschillende waarden tussen de 1 en de 10.
    Nu wil ik graag via VBA dat in de cel ernaast, dus B1 t/m B10 de waarde 1 komt te staan
    als er in de naastgelegen A cel de waarde 4 staat.

    ik weet dat er een range aan te pas komt maar krijg het niet voor elkaar
    Hebben jullie een idee?

    Groetjes

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    In B1:
    PHP Code:
    1
    
    =ALS(A1=4;1;"")
    En dan doortrekken.
    Geen VBA voor nodig.
    "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
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Als je handmatig de getallen verandert zo:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("A1:A10")) Is Nothing And Target.Count = 1 And Target.Value = 4 Then Target.Offset(, 1) = 1
    End Sub
    Gr,
    JV

  4. #4
    Giga Senior
    Verenigingslid

    Geregistreerd
    19 april 2007
    Locatie
    den haag
    en als die 4 weer verdwijnt, wat komt er dan te staan?
    groeten Sylvester Ponten

    ik gebruik Ms Windows 10 en met plezier excel 365

    ps geef zelf ook aub aan welke excel u gebruikt.
    ps persoonlijke mail lees ik hoogstens 1 maal per jaar

  5. #5
    Junior Member
    Geregistreerd
    27 september 2021
    Hallo edmoor,

    de Als functie had ik al gebruikt en werkte goed, het probleem is dat ik ook de mogelijkheid wil houden om handmatig iets in de B cel in te voeren.
    Sorry, dat had ik in de haast vergeten te vermelden

    Hallo JVeer,

    Als de waarde in een A cel alpha numeriek is, b.v. de waarde ' hallo' en als in dat geval in de B cel de waarde 4 moet komen,
    kan ik dan dezelfde code gebruiken?

    Sorry dat ik zo rommelig overkom

    Groetjes

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Rommelig overkomen betekent dat jij jouw eigen vraag niet begrijpt. Plaats een voorbeeldbestand.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Bvb

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("A1:A10")) Is Nothing And Target.Count = 1 Then
       Select Case Target.Value
         Case 4: Target.Offset(, 1) = 1
         Case "hallo": Target.Offset(, 1) = 4
         Case Else: Target.Offset(, 1) = ""
       End Select
     End If
    End Sub
    of

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("A1:A10")) Is Nothing And Target.Count = 1 Then
       With Target
        .Offset(, 1) = Evaluate(Replace("if(@@=4,1,if(@@=""hallo"",4,""""))", "@@", .Address))
       End With
     End If
    End Sub
    Laatst aangepast door JVeer : 27 september 2021 om 17:42
    Gr,
    JV

  8. #8
    Junior Member
    Geregistreerd
    27 september 2021
    VenA: je hebt helemaal gelijk!
    Laatst aangepast door huijb : 27 september 2021 om 19:34

  9. #9
    Junior Member
    Geregistreerd
    27 september 2021
    Hallo JVeer,
    Geweldig bedankt, het werkt !!!!
    Laatst aangepast door huijb : 27 september 2021 om 19:33

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Het quoten van complete berichten is niet echt wenselijk.

    Evaluatie lijkt mij in dit geval overbodig
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("A1:A10")) Is Nothing And Target.Count = 1 Then
       With Target
        .Offset(, 1) = IIf(.Value = 4, 1, IIf(.Value = "hallo", 1, ""))
       End With
     End If
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #11
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Inderdaad
    Gr,
    JV

  12. #12
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Code:
     .Offset(, 1) = IIf(.Value = 4 Or .Value = "hallo", 1, "")
    ____________
    Met vriendelijke groet,
    Harry

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

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