Dante Amor

Aquí otra macro para tu consideración: Sub CopiarDatos() Dim c As Range, dic As Object Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("P2", Range("P" & Rows.Count).End(3)) dic(c.Value) = Empty Next For Each c In Range("M2",...

Aquí otra macro para ti a considerar: Sub CopiarDatos() Dim i As Long For i = 2 To Range("A" & Rows.Count).End(3).Row Range("E" & Rows.Count).End(3)(2).Resize(Cells(i, "C"), 3).Value = Range("A" & i).Resize(1, 3).Value Next End Sub Tus datos en las...

Puedes utilizar la siguiente fórmula: =BUSCARV(SUSTITUIR(E2," ","*"),A:B,2,0) Ejemplo:

Necesitamos agregar un identificador al momento de cargar los datos en el list_equipaments. Generalmente en la carga inicial pongo el número de fila, de esa manera sabremos cuál registro corresponde cuando lo seleccionas. Podrías poner todo tu código...

Puedes descargar de google drive mi archivo con algunas otras opciones: Macro para envíar correos masivos con adjuntos diferentes

Prueba la siguiente macro. En la hoja "Datos" en la celda A2 pon el número de tarima Los resultados estarán en la hoja "Datos" de la fila 4 hacia abajo. Sub Extraer_datos() Dim sh As Worksheet, tarima As String, lr As Long '...

Siguiendo con tu ejemplo de la hoja "CONTEO". Si el mes 0 en la columna B de la hoja "CONTEO", entonces pon la siguiente fórmula en AX2 =FECHA.MES((AS2&"/"&INDICE(CONTEO!$A$1:$A$50,COINCIDIR(0,CONTEO!$B$1:$B$50,0))&"/"&2020)+0,AW2) No importa el...

Aquí otra macro para ti para considerar. Sub PonerValores() Range("AY2:AY" & Range("Z" & Rows.Count).End(3).Row).Value = Range("Z2", Range("Z" & Rows.Count).End(3)).Value End Sub

Prueba lo siguiente: Sub LimpiarDatos() Dim i As Long, f As Range For i = 89 To 2 Step -1 Set f = Range("J" & i - 1 & ":J1").Find(Range("J" & i), , xlValues, xlWhole, , xlPrevious) If Not f Is Nothing Then Range("J" & i, "Z" & i).ClearContents Next...

Otra opción =Si(Izquierda(A2)="/",Sustituir(A2,"/","",1),A2)