Mostrar varias veces un userform segun condicion
Publicado por Delinger (1 intervención) el 24/10/2019 15:22:57
Buenos dias, quiero hacer lo siguiente, tengo un macro que me escanea varios datos y cuando haya un dato determinado "Aqui" (ejemplo) me muestre una userform. El problema es que si tengo varios "Aqui" no se ejecuta la forma en la segunda opcion.
con este codigo llamo al userform
y este es el user form, tiene dos lista de datos que muestra ,
Agradecido de antemano por su ayuda
con este codigo llamo al userform
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Do While ActiveCell.Value <> Empty
If ActiveCell.Value = "Aqui" Then
Dim formvet As New vetcajones
Load formvet
formvet.ShowUnload formvet
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
y este es el user form, tiene dos lista de datos que muestra ,
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
Private Sub ListBox1_Click()
Dim answer As Integer
answer = MsgBox("Estas seguro?", vbYesNo + vbQuestion, "Vetas")
If answer = vbYes ThenRange("M14").Value = ListBox1.List(i)
Unload Me
End If
End Sub
Private Sub ListBox2_Click()
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "N" & ActiveCell.Row
Me.ListBox1.ColumnCount = 1
Me.ListBox1.ColumnWidths = "25"
Me.ListBox2.RowSource = "O" & ActiveCell.Row
Me.ListBox2.ColumnCount = 1
Me.ListBox2.ColumnWidths = "25"
End Sub
Agradecido de antemano por su ayuda
Valora esta pregunta
0
