Related Articles

Responses

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

  1. Hola, me gustaría que nos compartieras algún código en VBA para ajustar los textos dentro de los Text Box para que el formulario tuviera mejor estética de presentación.

    Saludos

  2. Buenas tardes, siguiendo el video 9, no consigo que se capture el código cuando le doy al botón de modificar dentro del formulario de búsqueda. La programación no me arroja ningún error.
    Me puedes dar alguna solución.

    1. Puede ser que los datos los estás llamado desde una hoja distinta a la que contiene los datos, es decir, Range(«D» & linea).Value hace uso de la hoja activa, que no necesariamente es BD.

      Intenta con:
      Me.TexNombre.Value = Sheets(«BD»).Range(«C» & linea).Value

      Eso debería corregir el problema.

  3. hoal brother buen dia gracias por compartir estos videos me han sido de gran ayuda. podrias ayudarme con el boton nodifica en el codigo no me hacepta y no llena los datos en el formulario
    Codigo_Registro = Me.Text_Codigo.Value
    SetFila = Sheets(«BD»).Range(«B:5»).Find(Codigo_Registro, lookat:=xlWhole)

    linea = Fila.Row

    Me.Text_Nombrep.Value = Range(«C» & linea).Value
    Me.Text_Apellidop.Value = Range(«E» & linea).Value
    en esta lineas es que comienza el problema. gracias bendiociones

  4. Me gutaria saber como puedo programar para modificar si uso es un checbox, ademas el combobox no me quedo claro

  5. Buenas días amigo! en el video 09, no puedo conseguir el código cuando le doy al botón de modificar dentro del formulario de búsqueda y cuando le coloco este código
    Codigo_Registro = Me.Text_Codigo.Value
    SetFila = Sheets(«BD»).Range(«B:5»).Find(Codigo_Registro, lookat:=xlWhole)
    si me arroja error

  6. Hola amigo como estas, e repetido tres veces este curso pensando que habia cometido algun error, pero en el video 8, cuando vamos a modificar el boton modificar valga la redundancia, me arroja un error, y por eso repeti el curso dos veces mas, lo acabe de termina la ultima vez, y me arroja un error que ya no puedo agregar a nadie, doy click en agregar y me bota un erro que dice «Variable de objetoo bloque With no establecido», pero revisando las tres veces, hay sumerce en ningun momento pone esa variable, las otras veces pense que habia cometido un error y volvia a empesar, pero esta ves decidi continuar viendo los otros videos restantes, para ver si sumerce se daba cuenta del error y mostraba la solucion, pero no, al finalizar sumerce muestra el funcionamiento total y nunca sale este error que le nombre, sumerce me puede ayudar porfavor, ya es algo personal que no me quiero dejar ganar por esto, mi dios le pague muchas gracias una lfeliz noche

    1. Hola, me paso la mismo, al dar en el boton Agregar, me arroja error «error en el metodo range de objeto_Global» y cuando hago clic en Depurar, me muestra esta linea del codigo: If Range(«E» & linea).Value = «OK» Then

  7. hola muy bueno tu curso a pesar que empecé ya haciendo el formulario te estoy entendido me gustaría que nos ayudes con el limpiar el campo al momento de registrar para no estar cerrando el formulario registrar y llenar de nuevo gracias

  8. buenos dias gracias por compartir estos videos me han sido de gran ayuda. podrias ayudarme con el boton nodifica en el codigo no me hacepta y no llena los datos en el formulario me sale el siguiente mensaje: Se ha producido el error «91» en el tiempo de ejecución: variable de objeto o bloque with no establecido….Gracias por la respuesta.
    Codigo_Registro = Me.Text_Codigo.Value
    SetFila = Sheets(«BD»).Range(«B:5»).Find(Codigo_Registro, lookat:=xlWhole)

    linea = Fila.Row

    Me.Text_Nombrep.Value = Range(«C» & linea).Value
    Me.Text_Apellidop.Value = Range(«E» & linea).Value
    en esta lineas es que comienza el problema. gracias bendiociones

  9. Buenas noches, quisiera saber si existe algún otro calendario disponible para agregar, ya que el archivo que descargué, nunca funcionó, siempre me salió un error que decía «el archivo está dañado o la extensión es inválida»

    Ayúdame por favor.

  10. Hola, en
    Private Sub UserForm_Activate()

    en la linea

    Set Fila = Sheets(«BD»).Range(«B:B»).Find(Codigo_Modificar, lookat:=xlWhole)
    Linea = Fila.Row

    Me sale el error ’91’ en tiempo de ejecución: Variable de objeto o bloque With no establecido
    Porque sale este error lo he probado de todas las formas y no hay forma de solucionarlo

  11. Hola disculpa tengo un detalle al capturar nuevos registros al igual que modificar en el campo que tiene Fecha (en mi caso tengo dos fechas: ingreso y nacimiento) al pasarlos a la hoja de cálculo me invierte el valor del cuadro de texto en cuanto a mes y día por ejemplo si capturo fecha 10 enero 2025 (10/01/25) en la hoja de excel me graba 1 octubre 2025 (01/10/25)

El Tío Tech
Resumen de privacidad

Esta web utiliza cookies para que podamos ofrecerte la mejor experiencia de usuario posible. La información de las cookies se almacena en tu navegador y realiza funciones tales como reconocerte cuando vuelves a nuestra web o ayudar a nuestro equipo a comprender qué secciones de la web encuentras más interesantes y útiles.