Bij speciale code in andere cel een waarde laten komen.

[patrickje]

Hoi

Als ik in cel I15 een bepaalde code selecteer b.v. 7a of 4a zou ik in cel i1 een code nummer willen laten komen.
Hier zou b.v. 99 moeten komen.
Maar in de cel I1 zou je ook nog gewoon een getal ik moeten kunnen typen.

Hoe kan ik dit het beste oplossen ????

M.V.G.

 

[keesbl]

Hallo,

Een voorbeeldbestandje doet wonderen, maar als ik je vraag zo lees, zou het kunnen met vert.zoeken


Kees

 

[Joske2000]

vermits je nog een getal wil typen in cel I1 is een formule geen optie.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Cells(15, 9)
        If .Value = "4A" Or .Value = "7A" Then
        Cells(1, 9).Value = 99
    End If
    End With
End Sub

Joske

 

[patrickje]

Ik begrijp de vba code alleen doet hij niks als ik in de cel I9 uit de validatie lijst 4A selecteer.
Dan zou er in I1 de code 99 moeten verschijnen maar helaas.

Waar moet ik dit in zoeken

 

[patrickje]

Ok dit werkt nu er zat iets fout in de speciale tekens met mijn toetsenbord. lekker he je eigen rot zoeken.

Maar kan ik dit voor meerdere cellen doen b.v. van cellen A15 t/m A27

of moet ik dit per regel doen ???

 

[sylvester-ponte]

hoi patrickje

voort bordurend op de oplossing van Joske krijg je zo iets

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ControlleGebied As Range: Set ControlleGebied = [A15:A27]
    If Intersect(Target, ControlleGebied) Is Nothing Then Exit Sub
    Dim AntwoordGebied As Range: Set AntwoordGebied = [A1]
    Dim Code1 As String: Code1 = "4a"
    Dim Code2 As String: Code2 = "7a"
    Dim Antwoord : Antwoord = 99
    If Target = Code1 Or Target = Code2 Then AntwoordGebied = Antwoord
End Sub

groet sylvester

 

[patrickje]

Maar met deze code controleerd hij een hele rij toch ???

Is het mogenlijk dat hij regel bij regel controlleerd

B.V. controlle op cel I15 antwoord in A15 dan controlle op I16 antwoord in A16 enz.

 

[Joske2000]

Dan wordt het zoiets :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 15 To 27
    If Cells(i, 9).Value = "4A" Or Cells(i, 9).Value = "7A" Then
    Cells(i, 1).Value = 99
    End If
Next
End Sub

Joske

 

[patrickje]

controleerd deze formule regel voor regel ???
of past hij gelijk de kolom aan

eigenlijk zou elke regel apart moeten zijn

 

[sylvester-ponte]

stuur eens een voorbeeldbestandje
en test ook eens wat er gestuurd wordt

groet sylvester

 

[patrickje]

Hey bedankt ik heb momenteel problemen met speciale tekens er stond dus wat verkeerd.

Ik ben alleen nu de formulle aan het doornemen maar ik begrijp dit stukje niet : If Cells(i, 9).Value = "4A" Or Cells(i, 9).Value = "7A" Then


waar staat (i, 9) voor ???

En is het mogelijk om nog een aantal codes in te geven moet ik dan telkens deze code : Or Cells(i, 9).Value = "7A" aanpassen of kan ik een code opsomming maken ???/

 

[sylvester-ponte]

cells(i,9)
die i staat voor de rij
en de 9 staat voor de kolom
het zijn dus de coordinaten op de actieve sheet (of bald)

groet sylvester

ps waar blijft het voorbeeld bestandje?

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [I15:I27]) Is Nothing Then
        Select Case Target.Value
            Case "7a"
                Cells(Target.Row, 1) = 99
            Case "4a"
                Cells(Target.Row, 1) = 99
        End Select
    End If
End Sub

Met deze kan je eenvoudig de te controleren waardes uitbreiden alsook de weer te geven waardes uitbreiden.

 

[patrickje]

Hey jongens jullie hebben mij weer goed geholpen

Dank je