Dante Amor

El enfoque de esta macro es hacer la concatenación en memoria, de esa manera es más corta la macro y más rápida: Sub concatenar_permutaciones() Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long a = Range("A4:AD" & Range("A" &...

Revisa esta respuesta: Excel - Cómo enlazar 3 ComboBox dependientes

Prueba esto: Sub buscafactura() Dim fact As Variant Dim f As Range Dim sh As Worksheet fact = InputBox("Entra factura: ", "Número o parte del número") If StrPtr(fact) = 0 Then MsgBox "Click Cancel" Exit Sub ElseIf Len(fact) = 0 Then MsgBox "Entra un...

¿En qué parte del código se demora más? ¿En la parte donde borras? ¿O en la parte donde agregas los registros? ¿Cuántos registros estás agregando? ¿Es necesario agregar el registro al inicio de la tabla? Eso implica que debes recorrer los 6000...

En otras columnas o entra hoja debes poner los nombres únicos con su respectivo DNI o Cif. Por ejemplo: Si en la columna C vas a capturar varias veces el mismo nombre. Entonces buscas ese nombre en la columna "Z" : De esa manera no tendrás error...

Ejecuta la siguiente macro: Sub Unificar() 'Por Dante Amor Dim c As Range Dim dic As Object Dim v As Variant ' Set dic = CreateObject("Scripting.Dictionary") dic.comparemode = vbTextCompare For Each c In Range("A2", Range("A" & Rows.Count).End(3))...

Tienes pendiente por valorar esta respuesta: Comprar Rangos con data similar

[Ho la y bienvenida a TodoExpertos! Hice algunos ajustes, prueba el siguiente: Sub Copiar_Hoja() 'Definir objetos a utilizar Dim wsOrigen As Worksheet Dim sPath As String, Nombrearchivo As String Dim NombreCopy As String, NombrePDF As String Dim...

Excel está preparado para completar el año, si solamente pones 8 nov 8-11 8/11 Excel completa el año actual con 2021. Pero si no indicas el mes, entonces excel no completa el año. Asume que si pones 8, estás poniendo solamente un número. Si quieres...

Suponiendo que las columnas son A, B, C y que los datos empiezan en la fila 2. Prueba esto: Sub SeleccionarPrimerCeldaVisible() Dim c As Range For Each c In Range("C2", Range("C" & Rows.Count).End(3)) If c.EntireRow.Hidden = False Then c.Select Exit...