Jump to content

Jose BN

Members
  • Posts

    292
  • Joined

  • Last visited

  • Days Won

    11

Jose BN last won the day on June 14 2021

Jose BN had the most liked content!

About Jose BN

  • Birthday 09/12/1980

Profile information

  • Gender
    Hombre
  • Localización:
    Costa Rica

Converted

  • Campos
    ;
  • Mi versión de Excel:
    4,5

Recent Profile Visitors

2,376 profile views

Jose BN's Achievements

  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
×
×
  • Create New...

Important Information

Privacy Policy