Gebruik van formule index

[lampelek]

Beste mensen.

ik ben bezig met een Excelsheet waarin ik het volgende wil bereiken
1. invoer is een tekst (cursus1) (cursus2) etc
2. Cursus1 heeft code "CB" nodig, cursus 2 code "BL" (ik wil de code automatisch laten verschijnen in het veld "code" op basis van een matrixtabel na de invoer door de gebruiker).
3. resultaat veld "bedrag" moet bij code "CB" vervolgens gevuld worden met € 0,00 en bij code "BL" moet gebruiker een melding krijgen een bedrag in te voeren.

Het lukt me nog niet dit te realiseren.

Weet iemand een oplossing :thumb:
Alvast bedankt voor het meedenken.

 

[Roncancio]

Beste mensen.

ik ben bezig met een Excelsheet waarin ik het volgende wil bereiken
1. invoer is een tekst (cursus1) (cursus2) etc
2. Cursus1 heeft code "CB" nodig, cursus 2 code "BL" (ik wil de code automatisch laten verschijnen in het veld "code" op basis van een matrixtabel na de invoer door de gebruiker).
3. resultaat veld "bedrag" moet bij code "CB" vervolgens gevuld worden met € 0,00 en bij code "BL" moet gebruiker een melding krijgen een bedrag in te voeren.

Het lukt me nog niet dit te realiseren.

Weet iemand een oplossing :thumb:
Alvast bedankt voor het meedenken.

Waar is het sheet?
Dat werkt wat makkelijker.

Met vriendelijke groet,


Roncancio

 

[lampelek]

Bestand toegevoegd

Beste mensen,

Hierbij, bedankt voor de tip, een voorbeeld bestand met de benodigde info

ben benieuwd

bedankt alvast weer

 

[HSV]

Zoiets misschien lampelek?

 

[Warme bakkertje]

Je kan ook met Select Case werken (is flexibeler dan allemaal If...then...else)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A8")) Is Nothing Then
    Select Case Target.Offset(0, 1).Value
        Case Is = "CB"
            Target.Offset(0, 2).Value = "0,00"
        Case Is = "BL"
            Target.Offset(0, 2).ClearContents
            MsgBox "Waarde invullen in kolom C, achter BL"
    End Select
End If
End Sub

Mvg

Rudi

 

[lampelek]

Thanx HSV

Zoiets misschien lampelek?

Dit is wel een oplossing voor het koppelen van de code aan de invoer.
Bedankt voor het meedeneken.:thumb:
Ik ga bezien of dit ook kan werken met een veel grotere lijst van cusussen.

 

[lampelek]

Thanx Warme Bakkertje

Je kan ook met Select Case werken (is flexibeler dan allemaal If...then...else)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A8")) Is Nothing Then
    Select Case Target.Offset(0, 1).Value
        Case Is = "CB"
            Target.Offset(0, 2).Value = "0,00"
        Case Is = "BL"
            Target.Offset(0, 2).ClearContents
            MsgBox "Waarde invullen in kolom C, achter BL"
    End Select
End If
End Sub

Mvg

Rudi

Hoi Warme Bakkertje

Wellicht draag je een hele mooie oplossing aan:thumb:
Ik weet echter nog niet hoe ik hier mee om moet gaan en hoe ik deze code precies kan anpassen in het originele sheet dat vele malen meer curssen gaat bevatten

Dus concreet; kun je me wat meer uitleg geven.
Mag ook via de mail

 

[Warme bakkertje]

Ik heb de code wat aangepast, want met meerdere cursussen wordt de formule in de B-kolom onhoudbaar. Voor elke cursus maak je dan een Case Is bij.

Mvg

Rudi

 

[lampelek]

Bedankt

Allemaal bedankt voor het meedenken en het aandragen van oplossingen.
ik kan hier mee verder.:thumb::thumb::thumb:

 

[snb]

Ter vereenvoudiging van code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A3:A8")) Is Nothing Then
    sq=split("CB|BL|BL|ZW","|")
    st=split("0|geef bedrag op|geef bedrag op|100","|")
    target.offset(,1)=sq(replace(target,"cursus ",""))
    target.offset(,2)=st(replace(target,"cursus ",""))
  end if
End Sub