Dante Amor

Para ponerte en contexto, lo que debe hacer la macro es pasar los datos de la hoja1 a la hoja2, pero en la hoja2, si existen duplicados, se deberán concatenar un par de columnas. Aquí el ciclo de la macro: For i = 2 To h1.Range("A" &...

Te anexo la macro Sub Cronograma_Pagos() 'Por.Dante Amor Application.ScreenUpdating = False Range("E4:J" & Rows.Count).ClearContents numpagos = Range("C3") + 3 Range("E3:E" & numpagos).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _...

Te anexo la macro. En la "Hoja1" en la fila 1 pon tus encabezados, a partir de la fila 2 pon tus datos. En la "Hoja2" quedarán los resultados Sub Concatenar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'hoja origen con datos Set h2 = Sheets("Hoja2")...

Para eliminarlos del listbox y de la hoja, necesito saber cómo los cargaste en el listbox. Puedes poner el código que utilizaste para cargar los datos en el listbox

Puedes explicar con imágenes y con ejemplos, lo que tienes, en dónde están los hijos, en dónde vas a poner al padre y en dónde quieres el resultado. Procura que en las imágenes se vean las filas y las columnas de excel

Te anexo una versión para enviar el libro activo. Completa la macro con lo siguiente: "nuevo" por el nombre del archivo que quieras ponerle "Asunto" por el asunto que quieras que lleve el corre "[email protected]" por el correo del destinatario Sub...

Te anexo la macro. Cambia en la macro "Hoja1" por el nombre de tu hoja con datos. Crea una hoja llamada "Hoja2" y ejecuta la macro Sub Macro1() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2")...

Te anexo la macro Sub Macro1() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row With Range("C1:C" & u) .FormulaR1C1 = "=IF(RC[-2]=""Bajado"",""Si"", ""No"")" .Value = .Value End With End Sub . 'S aludos. Dante Amor. Recuerda valorar la...

Tengo que revisar toda la macro y ver cómo tienes tus datos en las hojas. Envíame tu archivo para actualizar tu macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Andres zu”

Te anexo la macro. Cambia "facturacion" por el nombre de la hoja que quieras guardar Sub Guardar_Factura_Como_Pdf() ' ' Por.Dante Amor ' ' ruta = "C:\Gestion\" ruta = "C:\trabajo\" Set h = Sheets("facturacion") Set h2 = Sheets("F. Generadas") arch =...