Jump to content

LARPI

Members
  • Content Count

    50
  • Joined

  • Last visited

About LARPI

  • Rank
    Advanced Member
  • Birthday 08/12/1977
  1. Hola Joshua, siento el retraso no entiendo que pasava que no havía forma de conectarme. Creo que ahora ya funciona correctamente he hecho pruebas con menos lineas y el resultado me salía correcto. Seguiré probando. Mucahas gracias por la ayuda. LARPI
  2. Lo siento pero no se q problema hay que solo puedo contestar con el movil. No puedo poner archivos pero el listado esperado. Los resultados no son los esperados. Cuando pueda adjunto archivo. Saludos
  3. No, no me interesan las repeticiones solo necesito el listado de los que hay. Si salen repetidos la cantidad total es incorrecta. Saludos
  4. Holo siento porque se que parece que haya abandonado el tema. Lo probe hace unos dias pero con las prisas no logre sacarlo. Espero tener mas tiempo para mirarlo detenidamente. Gracias
  5. Hola, primero d todo disculparme por haver tardado tanto en contestar. Muchos problemas. Joshua he ejecutado la macro que hay en el ultimo archivo que adjuntaste y aparecen muchas repeticiones. Lo probaste tu? Te salia bien? Espero poder estar mas conectado. Muchas gracias
  6. Perdona, es que voy un poco mal de tiempo y no me lo he podido mirar detenidamente. Saludos
  7. Perdona, te adjunto el archivo para que lo puedas ver. De todas formas he eliminado unas 2000 lineas del fichero porque ocupaba demasiado espacio y no había forma de poderlo adjuntar. Saludos y gracias LARPI EXISTv3.zip
  8. Joshua, no me funciona. Ahora mismo tengo un listado de 6500 lineas y se para el proceso dándome un error. Atte. LARPI
  9. Hola Gerson, copio aquí el código: Sub Botón208_Clic() Sheets("hoja1").Select Range("k1") = Sheets("hoja3").Range("C1") uf = Sheets("hoja2").Range("A" & Cells.Rows.Count).End(xlUp).Row Sheets("Hoja2").Range("A1:j" & uf).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("m1:m2"), COPYTORANGE:=Range("b6:j6") End Sub[/CODE] Aquí no puedo canviar directamente el copytorange por pastespecial. He porbado diferentes convinaciones pero no funciona. Saludos
  10. Gracias, es verdad me habia quedado bloqueada. Saludos
  11. Hola de nuevo, quería saber si en la instrucción CopyToRange habría la posibilidad que copiara sólo valores y mantuviera el formato de la hoja destino siempre igual. Gracias
  12. Hola, con un lector leo un códido de barras y tengo que separar su contenido. Adjunto fichero con lo que quiero conseguir, con las funciones de izquierda y derecha consigo sacar los extremos pero no las partes del medio del código. He diferenciado en colores los valores obtenidos para que se vea más claro de donde salen. Muchas gracias LARPI CÓDIGOV1.xls
  13. Hola Joshua, ahora he visto otro problema y es que en el select case sólo estan contempladas las opciones 1 y 2. No podría ponerse un valor libre en función de la base? es que si quiero añadir o cambiar tendría que ir aumentadando el código. A parte del problema de la base, he intentado hacer otro listado igual y por mucho que lo miro no funciona bién, ¿le podrías hechar un vistazo? yo ya no se que más canviar. Saludos EXIST.zip
  14. Te comento: Pero no entiendo para que sirve el (,-1), tendría que ser la base3 pero luego tampoco aparece en el listado. Tiene algo que ver el Resize(,3)? Ya me va bién que no aparezca la base en el listado, la pregunta era si la parte del código Resize(,3) es la que condiciona que no salga la base en el listado. . En cuanto a la validación de datos la hice porque paralelamente hacia un listado parecido donde el filtro base es más largo que 1, 2,... por lo qual hice la validación de datos mediante la opción Datos--> Validación de datos --> Datos de origen =lista. En el fichero adjunto no se bé porque al guardar el archivo y volverlo a abrir cada vez me desaparece la lista. LARPI
  15. Hola Joshua, he estado mirando el adjunto y funciona bién pero (como no) tengo un par de dudas. En primer lugar si añado otro vehículo no me aparece en el listado. En el archivo que adjunto he añadido el vehíiculo con matrícula 6666 en la base 2 y no me aparece al ejecutar la consulta. Por otro lado entiendo que la seleción de columnas a copiar la haces en esta parte del código: If n.Offset(, 5) = "A" Then .Range("A65536").End(xlUp).Offset(1, 0).Resize(, 3) = _ Array(n.Offset(, 4), n.Offset(, 2), n.Offset(, -1)) End If El (,4) entiendo que es la posición del criterio matrícula y el (,2) la posición de la marca. Pero no entiendo para que sirve el (,-1), tendría que ser la base3 pero luego tampoco aparece en el listado. Tiene algo que ver el Resize(,3)? No se si pregunto demasiado pero gracias Edición: en la celda J1 he puesto una celda desplegable mediante la validación de datos. La lista de oriben esta en la columna A de la hoja "BASE" . El problema es que cada vez que cierro el programa la validación de datos desaparece. Saludos Vehiculosv.6(1).xls
×
×
  • Create New...

Important Information

Privacy Policy