Karla Rojas

Dante Amor respondió: Voy a tratar de explicar lo que necesitas con una analogía. Imagina que tienes una biblioteca. En la biblioteca tienes los siguientes temas y número de libros Física 4 libros Química 5 libros Biología 3 libros Matemáticas 8 libros Y te piden buscar...

Briam Ramon respondió: Con este arreglo que me ayudaron a realizar se logró hacer que la macro comparara similitudes sin tener en cuenta mayúsculas o minúsculas y acentos, aun asi el codigo compara letra por letra en el mismo orden y ubicación de la frase confrontada,...

Dante Amor respondió: Te refieres a esto: Workbooks.Open archivo, UpdateLinks:=0

Eduardo Pérez Fernández respondió: Puede abrir el formulario utilizando WHERE algo como: If Not IsNull(Me.usuario) Then DoCmd.OpenForm "frmnombre", , , "[idusuario]=" & Me.usuario End If Donde usuario asumo que es un campo puede ser oculto donde esté el id del usuario y Idusuario es...

csarxex fmv respondió: En VBA Si tienes tres formularios, Form1, Form2 y Form3 Donde Form3 tiene dos botones, Boton1 y Boton2 Para que el Boton1 invoque al formulario Form1 Le das clic derecho al boton1 y clic a Ver código luego, en Sub que te aparece (CommandButton_Clic()...

Elsa Matilde respondió: El problema está en que obtenés el fin de rango en la hoja Revenue... pero luego trabajas en otra hoja (Court). Y allí todavía no se sabe cuál es el fin de rango. Revisa este detalle y si aún no logras resolverlo enviame el libro a mi correo.

Carlos Arrocha respondió: Prueba añadiendo después de la siguiente línea ListBox1.List(ListBox1.ListCount - 1, 2) = cliente.Row Esta otra ListBox1.List(ListBox1.ListCount - 1,3) = cliente.Row Y revisa en la propiedad ColumCount del listbox la cantidad

Carlos Arrocha respondió: Prueba con la siguiente a ver si es lo que necesitas. Ingresando en Mes en la celda D1 y pulsando enter, te trae de la hoja2 el resto de datos hasta la celda D7. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) <>...

Elsa Matilde respondió: Si necesitas que al abrir el formulario se realice el control de fechas, deberás colocar ese código en la llamada al formulario. Por ejemplo: Sub llamaUF() 'macro que llama al formulario Dim exdate As Date exdate = "27/06/2021" If Date > exdate Then...

Dante Amor respondió: Sí, es lamentable esos casos cuando no valoran las respuestas, pero seguimos aquí por los que sí agradecen. Para bloquear un usuario puedes hacer lo siguiente: Acerca el mouse al nombre del usuario y te aparece un recuadro con su información: En la...

Dante Amor respondió: Tal vez no te hace la multiplicación, porque probablemente tengas letras en lugar de números. Tu fórmula es correcta, pero solamente para multiplicar. Ahora entrando en materia de matemáticas, para calcular el área en metros cuadrados de una pared,...

Dante Amor respondió: Prueba si lo siguiente es lo que necesitas: Sub Auto_Open() Dim wbPath As String, a1Path As String Dim ruta As String ' wbPath = ThisWorkbook.Path & "\" a1Path = Sheets("Hoja1").Range("A1").Value If Right(a1Path, 1) <> "\" Then a1Path = a1Path & "\"...

Adriel Ortiz Mangia respondió: Macro de avance Sub Compara_nexus() Set l1 = ThisWorkbook Set h1 = l1.Sheets("DOCENTES") ruta = ThisWorkbook.Path 'CRITERIOS PARA BUSCAR Y CONTAR Dir1 = "DIRECTOR I.E." SubDir1 = "SUB-DIRECTOR I.E." prof = "PROFESOR" auxed = "AUXILIAR DE EDUCACION"...