Antoni

Ni idea de la existencia de Filter(), por si alguien quiere profundizar: Using Filter function

If hoja.Name <> "GS" And <> "Macros" Then

Pensaba que ya habíamos terminado con el tema de cerrar las consultas de esta manera. 😒😒

Abre el adjunto y pulsa sobre el PLAY AZUL de la celda I2. TOR_PRUEBA_2.xlsm

Prueba a ver que tal va ahora. Inventarios.xlsm

A ver que se puede hacer, no te prometo nada.

A la tercera va la vencida: Private Sub CommandButton106_Click(): On Error Resume Next Dim Boton As Object Application.ScreenUpdating = False For x = 2 To Hoja2.Range("H" & Rows.Count).End(xlUp).Row Set Boton = Hoja1.OLEObjects(Hoja2.Range("H" & x).Value).Object Boton.BackColor = &HE0E0E0 Next For x = 2 To Hoja2.Range("B" & Rows.Count).End(xlUp).Row Set Boton = Hoja1.OLEObjects(Hoja2.Range("H" & x).Value).Object If Hoja1.txtcodigo.Text = Hoja2.Range("B" & x) Then Boton.BackColor = vbRed '&HFF& End If Next End Sub

Así no debería haber problemas: Private Sub CommandButton106_Click() On Error Resume Next Dim Boton As Object Application.ScreenUpdating = False '-- For x = 2 To Hoja2.Range("B" & Rows.Count).End(xlUp).Row Set Boton = Hoja1.OLEObjects(Hoja2.Range("H" & x).Value).Object If Hoja1.txtcodigo.Text = Hoja2.Range("B" & x) Then Boton.BackColor = vbRed '&HFF& Else Boton.BackColor = &HE0E0E0 End If Next End Sub

La columna G del archivo está vacía. Si no es un error, lo comentas y cuando tenga un momento, modificaré la macro.

Sube un archivo Excel y pon un ejemplo de lo que quieres.

Prueba así: Private Sub CommandButton106_Click() On Error Resume Next Dim Boton As Object Application.ScreenUpdating = False '-- Hoja2.Select Hoja2.Range("B1").Select '-- While ActiveCell.Offset(0, 6) <> Empty ActiveCell.Offset(1, 0).Select Set Boton = Sheets("Croquis").OLEObjects(ActiveCell.Offset(0, 6).Value).Object If Hoja1.txtcodigo.Text = ActiveCell.Value Then Boton.BackColor = vbRed '&HFF& Else Boton.BackColor = &HE0E0E0 End If Wend Sheets("Croquis").Select End Sub

A eso me refería cuando decía lo de fabricarlo a mano. El próximo problema vendrá cuando quieras pasar ese dato a una celda, entonces veremos si has entendido algo de todo lo que te hemos explicado. Hasta pronto.

No existe el formato [h]:mm en VBA, o lo haces a través de una celda con ese formato utilizando la propiedad Text, tal como está en el último archivo que subí, o te lo fabricas a mano.

Revisa el adjunto. aviso.xlsm

Las celdas tienen las propiedades Value y Text, en la propiedad Value nos proporciona el valor según el tipo de dato, la propiedad Text nos proporciona el valor según el formato aplicado a la celda en formato texto. Las fechas/hora se almacenan como el número de días transcurridos desde el 1/1/1900, así el 3/1/1900 se almacena como 3. La hora se muestra como la fracción de tiempo transcurrido dentro del día en concreto, 3/1/1900 6:00 se almacena como 3,25. Con esta lógica, en el momento de escribir esto, son las 11:19:15 del 1/4/2020 y se almacena como 43922,4711517361 que es el tiempo total transcurrido desde 1/1/1900 expresado en días. Conclusión, el resultado de cualquier operación entre fechas/horas se expresa en días y por tanto son datos de tipo numérico como lo son los importes o las cantidades. Si lo has entendido, verás que "30:00" en un tetxbox es un texto y no es lo mismo que "30:00" en una celda, con formato [hh]:mm, su propiedad Text nos muestra "30:00", que es un texto y su propiedad Value nos muestra 1,25, que es un número. O sea, el valor la propiedad Value es única, el valor de la propiedad Text, dependerá del formato aplicado a la celda. En cualquier caso, cualquier dato se convierte en texto al pasarlo a un textbox/listbox/combobox. Te dejo un ejemplo. Ejemplo fechas y horas.xlsx