Jump to content

Jose BN

Members
  • Posts

    292
  • Joined

  • Last visited

  • Days Won

    11

Everything posted by Jose BN

  1. @amontalanolla el foro es de ayuda sobre consultas puntuales, pero lo que presenta parece una tarea que quieres sea resuelta, espero puedas conseguir ayuda.
  2. @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
  3. @Antoni lo termine de resolver con la ayuda de @avalencia: UserForm1.TextBox3 = (CDate(UserForm1.TextBox1) - CDate(UserForm1.TextBox2)) / 365 Gracias por todo. Saludos
  4. @Antonitomando tú sugerencia algo parece no darme el resultado correcto, podrías darle una revisada. Consulta fecha.xlsm
  5. @Janlui no sería práctico utilizar la propiedad ControlTipTex del label?
  6. 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
  7. 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
  8. @Enigma25Bueno saberlo que eres EcoExcel! Ahí me he tomado unos aportes que he encontrado en San Google, bueno y por el foro ya eres bastante bien conocido. Los mejores éxitos en su vida. Saludos
  9. Hola! @Janlui en mi caso como ya lo ha indicado @JSDJSDse condiciona a un botón el cierre del form, otra opción si no desea que aparezca la (X), utilizo esto: Private Sub UserForm_Initialize() Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindowA(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub P.D.: El código lo tomé de un post de @JSDJSD me parece recordar. Saludos
  10. @Janlui va genial! se nota que le estás metiendo alma al proyecto. Los mejores éxitos.
  11. @Janlui espero este ejemplo te sea útil. https://www.exceleinfo.com/simular-acceso-con-usuario-y-password-en-excel-con-formulario-vba/ P.D: Ese formulario de citas pinta bastante bien por lo que he visto, saludos. EXCELeINFO - usuario y contraseña.zip
  12. @Matías86 te comparto el siguiente link: https://www.rondebruin.nl/win/s1/outlook/signature.htm Espero te sea útil. Saludos
  13. @roderick aburto en el mismo foro hay un aporte del maestro @Antoni. https://www.vbforums.com/showthread.php?857727-Color-cielab-to-rgb Es solo de buscar un poco, espero te sirva. Saludos
  14. Dim objNet As Object Dim Msg As String On Error Resume Next Set objNet = CreateObject("WScript.NetWork") Select Case objNet.UserName Case Is = "50688361957", "Patricia Diaz", "DESKTOP-BVFN5EJ", "Equipo-1CY" Msg = "Acceso Garantizado " & objNet.UserName Case Else Msg = "Acceso Denegado " & objNet.UserName ThisWorkbook.Close End Select MsgBox Msg @Gerson Pineda creo que lo he logrado así.
  15. Hola! @Gerson Pineda he revisado el aporte y lo he agregado en el libro, pero no pasa nada. podrías revisar si ha quedado pendiente algo? Saludos
  16. @Gerson Pineda hola! nuevamente, he visto que se puede hacer este listado a nivel de la hoja, pero No me gustaría que fuese de esa forma. Me gustaría que la validación la realizará desde el evento ya sea " workbook open" ó en la hoja activa si fuera el caso. Los nombres de los equipos si cuento con estos, ejemplos: 50688361957, DESKTOP-BVFN5EJ,Equipo-1CY. Agradezco tu recomendación. Saludos
  17. Dim users As Variant, row As Long, mensaje As String users = ActiveWorkbook.UserStatus For row = 1 To UBound(users, 1) mensaje = mensaje & vbNewLine & "-" & users(row, 1) Next MsgBox "Los siguientes usuarios tienen el libro abierto: " & vbNewLine & vbNewLine & mensaje @Haplox con el ActiveWorkbook.UserStatus me devuelve el (los) usuarios que tengan abierto el libro, igual lo obtengo también por este Sub GetUserName_AppUser() Dim strUserName As String 'Use the Application Object to get the Username strUserName = Application.UserName MsgBox "Current Logged In UserName is:" & strUserName End Sub Pero mi "Gran" problema es como decirle este valor debe ser igual a esto: Equipo1(por decir un ejemplo. Si la condición no se cumple, cierre todo y apaga las luces (lieralmente).
  18. @Gerson Pineda en cuanto al objetivo es por seguridad, cómo se podría lograr en el evento "open"? Saludos JB
  19. Hola! @Haplox creo que pueden ir por ahí las balas, lo que estaría pendiente es como decirle atraves del código el usuario que debe validar contra el que ha abierto el libro, continuaré buscando si tienes idea de como lograrlo te doy un millón de "Gracias!", Que estés bien. SaLudos JB
  20. Hola! amigos del foro quisiera consultar si hay alguna forma en que se pueda validar el usuario que ha abierto en libro, pero no en un evento Workbook_Open, mas bien cuando ya el libro se encuentre abierto esta comprobación se realice en la hoja activa. Lo que busco lograr es si el usuario definido en el código no es el mismo que ha abierto el libro, genere el procedimiento de cerrar el libro activo sin guardar los cambios. Agradezco cualquier ayuda o comentario. Saludos Historial Smart_IntelligenceTools.xlsm
×
×
  • Create New...

Important Information

Privacy Policy