Freddy Maihuire

Aquí tienes información https://www.youtube.com/watch?v=8t5eAork964

Debido a que brindas información general, te puedo recomendar mi video para que consolides información de varios libros de excel. https://www.youtube.com/watch?v=8t5eAork964 Si quieres algo personalizado, me envías un mensaje.

Aquí puedes encontrar un tutorial que te enseñe a hacerlo fácil. http://www.exceltutos.com/2016/09/exportar-hoja-de-excel-pdf-usando-vba.html

Si no encuentra el resultado la función sumar. Si no muestra ningún error, lo que muestra es un cero, entonces puedes hacer la condición cuando el valor te muestre cero.

No deberías referenciar alas celdas entre si porque te va a salir error de referencia circular.

Espero esto te pueda servir. Sub Dividir_Numero() 'por www.exceltutos.com Dim Numero As Integer Dim NumeroCeldas As Integer Dim CuentaRepeticion As Integer Dim Total As Double Numero = 5 NumeroCeldas = 600 For Each celda In Range("A1:A600").Cells If...

Claro que es posible, si deseas enviame el diseño de tu formulario y yo te puedo ayudar con la programación. Eso no quiere decir que yo te pueda hacer todo el trabajo si no te tendría que asistir.

Tengo una macro que realiza lo que solicitas, en caso necesites que haga una modificación me escribes por aquí. http://www.exceltutos.com/2015/06/unir-todas-las-hojas-de-un-libro-de.html

Te muestro un video de como puedes realizarlo. https://www.youtube.com/watch?v=BJUCgbtxtfs

Eso lo puedes lograr usando subtotales, que se encuentra dentro de la ficha datos de la hoja de excel. No puedo ayudarte con mas ya que no subes tu archivo de excel.

Te aconsejaría subir tu archivo a algún servidor y compartir el link por aquí. Créeme que es difícil si solo pegas tu código, ¿dónde podría ver yo el problema? Mi trabajo no seria pegar todo el código en un archivo de excel y probar, eso lo deberías...

Sub Ir_UltimaFila() 'Por exceltutos.com uFila = Range("B" & Rows.Count).End(xlUp).Row Range("B6:L" & uFila).Select 'Selecciona el primer rango Range("M6:M" & uFila).Select 'Selecciona el segundo rango End Sub