Userform variabele toevoegen.

[Avalondra]

ik heb hier een deel van een macro in een userform.
Ik zou graag 01 van CheckTag01 willen vervangen door een variabele x.

heeft iemand hier misschien een oplsossing voor???

ik heb namelijk dit al geprobeerd maar werkt niet.

 If CheckTag0 & x & .Value = True Then

Private Sub tags()
x = Sheets("Library").Range("z2").Value
If number.Value < 5 Then
    If CheckTag01.Value = True Then
    number.Value = "" & vbCr & number.Value + 1
    Else
    number.Value = "" & vbCr & number.Value - 1
    End If
Else
MsgBox "Your not allowed to add more then 5 tags"
CheckTag01.Value = False
End If
End Sub

Greetz AvA

 

[Wigi]

If Controls(CheckTag0 & x).Value = True Then

Wigi

 

[snb]

Private Sub tags()
  If number.Value < 5 Then
    number.value=vbCr & number.Value + IIf(Me("CheckTag0" & j ).Value ,1,-1)
  Else
    MsgBox "Your not allowed to add more then 5 tags"
    Me("CheckTag0" & j).Value = False
  End If
End Sub

 

[Avalondra]

@ Wigi

ik heb het geprobeerd met die formule van jouw maar die werkt niet.


@ SNB een deel van jouw formule gaf de doorslag.

 Me("CheckTag0" & j).Value = False

maar ik snap alleen niet hoe dit werkt.

als je daar iets van uitleg over kunt geven zou fijn zijn.

   number.value=vbCr & number.Value + IIf(Me("CheckTag0" & j ).Value ,1,-1)

Greetz AvA

 

[Wigi]

If [B]Me.[/B]Controls(CheckTag0 & x).Value = True Then

 

[Avalondra]

bedankt voor deze vlugge reacties.

het is inmiddels opgelost door de bovenstaande formules.


Greetz AvA