mercredi 28 janvier 2015
If functie binnen een If functie
Posted on 09:19 by Unknown
Hallo,
Ik heb op dit moment twee macro's geschreven die het beide prima doen en tot zo ver geen probleem.
Maar nu wil ik ze samen voegen tot één macro en dan loop ik vast, hopelijk kunnen jullie mij helpen.
Wanneer er in cel A3 bijvoorbeeld een 3 staat moet macro A gedraaid worden, wanneer er een 4 staat moet macro B gedraaid worden.
Nu wil ik ze samen voegen en met een If functie bepalen welke macro ik moet draaien, maar dan loop ik vast.
In mijn reeds gemaakt macros staan namelijk ook al If functies en nu krijg ik steeds de fout dat er geen einde If in staat. Deze zet pas helemaal aan het einde na de twee macros, maar dat blijkbaar fout.
Ik weet niet waar ik wat neer moet zetten of dat ik submacro of iets dergelijks erin moet zetten.
Kan iemand mij hierbij helpen?
Een voorbeeld van één van de twee macros (een versimpelde versie er staat nog meer in) hieronder:
MACRO A
celltxt = ActiveSheet.Range("F4").Text
If InStr(1, celltxt, "Tennis") Then
Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("G4").Select
ActiveCell.FormulaR1C1 = "Akkoord, Trainer"
End If
MACRO B
celltxt = ActiveSheet.Range("F4").Text
If InStr(1, celltxt, "Tennis") Then
Columns("H:H").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("H4").Select
ActiveCell.FormulaR1C1 = "Akkoord, Trainer"
End If
Ik heb op dit moment twee macro's geschreven die het beide prima doen en tot zo ver geen probleem.
Maar nu wil ik ze samen voegen tot één macro en dan loop ik vast, hopelijk kunnen jullie mij helpen.
Wanneer er in cel A3 bijvoorbeeld een 3 staat moet macro A gedraaid worden, wanneer er een 4 staat moet macro B gedraaid worden.
Nu wil ik ze samen voegen en met een If functie bepalen welke macro ik moet draaien, maar dan loop ik vast.
In mijn reeds gemaakt macros staan namelijk ook al If functies en nu krijg ik steeds de fout dat er geen einde If in staat. Deze zet pas helemaal aan het einde na de twee macros, maar dat blijkbaar fout.
Ik weet niet waar ik wat neer moet zetten of dat ik submacro of iets dergelijks erin moet zetten.
Kan iemand mij hierbij helpen?
Een voorbeeld van één van de twee macros (een versimpelde versie er staat nog meer in) hieronder:
MACRO A
celltxt = ActiveSheet.Range("F4").Text
If InStr(1, celltxt, "Tennis") Then
Columns("G:G").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("G4").Select
ActiveCell.FormulaR1C1 = "Akkoord, Trainer"
End If
MACRO B
celltxt = ActiveSheet.Range("F4").Text
If InStr(1, celltxt, "Tennis") Then
Columns("H:H").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("H4").Select
ActiveCell.FormulaR1C1 = "Akkoord, Trainer"
End If
If functie binnen een If functie
Categories: If functie binnen een If functie
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire