Contar textbox con un determinado valor o carácter

[petercien1]

Hola  a todos

Tengo una inquietud, he buscado por los foros en la web, pero no he encontrado algo similar.

En el siguiente tema plantee una situación respecto de suma en tiempo real, y las respuestas fueron muy buenas.

Mi idea es si se puede hacer lo mismo pero utilizando la opción de contar varios textbox de acuerdo a un criterio.

Adjunto un libro con un formulario, si código, ya que no se por donde ir.

Las variables a contar serian "V", "F".

 

Saludos Cordiales

Pedro Venegas 

contarsi textbox.xlsm

[petercien1]

Hola a todos

Utilice el siguiente código y funciona.

Private Sub TextBox1_Change(): CountIf: End Sub
Private Sub TextBox2_Change(): CountIf: End Sub
Private Sub TextBox3_Change(): CountIf: End Sub

Private Sub CountIf()
If TextBox1 = "V" Or TextBox1 = "v" Then Tot = Tot + 1
If TextBox2 = "V" Or TextBox2 = "v" Then Tot = Tot + 1
If TextBox3 = "V" Or TextBox3 = "v" Then Tot = Tot + 1

TextBox4 = Val(Tot)

End Sub

Espero sea de ayuda para alguien mas, y mas importante espero este bien diseñado el código, no soy experto, voy por la vida probando y muchas veces arruinando.

Ideal si algún forero de vuestra opinión.

Saludos Cordiales

Pedro 

[petercien1]

Hola de Nuevo

Agregue un nuevo textbox, para agregar una nueva funcion.

Private Sub TextBox1_Change(): SUM: CountIf: End Sub
Private Sub TextBox2_Change(): SUM: CountIf: End Sub
Private Sub TextBox3_Change(): SUM: CountIf: End Sub

Private Sub CountIf()
If TextBox1 = "V" Or TextBox1 = "v" Then Tot = Tot + 1
If TextBox2 = "V" Or TextBox2 = "v" Then Tot = Tot + 1
If TextBox3 = "V" Or TextBox3 = "v" Then Tot = Tot + 1

TextBox4 = Val(Tot)

End Sub


Private Sub SUM()
If IsNumeric(TextBox1) Then Tot = Tot + Val(TextBox1)
If IsNumeric(TextBox2) Then Tot = Tot + Val(TextBox2)
If IsNumeric(TextBox3) Then Tot = Tot + Val(TextBox3)

TextBox5 = Val(Tot)

End Sub

Funciona Perfecto, hasta el minuto.

Saludos Cordiales

Pedro Venegas

[petercien1]

Hola a todos

Favor dar por cerrar el tema

Saludos Cordiales

Pedro