Jump to content

Completar registro hacia la derecha


Recommended Posts

Hola! amigos del foro quisiera solicitarles la colaboración con lo siguiente: Estoy intentado crear un formulario para capturar el registro de tiempos , este debe ser asociado a un evento inicio y un evento final, ósea como si apilara los datos hacia la derecha, en este formulario el usuario solamente pasa su id por un lector de código de barras o bien digita su numero de ID, selecciona la actividad y guarda el registro, mediante un botón.

Los problemas que no logró solucionar:

1. El usuario en el primer evento realiza el registro  en una  hora determinada  y selecciona la actividad  a realizar, guarda el registro. hasta aqui creo tenerlo bien. Entiéndase sería como el inicio de esa actividad

2. En el segundo evento se debe completar los mismos datos , esto significa que nuevamente digita o scanea su id, selecciona la actividad y guarda. Como este registro debe completa el primero  creado no logro acomodar las ideas, ni resolver como hacer para que queda en la misma fila, como se resalta en amarillo. 

3. Cómo puedo lograr que cuando se scane el id o se digite, automáticamente busque el nombre de la persona? esta información se mantendrá en la hoja MANT.

4.  Cómo logro cargar en el textbox3 la hora, igual como se hace con la fecha y el usuario.

5. Cómo puedo lograr que basado en la fecha obtenida busque la semana que corresponde esa fecha ,  el dato de la semana se encuentra en la hoja BD columna Z & AA.

Agradezco la ayuda que puedan brindarme.

 

Saludos

JB

Consulta.xlsm

Link to comment
Share on other sites

Hace 14 horas, Gerson Pineda dijo:

Hola Jose!

Parece que hay varias preguntas en tu tema, por lo que te recomiendo, hagas una a una

De esa forma, explicas con mas detalle y luego tu vas adaptando

Y así seguro recibes mas colaboración

 

Saludos 

Hola! @Gerson Pineda me percaté tarde cuando realice la consulta, el enfoque era sobre como buscar ese primer registro y completar esos datos, ya en el foro hermano me han dado una mano con esto. Lo de más creo que puedo encaminarlo.

https://foro.todoexcel.com/threads/completar-registro-hacia-la-derecha-mediante-formulario.60632/#post-268911

Comparto por si llegase a existir una consulta similar, agradezco tu interés.

 

Saludos

JB

Link to comment
Share on other sites

Hace 14 horas, Janlui dijo:

Para que tengas un buen control de tus datos, cada evento deberia de generar un registro y no apilarlos.

Ahora, el primer escaneo deberá ser Inicio de Jornada y el último el Fin de Jornada

 

Hola! @Janlui exactamente esa es la finalidad, el registro creí hacerlo con el contador de  la columna A pensando que podía facilitar la búsqueda. He avanzado con la ayuda en el otro foro, pero igual si tienes alguna sugerencia es bien recibida.

 

https://foro.todoexcel.com/threads/completar-registro-hacia-la-derecha-mediante-formulario.60632/#post-268911

Saludos

JB

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 72 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      170
    • Comments
      89
    • Reviews
      26

  • Crear macros Excel

  • Posts

    • Buenas noches profesor Antoni y demás miembros del foro. Tanto con la solución suya como la del profesor HDD resuelvo el problema y está es una tercera variante que nunca viene mal, porque todo lo que se aprende no pesa ni estorba Gracias por el enlace, en cuanto tenga el chance lo reviso. Necesito una última petición a ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado. Agradecido como siempre y mis respetos a ustedes. Pino
    • Utilizando la función  WorksheetFunction.Clean se eliminan la mayoría de caracteres no imprimibles.   Eliminar caracteres no imprimibles
    • Buenas tardes reiteradas. Que bien que se sumó el profesor Antoni a la solución. Qué provilegio, JSD y Antoni, no podría estar en mejores manos. Gracias a ambos por su respuestas, pero tengo una duda más. En el caso de Antoni manifiesta que el caracter es el 001 del ASCII, pero pregunto, si fuera otro caracter este códiogo me serviría también o hay que modificarle algo? Mis respetos a todos los miembros del Foro y en especial a Antoni y JSD. Agradecido. Pino
    • Hola Antoni, te adelantaste, bueno dejo lo mismo de otra manera Sub EliminarCaracteres(): Application.ScreenUpdating = False Dim rango As Range Dim datos As Variant Dim i As Long, j As Long With Hoja2 '>>>>> pon la hoja donde quieras trabajar Set rango = .Range("A4:M" & .Cells(.Rows.Count, "A").End(xlUp).Row) datos = rango.Value For i = 1 To UBound(datos, 1) For j = 1 To UBound(datos, 2) datos(i, j) = Application.WorksheetFunction.Clean _ (datos(i, j)) Next j Next i rango.Value = datos End With End Sub  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy