Dante Amor

Va sin las comillas: Sumasf(1) = Sumasf(1) + Range(col & x) [No olvides valorar las respuestas

Por ejemplo, si el número está en la celda A2. Usa la fórmula =Izquierda(A2, 5) Nota: cambia en la fórmula a ( ; ) si lo utilizas como separador.

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...