• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Waarde in andere cel veranderen volgens waarde voorgaande cel

Status
Niet open voor verdere reacties.
B

Bjorkie

Gebruiker
Lid geworden
12 sep 2017
Berichten
147
Ik heb een kolom B, waar ik een selectie van 'ja' of Nee' kan doen. manueel.
nu wil ik, dat indien de waarde in kolom A="1Gbit-NoPoE", dat dan de waarde in kolom B automatisch naar Ja gaat.
probleem dat ik heb, is dat ik in kolom B geen formule kan zetten, want na manuele selectie is die dan weg.
ik heb een klein voorbeeld bestandje gemaakt om in te knoeien :)


Bekijk bijlage bjorn.xlsx
 
zo?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value = "1Gbit-NoPoE" Then Target.Offset(, 1).Value = "YES"
End Sub
 
wat is het verschil tussen een "sub" en een "private sub"?
ik heb nog totaal geen macro's in dit bestand.. ik vermoed dat ik iets mis.
 
zie hier:
 

Bijlagen

  • bjorn.xlsm
    13,2 KB · Weergaven: 31
maar hoe voert die het uit, is dit periodiek? moet ik een knop instellen om te doen werken.
het zou liefst automatisch moeten gaan.
de waarden van kolom A komen er te staan vanaf een voorgaande bewerking.
ideaal zou het zijn als deze check periodiek uitgoerd kan worden, na elke actie in deze worksheet.
 
zo dan?
Code: 
Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cl In Range("A3:A100")
    If cl.Value = "1Gbit-NoPoE" Then cl.Offset(, 1).Value = "Yes"
Next
End Sub
 
ai, doet niet echt wat ik wens.
ik zal even mijn volledig bestand posten.
betreft sheet "Switch".
wat ik uiteindelijk wens, is: indien waarde in (C > 0) And (G="1Gbit-NoPoE") then J value = "Yes"
let op, kolom J heeft een dropdown selectie mogelijkheid.
de waarden in kolom G worden bepaald afhankelijk de selectie in B30!
dus, via B30 kan je verschillende scenarios kiezen.
in extremis, kan ik per sectie een knop zetten om het script manueel te laten uitvoeren (soort controle test-knop)
Bekijk bijlage camera oefening v3.1.3.xlsm
de unlock code is "test"
 
ok, werkt toch, sorry .
had de verkeerde kolom waarden opgegeven.
maar kan je dit nog verbeteren volgens mijn extra wens in #8?
 
zo :

Code: 
Private Sub CommandButton1_Click()
For Each cl In Range("C4:C27")
    If cl.Value > 0 And cl.Offset(, 4).Value = "1Gbit-NoPoE" Then cl.Offset(, 7).Value = "Yes"
Next
End Sub
 
Hey,
ik heb het werkend gekregen met volgende code:
Code: 
Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each cl1 In Range("G3:G27")
        For Each cl2 In Range("C3:C27")
            If cl1.Value = "1Gbit-NoPoE" And cl2.Value >= 0 Then cl1.Offset(, 3).Value = "Yes"
        Next
    Next
End Sub

hier werkt het zoals gewenst. ik denk wel dat de opbouw van de formule niet correct is, maar hij doet het.
alvast bedankt voor jullie hulp!
:thumb:
 
Code: 
For Each cl1 In Range("G3:G27")
     If cl1.Value = "1Gbit-NoPoE" [COLOR=#0000ff]And cl1.offset(,-4) [/COLOR]>= 0 Then cl1.Offset(, 3).Value = "Yes"
 Next
 
@HSV: thanks.
daar was ik niet op gekomen. ga ik toepassen hoor.
nog even iets om beter te maken: indien de waarde in Cl1 iets anders is, kan ik dan de cl1.offset',3.value = "No" zetten?
zoals else if mogelijkheid?
 
Code: 
For Each cl1 In Range("G3:G27")
    cl1.Offset(, 3).Value = iIf(cl1.Value = "1Gbit-NoPoE" And cl1.offset(,-4) >= 0,  "Yes","No")
 Next
 
@ all: top! bedankt allen voor de hulp.
probleem is opgelost, op naar het volgende :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan