Consolidar columna
Hola, Buen día,
Solicito apoyo para extraer de una columna de Excel solo los datos únicos.
Ejemplo:
Columna a
1
1
2
2
Quisiera saber la instrucción para agregar a un combo solo
1
2
De antemano, Gracias.
Un saludos.
Solicito apoyo para extraer de una columna de Excel solo los datos únicos.
Ejemplo:
Columna a
1
1
2
2
Quisiera saber la instrucción para agregar a un combo solo
1
2
De antemano, Gracias.
Un saludos.
1 Respuesta
Respuesta de jgirj
1
Con un macro es posible.
Private Sub CommandButton1_Click()
Dim Fila As Long
Dim Agregar As Long
Range("B:B").Clear 'En la columna B quedarán los datos sin repetición
Fila = 1
Agregar = 0
Do While Not IsEmpty(Cells(Fila, 1)) = True
If WorksheetFunction.CountIf(Range("B:B"), Cells(Fila, 1)) = 0 Then
Agregar = Agregar + 1
Cells(Agregar, 2) = Cells(Fila, 1)
End If
Fila = Fila + 1
Loop
ComboBox1.ListFillRange = Range(Cells(1, 2), Cells(Agregar, 2)).Address
End Sub
Si no te sirve escribe de nuevo
Private Sub CommandButton1_Click()
Dim Fila As Long
Dim Agregar As Long
Range("B:B").Clear 'En la columna B quedarán los datos sin repetición
Fila = 1
Agregar = 0
Do While Not IsEmpty(Cells(Fila, 1)) = True
If WorksheetFunction.CountIf(Range("B:B"), Cells(Fila, 1)) = 0 Then
Agregar = Agregar + 1
Cells(Agregar, 2) = Cells(Fila, 1)
End If
Fila = Fila + 1
Loop
ComboBox1.ListFillRange = Range(Cells(1, 2), Cells(Agregar, 2)).Address
End Sub
Si no te sirve escribe de nuevo
