Dante Amor

[Ho la y bienvenido a TodoExpertos. Prueba la siguiente macro. - Pon la macro en el "libro1". - El libro2 también deberá estar abierto. - Los registros serán pegados en el libro2, en la primera hoja. - La macro asume que los encabezados del libro1,...

[Hol a y bienvenido a TodoExpertos. Pon el siguiente código en los eventos de la hoja donde quieres dar doble clic. Cambia en el código las "D" por la columna donde quieres dar doble clic Cambia en el código "Hoja2" por el nombre de la hoja donde...

En tu ejemplo pusiste en la columna2: Dato3, dato2 y dato1 Pero en el resultado pusiste otros valores: Dato1, dato3 y dato5 Puedes revisar tus ejemplos y explicar qué necesitas.

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

Puedes subir tu archivo a google drive y compartirlo. Lo reviso y te ayudo con el código.

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

Prueba esto: Sub Cambiar() Dim f As Range, r As Range Dim cell As String Set r = Range("H3", Range("H" & Rows.Count).End(3)) Set f = r.Find("Cambio", , xlValues, xlWhole, , , False) If Not f Is Nothing Then cell = f.Address Do f.Offset(, 1).Value =...