Adriel Ortiz Mangia

[Prueba así Sub ACCESO_HORA() If Format(Time, "hh:mm") < "20:50" Then MsgBox "acceder" Else MsgBox "NO acceder" End If End Sub

[Hola Usa la función ESPACIOS()

[Hola Te paso la macro para insertar tus datos del formulario a la hoja. -No tendrás dificultades si la hoja esta oculta -Cambia el nombre de la hoja por el tuyo. -Cambias los nombres del textbox por el que tengas en tu formulario. Private Sub...

[Hola te paso la macro Sub eliminar() '[Por Adriel Ortiz Set h = Sheets("Hoja1") ' u = h.Range("O" & Rows.Count).End(xlUp).Row For i = u To 2 Step -1 If Cells(i, "O") = "D" Then h.Rows(i).Delete xlShiftUp End If Next i MsgBox "Fin" End Sub Valora la...

Observa este vídeo para importar de excel a sql https://www.youtube.com/watch?v=Dc4WlqABvF8

[Hola Te paso la macro Sub multiplicar() ' '[Por Adriel Ortiz ' For i = 4 To Range("A" & Rows.Count).End(xlUp).Row For j = 2 To Cells(4, Columns.Count).End(xlToLeft).Column If Cells(i, "A") = "EXP" Then Cells(i, j) = Cells(i, j) * -1 End If Next j...

[Hola Usa la función buscarV, pero primero aplica un filtro para ambas hojas ordenados de menor a mayor.

[Hola te paso la macro actualizada Private Sub TextBox7_Change() Label9 = Len(TextBox7) If Label9.Caption >= 1 Then Label10.Caption = "Numero de Caracteres" Else Label10.Caption = Empty End If ' Dim NUMERO As Integer NUMERO = Label9.Caption ' Select...

[Hola puedes poner un límite con esto Private Sub UserForm_Activate() TextBox1.MaxLength = 64 End Sub

[Hola hazlo así, suponiendo que lo haces en la celda A1 Private Sub CommandButton1_Click() Range("A1") = Range("A1") + TextBox1 End Sub Para finalizar hay 2 opciones Excelente o bueno