Freddy Maihuire

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

Creo que ha pasado mucho tiempo desde que hiciste la pregunta. Envío una función donde indico la respuesta. Function UnirCeldas(Rango As Range) For Each celda In Rango concat = concat & celda & "," Next UnirCeldas = Left(concat, Len(concat) - 1) End...

Podrías explicar en que hoja quieres el importe.

Disculpa por demorar en resoponder: Entra a este enlace, ejecutas la macro "Crear_Hojas_Unicas" http://www.mediafire.com/view/8sw3usvut7yaf6p/Crea_hojas_unicas.xlsm

Mándame un ejemplo de tu archivo para trabajar sobre el, mi correo es [email protected]

Te envío el siguiente código, espero te pueda servir. Ejecuta la macro y en el inputbox te pedirá la fecha. Sub insetar_fecha() Dim a As Integer Dim c As Integer Dim e As Integer Dim MiValor As Variant MiValor = InputBox("Ingrese una fecha") numA = 0...

Te envío el archivo que trabaje, espero te sirva, cualquier comentario me envías Saludos http://www.mediafire.com/view/2junb2043dm3q3c/Seleccionar_Lista_desplegable.xlsm

En ese caso yo creo que seria mejor que crees una plantilla con los estilos que tu desees, Cada vez que quieras crear un libro eliges la plantilla y se crea el libro con los estilos que le diste. Quizás esa pueda ser una solución.

Te podría dar una posible solución, ya que con la función buscarv siempre te muestra el resultado del primer dato que es igual. La opción que te podría dar es concatenar el numero que se repite con la posición. Por ejemplo si existen dos veces "100"...