Jump to content

AUTOMATIZACION DE INSERTAR FILAS Y RELLENAR


Recommended Posts

Buen día a todos, soy Victor, soy alguien que no sabe nada de macros, pero se que se puede crear las macros para automatizar algunas cosas y con esto ahorrar tiempo de trabajo, lo que yo hago es recibir un archivo muy grande de pacientes atendidos en una clínica dental, luego de esto el primer paso es ordenar alfabeticamente por el nombre que eso si lo se hacer, después de esto empieza lo que necesito que me ayuden, adjunto un archivo con indicaciones sobre lo que necesito, espero lo entiendan y comprendan que necesito hacer, vuelvo y repito no se absolutamente EJEMPLO.xlsxnada de macros.

Link to post
Share on other sites

Muchísimas gracias, de verdad es impresionante saber sobre esto de las macros, es lo que estaba buscando y me ayuda muchísimo, si no es mucha la molestia talvez me podrías explicar que es lo que haces, vuelvo y repito si es que puedes. Ahora te hago una pregunta porque hay un pequeño error cuando hay tres atenciones de la misma persona en diferentes fechas no le inserta las tres filas, la atención de la fecha 2 no aumenta las filas, talvez sabes porque? y de nuevo mil gracias es lo que se necesitaba. 

Link to post
Share on other sites

Nuevamente gracias, talvez yo no me explique bien pero ya noté que no se hace la comparación que más o menos es así y mil disculpas el abuso de tu excelente ayuda:

Si E2=E1 entonces pasa a comparar en la columna c si c2 = c1 si es verdadero pasaría a hacer lo mismo pero en e3=e2 si es verdadero pasa a comparar en la columna c si c3 = c4 y así hasta que encuentre algo negativo ya sea en la columna e o en la columna c, en ese momento que encuentra algo negativo hace lo que ya está diseñado por tu persona es decir aumenta las 3 filas y rellena las misma con la información, espero me entiendas y me puedas ayudar.

Edited by Victor Santacruz O
Link to post
Share on other sites
  • 2 weeks later...
a


  • Crear macros Excel

  • Posts

    • Quita que me tiznas, le dijo la sartén al cazo...
    • Lo primero que tienes que hacer es subir tu archivo de ejemplo, y explicar cómo funciona (¿dónde iría ese ID?) Así es imposible ayudarte
    • hola... prueba con: if range("h7") = "hangar" then     rows(7).copy destination:=sheets("Arrastre_Hangar").range("a" & rows.count),end(xlup).offset(1, 0) end if   si la celda h7 es hangar.. que copie toda la fila 7 y la lleve a la hoja.. "arrantre" y la ponga en la siguiente a la ultima escrita de la columna a
    • Que tal a todos ante todos y muchas gracias por el tiempo dispensado. tengo un formulario creado en userform por mi  para ingresar datos en una planilla.   ahora lo que estoy tratando de lograr y no puedo es lo siguiente : tengo un combobox con el nombre NIVEL Y PRO el cual al situarte en el  te da lo que seria el id de identificador de datos  me gustaría que al colocar el id  me trajera  automáticamente  el resto de los datos a la planilla    . puse  solo un botón de ingreso por que me parece mas simple  y fácil  la idea es que si meto un dato nuevo lo ingresa y si traigo un dato que ya existe   lo modifique en la misma linea   dejo el código que utiliza para que se den una idea  de como lo realice y me puedan orientar gracias  también  tuve que poner mas espacio blancos en el id  por futuras referencia nuevas a agregar pero me gustaría saber cual es la formula para que en el combobox no se muestre  los espacios en blanco  desde ya muchas gracias Private Sub CommandButton1_Click() Sheets("ingreso").Select ActiveSheet.Range("a3").Select Selection.EntireRow.Insert Range("a3") = TextBox1 Range("e3") = ComboBox7 Range("f3") = TextBox4   obviamente  son muchos codigos  no los pongo todos  y luego     ComboBox7 = Empty  TextBox4 = Empty  TextBox5 = Empty no se si me explicado bien espero que alguien pueda ayudarme o guiarme desde ya muchas gracias    
    • Seguro que hay celdas combinadas de por medio o un problema en el ámbito de las variables, pero como no has subido el archivo,......., prueba así: Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).Value = ""  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy