Jose BN

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

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

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

Hola! @viciana como no explicas que macro es la que debe ejecutarse, revisando tu proyecto ya existe esto que cada vez que cambies de hoja: Private Sub Worksheet_Change(ByVal Target As Range) Call Ordenar End Sub Te comparto un ejemplo de lo que menciona @avalencia Private Sub Worksheet_Activate() Worksheets("Hoja2").Visible = False--si quieres ocultar una hoja Call ordenar--- llama a la macro que ordena los datos End Sub Espero sea lo que buscabas aclarar. Saludos JB

@amontalanolla el foro es de ayuda sobre consultas puntuales, pero lo que presenta parece una tarea que quieres sea resuelta, espero puedas conseguir ayuda.

@Janlui en un aporte de @Cacho R en el foro hermano hay un aporte en el que se evalúa si hay conexión a una pagina web, no sé si te podrá servir de algo: Function VerificaURL() As Boolean With CreateObject("Microsoft.XMLHttp") .Open "Get", "https://www.google.com.ar", False On Error Resume Next: .Send: On Error GoTo 0 VerificaURL = .readyState = 4 And .Status = 200 End With End Function https://foro.todoexcel.com/threads/ejecutar-macro-solo-cuando-haya-conexión-a-internet.43403/ Por último te comparto el aporte de @Héctor Miguel en el mismo post. Private Declare Function EstadoConexionInternet Lib "wininet" _ Alias "InternetGetConnectedState" (ByRef opciones As Long, _ ByVal reservado As Long) As Long Private Function InternetConectado() As Boolean Dim opciones As Long EstadoConexionInternet opciones, 0& InternetConectado = opciones And (&H1 Or &H2 Or &H4) End Function

@Antoni lo termine de resolver con la ayuda de @avalencia: UserForm1.TextBox3 = (CDate(UserForm1.TextBox1) - CDate(UserForm1.TextBox2)) / 365 Gracias por todo. Saludos

Excelente trabajo! se ve muy bueno.

Es un gusto poder ayudar en algo. Saludos

@Antonitomando tú sugerencia algo parece no darme el resultado correcto, podrías darle una revisada. Consulta fecha.xlsm

@Janlui no sería práctico utilizar la propiedad ControlTipTex del label?

@JSDJSDEra eso, saludos!

20211206_143515.mp4

Hola! gracias @Antoni & @JSDJSD adjunto un archivo y un video para tratar de explicarme mejor, en el fichero tengo la hoja (JBN) en la cual si introduces un valor en la celda D7 y presionas el botón, te devuelve en cual(es) hojas se encontró el valor, deseo hacer lo mismo pero en un formulario, en donde seleccionaría en el combobox el valor y le doy buscar. Espero haberme explicado bien. foroayuda.mp4 consultaforo.xlsm

Hola! Amigos del foro quisiera solicitarles el apoyo para resolver lo siguiente: Lo que pretendo obtener es en un form mediante la selección de un combobox, buscar el valor en todas las hojas (realizar la búsqueda con el botón) y se devuelva un resultado mediante un msgbox mostrando en cual(es) hoja(s) se encontraron el valor. En el tab FindError del formulario es donde deseo realizar el buscador, algo parecido a la siguiente macro: Sub buscarEnTodasHojas() Dim hj As Worksheet Dim contExiste As Integer Dim busqueda As Range Dim res, consulta As String res = "" consulta = Sheets("EEE").Cells(7, 4) contExiste = 0 For Each hj In ThisWorkbook.Worksheets With hj.UsedRange Set busqueda = .Cells.Find(what:=consulta) If Not busqueda Is Nothing Then If hj.Name <> "EEE" Then res = res & vbCrLf & hj.Name contExiste = 1 Set busqueda = .FindNext(busqueda) End If End If End With Next If contExiste = 0 Then MsgBox ("Dato no existe en ninguna hoja") Else res = "Dato encontrado en las hojas" & vbCrLf & res MsgBox res End If End Sub Lo segundo que deseo consultar si es posible aplicar una resta de fecha en textboxs, en el mismo formulario en el tab Date tengo lo siguiente: textbox1 (fechafin) y en Textbox2 ( fecha actual), quisiera saber si es posible con estos datos obtener como resultado en otro TextBox (Resultado [fechafin-fecha actual/365]) . Agradezco cualquier ayuda. Saludos JB Consulta buscar frm.xlsm