¿Cómo poder seleccionar una celda especifica con datos de un listbox? Excel VBA
Tengo un listobox que me carga los datos los cuales falta una fecha para introducirla.
Tras otras experiencias personales y cuestiones resueltas aquí he decidió añadir en el listbox otra columna que me indica el numero de fila del dato cargado
Como se ve en la imagen el ultimo dato que se muestra en el listbox corresponde a las filas de los registros que faltan fecha marcados en rojo.
El problema viene cuando introduzco la fecha y pulso en botón aceptar que no hace nada y no me da ningún error.
Private Sub confirmar_Click()
Dim conta As Integer, fila As Integer
On Error Resume Next
For X = 0 To Me.list_confirmacio.ListCount - 1
If Me.list_confirmacio.Selected(X) = True Then
conta = conta + 1
End If
Next X
If conta = 0 Then
MsgBox ("S'ha de seleccionar un camp com a minim")
Exit Sub
End If
If conta <> 0 Then
For X = 0 To Me.list_confirmacio.ListCount - 1
fila = list_confirmacio.List(, 8)
If Me.list_confirmacio.Selected(X) Then
Sheets("Dades").Cells(fila, "N").Select
ActiveCell.Offset(0, 0) = Confirmacio.data.Value
Me.list_confirmacio.Selected(X) = False
End If
Next X
End If
End subQue estoy haciendo mal?
1 respuesta
Respuesta de Programar Excel
1
