Dante Amor

¿Y cómo cargaste el array? Si estás trabajando con matrices, la matriz se carga en memoria, puedes hacer un loop a la matriz y cargar en una segunda matriz los datos filtrados. Como ambas matrices están en memoria, la respuesta debe ser inmediata....

Tu macro no tienen ninguna de las 5 condiciones, solamente elimina duplicados y eso si están ordenados por color, como en tu ejemplo. Pero te preparo una nueva. Revisando tus condiciones y tus ejemplos, me parece que no viene un ejemplo para esta...

Prueba la siguiente: Sub Reemplazar_Datos() Dim f As Range, c As Range ' For Each c In Range("I2", Range("I" & Rows.Count).End(3)) Set f = Range("B:B").Find(False, , xlValues, xlWhole, , , False) If Not f Is Nothing Then f.Resize(c.Value, 1).Value =...

En la variable "n" asignas el número de registros. En la variable "m" quedará el total de hojas. Si tienes la función redondear hacia arriba, puede ser: Sub test1() Dim n As Double, m As Double n = 185 m = WorksheetFunction.RoundUp(n / 12, 0) End Sub...

Qué tipo de listas son. De validación de datos, Combobox de formulario, combobox de control activeX. La única manera es con controles de combobox active X.

Prueba lo siguiente: Sub copiar_celdas_diferentes_pegar_otro_libro() Dim archivo As String Dim fso As Object Dim wb2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range ' Application.DisplayAlerts = False Application.ScreenUpdating =...

Y pegarla en la celda H5 de otro libro (h2) ¿El otro libro está abierto? ¿Cómo se llama el otro libro? ¿Cómo se llama la hoja del otro libro?

Al parecer alguna biblioteca o módulo de excel se borró o se modificó. Si entras al Botón de Office. Opciones de excel. Complementos. En la parte inferior presiona el botón que dice "Ir...". En la siguiente ventana, desmarca todos los Complementos y...

Según tu ejemplo, el nombre corto debe quedarse. Prueba la siguiente macro. El resultado lo pone en la columna Z para que compares los resultados: Sub CambiarNombre() 'Por Dante Amor Dim a As Variant, b As Variant Dim i As Long, j As Long a =...

Puedes poner un formato condicional Utiliza esta fórmula: =Y(LARGO($A2)<7,LARGO($A2)>0) La macro: Sub PonerColor() Dim c As Range For Each c In Range("A1", Range("A" & Rows.Count).End(3)) If Len(c.Value) < 7 Then c.Interior.Color = vbYellow Next End Sub