acortar el ciclo for
Publicado por mauricio (8 intervenciones) el 30/07/2020 16:45:54
Como podria meter acortar el siguiente codigo,en un ciclo for,ya que solo ira cambiando el numero de combobox:
espero y puedan ayudarme
saludos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Combobox5_Change()
On Error Resume Next
valor = ComboBox5.List(ComboBox5.ListIndex, 0)
If valor = "" Then
If ComboBox5 <> "" Then
MsgBox "No se permiten valores diferentes a los del combo", vbCritical, "Error"
ComboBox5.SetFocus
ComboBox5 = ""
End If
End If
If ComboBox1 = "lun" Then
Call ValidarCelda2
End If
If ComboBox1 = "mar" Then
Call ValidarCelda2
End If
If ComboBox1 = "mié" Then
Call ValidarCelda2
End If
If ComboBox1 = "jue" Then
Call ValidarCelda2
End If
If ComboBox1 = "vie" Then
Call ValidarCelda2
End If
If ComboBox1 = "sáb" Then
Call ValidarCelda2
End If
If ComboBox1 = "dom" Then
Call ValidarCelda2
End If
End Sub
espero y puedan ayudarme
saludos
Valora esta pregunta


-1