Combobox
Buenos días.
Por favor necesito que me ayudes a crear un combobox que tome los datos de una hoja y los vuelque en otra hoja. Ojalá el combobox fuera de múltiples selecciones.
Como siempre te lo agradecería mucho chao!...
Por favor necesito que me ayudes a crear un combobox que tome los datos de una hoja y los vuelque en otra hoja. Ojalá el combobox fuera de múltiples selecciones.
Como siempre te lo agradecería mucho chao!...
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Si disculpame, es un listbox; por favor necesito el ejemplo
Gracias!...
Gracias!...
Aquí está un ejemplo que me encontré para que lo adaptes a tus necesidades.
Private Sub ListBox1_Click()
Dim LastRow As Long
LastRow = Worksheets("PERSONAL").Range("E65536").End(xlUp).Row + 1
With ListBox1
elegido = .ListIndex
If elegido <> -1 Then
Cells(LastRow, "E").Value = .List(elegido, 0)
Cells(LastRow, "F").Value = .List(elegido, 1)
'Cells(LastRow, 6).Value = .List(elegido, 2)
Cells(LastRow, "L").Value = .List(elegido, 3)
Else
Exit Sub
End If
End With
End Sub
Private Sub ListBox1_Click()
Dim LastRow As Long
LastRow = Worksheets("PERSONAL").Range("E65536").End(xlUp).Row + 1
With ListBox1
elegido = .ListIndex
If elegido <> -1 Then
Cells(LastRow, "E").Value = .List(elegido, 0)
Cells(LastRow, "F").Value = .List(elegido, 1)
'Cells(LastRow, 6).Value = .List(elegido, 2)
Cells(LastRow, "L").Value = .List(elegido, 3)
Else
Exit Sub
End If
End With
End Sub
