Dante Amor

Sí se pueden subir columnas NO continuas. Pon tu código VBA que tienes y te ayudo a adaptarlo, solamente dime qué columnas quieres cargar.

Y dónde quieres los resultados en la columna A y B Entonces ejecuta la siguiente macro: Sub Ultima_Penultima() uf = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = 1 To uf uc = Cells(i, Columns.Count).End(xlToLeft).Column If...

Revisa el siguiente artículo, ahí explico cómo enviar correos en base a una condición. https://www.gerencie.com/enviar-correos-con-condicion-desde-outlook-con-excel.html Solamente cambia la condición por una fecha. La macro: Sub Enviar_Correos() For...

Revisa la siguiente respuesta, ahí explico cómo enviar datos de excel a word Guardar documentos de acuerdo a un texto variable [si te ayuda la información, no olvides votar la respuesta y regresar a valorar

Puedes pasar un argumento como ByVal o como ByRef La diferencia es que cuando pasas el argumento como ByVal, en teoría ese dato no debes cambiarlo. Por ejemplo: Public Function impuestos_empleado(ByVal integrado, ByRef excedente) excedente =...

Te anexo la macro. Cambia en la macro "A1:D10" por el rango que quieras copiar. "hola.pptx" por el nombre del archivo que quieras ponerle. Sub Tabla_de_Excel_a_Ppoint() 'Por Dante Amor Application.ScreenUpdating = False 'La macro copia el rango de...

Tendrías que realizar una macro de consulta de factura. Mencionas que guardas los datos de la factura. Entonces en el formato de factura poner un botón; en el campo de factura escribir el número de factura que deseas consultar. La macro deberá...

Pon la siguiente macro en un módulo. La macro considera que tus datos empiezan en la fila 1. Después de la ejecución te pondrá en una nueva columna (una columna después de la última columna con datos), el resultado. Sub Datos_Repetidos() 'Por Dante...

Para el caso de hugo que solamente tiene 2 registros, ¿los dos registros se deben eliminar? Y para el caso de juan que solamente tiene 1 registro, ¿también qué se borre el registro?

Pon lo siguiente With Worksheets("Reporte_por_área").Cells(Rows.Count, 2).End(xlUp).Offset(3, 0) .Value = DGABDCENTRAL .Font.Bold = True End With [sal u dos. Dante Amor