Hoi HelpMij helpers,
Ik heb een macro nodig om een vervolgactie in gang te zetten, in VBA (excel).
In mijn excel bestand, op Blad2 heb ik een aantal kolommen met namen staan. In kolom A staan namen met een bepaalde functie, In kolom B mensen met een andere functie, enz.
Nu wil ik graag een macro die het volgende doet:
-Voorbeeld kolom A-
Indien de naam ergens in kolom A gelijk is aan de Application.Username is, dan een msgBox " JA", en anders een msgBox "NEE"
-Voorbeeld kolom A en D-
Ik zou het fijn vinden als ik het zou kunnen uitbreiden, dus zoiets:
Indien de naam ergens in kolom A OF ergens in kolom D gelijk is aan de Application.Username is, dan een msgBox " JA", en anders een msgBox "NEE"
Zelf had ik wel een cel kunnen gebruiken hiervoor, met de volgende makkelijke code hieronder. Maar dit tot een bereik van kolommen maken voor Blad2 lukt me dan weer niet. Volgens mij ligt het me voor het grijpen, maar ik ga er op stuk.
Sub Voorbeeld()
If [a1].Value = Application.UserName Then
MsgBox "ja"
Else
MsgBox "nee"
End If
End Sub
In deze voorbeelden is de vervolgactie een msgbox, maar ik zal het ook gebruiken om andere macro's van start te laten gaan.
Ik hoop dat iemand een antwoord heeft, of een verwijzing ernaar.
Alvast Hartelijk Bedankt!
Ik heb een macro nodig om een vervolgactie in gang te zetten, in VBA (excel).
In mijn excel bestand, op Blad2 heb ik een aantal kolommen met namen staan. In kolom A staan namen met een bepaalde functie, In kolom B mensen met een andere functie, enz.
Nu wil ik graag een macro die het volgende doet:
-Voorbeeld kolom A-
Indien de naam ergens in kolom A gelijk is aan de Application.Username is, dan een msgBox " JA", en anders een msgBox "NEE"
-Voorbeeld kolom A en D-
Ik zou het fijn vinden als ik het zou kunnen uitbreiden, dus zoiets:
Indien de naam ergens in kolom A OF ergens in kolom D gelijk is aan de Application.Username is, dan een msgBox " JA", en anders een msgBox "NEE"
Zelf had ik wel een cel kunnen gebruiken hiervoor, met de volgende makkelijke code hieronder. Maar dit tot een bereik van kolommen maken voor Blad2 lukt me dan weer niet. Volgens mij ligt het me voor het grijpen, maar ik ga er op stuk.
Sub Voorbeeld()
If [a1].Value = Application.UserName Then
MsgBox "ja"
Else
MsgBox "nee"
End If
End Sub
In deze voorbeelden is de vervolgactie een msgbox, maar ik zal het ook gebruiken om andere macro's van start te laten gaan.
Ik hoop dat iemand een antwoord heeft, of een verwijzing ernaar.
Alvast Hartelijk Bedankt!