Dante Amor

Mmm, no entendí Y si mejor lo explicas con imágenes Procura que en las imágenes se vean las filas y las columnas de excel Pon una imagen antes de la macro, explica qué dato vas a poner Y en otras imágenes pon el después de la macro, explica qué datos...

Le hice algunos ajustes a tu primer macro y me funciona. Sub CopiarPedidos() Application.ScreenUpdating = False Dim Celda As Range, Lista As Range Set h1 = Sheets("PLAN") Set h2 = Sheets("ANALISIS") 'Recorrer la Lista --> copiar fecha en celda de...

Revisa la siguiente respuesta Listar el nombre de los archivos según fecha de modificación

Tal vez, solamente necesitas un formato personalizado, realiza lo siguiente: - Selecciona la columna "O" (PTU) - Entra al Menú Inicio, Formato, Formato de celdas, Número, Personalizada - En Tipo escribe 0000.00 - Presiona el botón Aceptar - Listo...

Te anexo la macro. La macro revisa desde la fila 2 y hasta la última celda con datos de la columna T. Sub Agregar_cero() For i = 2 To Range("T" & Rows.Count).End(xlUp).Row cad = "" nums = Split(Cells(i, "T").Value, "|") For j = LBound(nums) To...

Te anexo las 2 opciones, utiliza la que necesites: Opción 1 columna A,B y C Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'verfica el cambio en las columnas A, B y C, pero después de la fila 2 ' If Not Intersect(Target,...

Revisa los siguientes ejemplos: Envío de emal por Outlook desde excel Macro envío de libro excel por correo con firma

Te anexo la macro Private Sub btncalc_Click() 'Por Dante Amor For i = 3 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value = 1 Then fila = i Else Cells(i, "S").Value = Cells(i, "E").Value * Cells(fila, "T").Value End If Next MsgBox "Fin"...

Te anexo la macro Sub Eliminar_Fila() 'Por Dante Amor Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A").Value = "" Or _ LCase(Cells(i, "A").Value) = LCase("No aplicable") Then...

Revisa el siguiente artículo, ahí explico cómo consolidar archivos. https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html Sub Importar_Datos() ' ' Por.Dante Amor ' ' Set l1 = ThisWorkbook Set h1 =...