Jump to content

Antoni

Members
  • Content Count

    10,220
  • Joined

  • Last visited

  • Days Won

    560

Antoni last won the day on April 2

Antoni had the most liked content!

About Antoni

  • Rank
    Antoni
  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1) Excel 2016

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Ni idea de la existencia de Filter(), por si alguien quiere profundizar: Using Filter function
  2. Pensaba que ya habíamos terminado con el tema de cerrar las consultas de esta manera. 😒😒
  3. Abre el adjunto y pulsa sobre el PLAY AZUL de la celda I2. TOR_PRUEBA_2.xlsm
  4. A ver que se puede hacer, no te prometo nada.
  5. 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
  6. 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
  7. La columna G del archivo está vacía. Si no es un error, lo comentas y cuando tenga un momento, modificaré la macro.
  8. Sube un archivo Excel y pon un ejemplo de lo que quieres.
  9. 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
  10. 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.
  11. 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.
  12. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png