Jump to content

jose lopez contreras

Members
  • Content Count

    139
  • Joined

  • Last visited


Reputation Activity

  1. Thanks
    jose lopez contreras reacted to Antoni in Como multiplicar fracción con decimal y entero   
    TextBox4 = Evaluate("=" & TextBox1 & "*" & TextBox2 & "*" & TextBox3)  
  2. Thanks
    jose lopez contreras reacted to Dr Hyde in Como multiplicar fracción con decimal y entero   
    prueba con esta macro, el valor que pones e fraccion Excel lo toma como un 1, asi que opte por usar un split para conseguir el valor en decimales de esa fraccion
    Private Sub CommandButton1_Click() TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) valor = Split(TextBox3, "/") resultado = valor(0) / valor(1) TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) * resultado End Sub  
  3. Haha
    jose lopez contreras reacted to Leopoldo Blancas in Macro para cerrar libro oculto después de un tiempo inactivo   
    También en una de 64 Bits y windows de 32 bits, 2 núcleos.
    Eso lo acabo de hacer ahorita.
    Saludos.
     
  4. Haha
    jose lopez contreras reacted to Héctor Miguel in Macro para cerrar libro oculto después de un tiempo inactivo   
    abre excel (libro1 en blanco) localiza y abre cualquiera de los dos libros manteniendo pulsada la tecla {shift} (NO eventos de apertura) abre el editor de vba (Alt + F11) busca si en herramientas > referencias ... aparece alguna marcada como FALTA:xxx o MISSING:xxx comenta también cuales aparecen marcadas (todas)
    saludos,
    hector.
  5. Confused
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro para ordenar alfabéticamente tabla dinámica en hoja seleccionada   
    Amigos miren encontré esto en la pagina de programarexcel la cual adapte a mis necesidades y funciona super bien ordenando una tabla dinámica, en este caso solo ordeno una columna, pero tiene opción para ordenar por varias columnas. Anexo archivo. Muchas gracias por su apoyo.
    Macro ordena por varias columnas.xlsm
  6. Haha
    jose lopez contreras reacted to Leopoldo Blancas in Macro para ordenar alfabéticamente tabla dinámica en hoja seleccionada   
    Hola @jose lopez contreras,
    Si te fijas en tu código solo hay dos variables por cubrir:
    "Maniobras e izaje" "Tabla7" De  que manera puedes conseguir que al referirte a está hoja "Maniobras e izaje" me voy a referir a la tabla "Tabla7"....??? (Aunque la tabla en la hoja indicada es la Tabla4)
    No seas malo, AYUDAME CON ESTO...!!!
    Saludos.
  7. Like
    jose lopez contreras got a reaction from avalencia in Como cerrar userform que oculta hoja   
    Mil gracias a ti y todos los que colaboraron, la solución quedo así.
    Private Sub Userform_Terminate() If Application.Workbooks.Count=1 Then Application.Quit Else ThisWorkbook.Close True End If End Sub  
  8. Thanks
    jose lopez contreras reacted to avalencia in Como cerrar userform que oculta hoja   
    Hola
    Como bien ya adelanto @tierra_pampa si hay más archivos de Excel abiertos, al usar "ActiveWorkBook", cierras el activo, no el que necesariamente quieres; segundo, en la imagen muestras el Excel abierto (pero oculto), si desde el inicio ese era el probelma (mencionaste que el libro estaba abierto, no "solo" el Excel) pues tú cierras el libro no el mismo Excel (Application.Quit).
    Abraham Valencia
  9. Thanks
    jose lopez contreras reacted to tierra_pampa in Como cerrar userform que oculta hoja   
    Hola @jose lopez contreras
    Con la orden "ActiveWorkbook.Close", VBA cierra el libro. Si se ejecuta, debiera cumplir con dicha orden.
    Puse tu código en un libro y lo cierra normalmente. Puedes darte cuenta en la pestaña "VISTA", con los botones "OCULTAR" y/o "MOSTRAR".
    Quizás puedes modificar la última orden de tu código: debe ser "TRUE" y también debiera estar encima de la orden de cerrar el libro.
    Application.ScreenUpdating = True ActiveWorkbook.Close Suerte!
  10. Thanks
    jose lopez contreras reacted to Dr Hyde in ComboBox carga muy lento   
    una forma mas corta seria esta, como no mencionas si en tu hoja hay mas informacion hace una copia de tu informacion en la hoja2, elimina los duplicados y hace la carga al combobox
    Sub cargar_combo()
    Range("e2").CurrentRegion.Copy
    With Sheets("hoja2").Range("a1")
        .PasteSpecial
        .CurrentRegion.RemoveDuplicates Columns:=1
        matriz = .CurrentRegion
    End With
    ComboBox1.List = matriz
    Sheets("hoja2").Cells.Clear
    End Sub
     
  11. Thanks
    jose lopez contreras reacted to Dr Hyde in ComboBox carga muy lento   
    puedes usar una matriz de datos y la propiedad combobox1,list 
    Sub cargar_combo()
    filas = Range("e1").CurrentRegion.Rows.Count
    matriz = Range("e1").Resize(filas, 1)
    ComboBox1.List = matriz
    End Sub
     
  12. Thanks
    jose lopez contreras reacted to Haplox in ComboBox carga muy lento   
    Otra forma
     
    Sub cargacombo1() Dim datos As New Collection Dim item n = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To n On Error Resume Next datos.Add Cells(i, "A"), CStr(Cells(i, "A")) Next i For Each item In datos ComboBox1.AddItem item Next item End Sub  
  13. Thanks
    jose lopez contreras reacted to Antoni in ComboBox carga muy lento   
    Y a las demás personas que han intervenido ¿Que? 
  14. Like
    jose lopez contreras got a reaction from Visor in Eliminar multiples filas   
    Gracias por tu interés en apoyarme, mira estoy adaptando tu ejemplo a mis necesidades pero me eh encontrado con algunas limitantes, por ejemplo:
    Deseo filtra entre un rango de fechas las cuales están en la columna "K" de la hoja Salidas. También filtrar por texto de la columna "E" de la hoja Salidas (Esto ya esta resuelto, bueno aparentemente) Mi hoja Salidas tiene 14 columnas las cuales deseo ver en el listbox Te pido de favor me explicara para que sirve la hoja Paso. https://mega.nz/#!HYZE3QSI!AmbAqhcgvFnlWSRyqVbv1OSS-4O_9LeMAGp4o_naKfk
  15. Haha
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    Gracias a todos por preocuparse a mi solicitud y a sus comentarios pero Antoni tiene toda la razón los domingos no trabajamos y esa era mi preocupación por si el 31 cae en domingo, mañana se activará la instrucción proporcionada por Leopoldo y para el próximo año aplicare la recomendación de Ikanni claro antes la probaré para estudiar su funcionalidad. Antes de despedirme les deseo lo mejor para este año 2019 a todos los del foro en especial a Leopoldo Blancas, Antoni, Gerson Pineda que sin sus apoyos y observaciones (regaños jajaja) no fuese posible ir aprendiendo. Feliz año. Gracias 
  16. Haha
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    Gracias a todos por preocuparse a mi solicitud y a sus comentarios pero Antoni tiene toda la razón los domingos no trabajamos y esa era mi preocupación por si el 31 cae en domingo, mañana se activará la instrucción proporcionada por Leopoldo y para el próximo año aplicare la recomendación de Ikanni claro antes la probaré para estudiar su funcionalidad. Antes de despedirme les deseo lo mejor para este año 2019 a todos los del foro en especial a Leopoldo Blancas, Antoni, Gerson Pineda que sin sus apoyos y observaciones (regaños jajaja) no fuese posible ir aprendiendo. Feliz año. Gracias 
  17. Thanks
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    @ikanni hola buenas tardes seguí tus recomendaciones tal cual, coloque la macro en un modulo , guarde el libro con fecha del día de hoy, posteriormente cambie la fecha al día 1 de enero del 2020 en el sistema de mi PC pero al abrir el libro con esta nueva fecha se debería ejecutar la macro pero no sucede nada. que crees que este sucediendo. obvio desde Private Sub Workbook_Open() llamo la macro FinDeAño. 
    P.D. la macro proporcionada por @Leopoldo Blancas  funciono.
    Sub FinDeAño() Dim fecha As String fecha = FileDateTime(ActiveWorkbook.FullName) If VBA.Format(CDate(fecha), "yyyy") + 1 = VBA.Format(Date, "yyyy") Then 'ejecuta Macro Workbooks.Open ThisWorkbook.path & "\Reporte anual de Salidas\Reporte anual de Salidas.xlsm" 'abrir el archivo en cualquier escritorio Workbooks("Control JOLOCO Almacenes V 9.9.4.xlsm").Worksheets("Salidas").Copy After:=Workbooks("Reporte anual de Salidas.xlsm").Sheets(1) ' copiar hoja en otro libro ActiveSheet.Name = Year(Now()) ' dar nombre del año a nueva hoja ActiveWorkbook.Save 'salva el arvhivo ActiveWindow.Close 'lo cierra Worksheets("Salidas").Select Range("A1").Select Rows("2:" & Rows.Count).ClearContents End If End Sub  
  18. Haha
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    Gracias a todos por preocuparse a mi solicitud y a sus comentarios pero Antoni tiene toda la razón los domingos no trabajamos y esa era mi preocupación por si el 31 cae en domingo, mañana se activará la instrucción proporcionada por Leopoldo y para el próximo año aplicare la recomendación de Ikanni claro antes la probaré para estudiar su funcionalidad. Antes de despedirme les deseo lo mejor para este año 2019 a todos los del foro en especial a Leopoldo Blancas, Antoni, Gerson Pineda que sin sus apoyos y observaciones (regaños jajaja) no fuese posible ir aprendiendo. Feliz año. Gracias 
  19. Haha
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    Gracias a todos por preocuparse a mi solicitud y a sus comentarios pero Antoni tiene toda la razón los domingos no trabajamos y esa era mi preocupación por si el 31 cae en domingo, mañana se activará la instrucción proporcionada por Leopoldo y para el próximo año aplicare la recomendación de Ikanni claro antes la probaré para estudiar su funcionalidad. Antes de despedirme les deseo lo mejor para este año 2019 a todos los del foro en especial a Leopoldo Blancas, Antoni, Gerson Pineda que sin sus apoyos y observaciones (regaños jajaja) no fuese posible ir aprendiendo. Feliz año. Gracias 
  20. Thanks
    jose lopez contreras reacted to Leopoldo Blancas in Macro que se ejecute solo el fin de año   
    Una solución...(pude ahorrar variables... pero para que te quede mas claro!!!)
    Sub FinDeAño() Dim Dia$, nDia&, Mes$, Dia2$, nDia2&, Mes2$     Dia = VBA.Format(VBA.Now + 1, "dddd")     nDia = VBA.Format(VBA.Now + 1, "d")     Mes = VBA.Format(VBA.Now + 1, "mmmm")          Dia2 = VBA.Format(VBA.Now, "dddd")     nDia2 = VBA.Format(VBA.Now, "d")     Mes2 = VBA.Format(VBA.Now, "mmmm")          If Dia = "domingo" And nDia = 31 And Mes = "diciembre" Then         'Ejecuta la Macro     ElseIf Dia2 <> "domingo" And nDia2 = 31 And Mes2 = "diciembre" Then         'Ejecuta la Macro     End If End Sub Saludos
     
  21. Like
    jose lopez contreras got a reaction from Leopoldo Blancas in Macro no funciona en boton de Userform   
    Muchas gracias por tu explicación lo tomare en cuenta para próximos trabajos.
  22. Thanks
    jose lopez contreras reacted to Leopoldo Blancas in Macro no funciona en boton de Userform   
    Te Explico:
    Cualquier procedimiento que tenga que ver con los formularios... que contengan Código como: Me.ListBox1... Me.TextBox1...UnLoad Me o cualquiera que mencione un control del formulario es mejor ponerlo en el código del Formulario. Y la forma de llamarlo es para especificar en que formulario esta ese procedimiento...YA QUE NO ES PUBLICO. Y puede darse el casor que puede haber un procedimiento en un formulario con el mismo nombre y que hace "lo mismo" (solo varia en algunas cosas) y de ese modo sabemos a que procedimiento de que formulario estamos hablando o nos estamos refiriendo. 
    También es bueno para que no tengamos el código en otro lugar diferente, lo de formularios en formularios... aunque hay ocasiones que si tenemos que poner el código en Módulos, pero ya cuando tengas más experiencia.
    El los módulos solo debes de poner VARIABLES, PROCEDIMIENTOS o FUNCIONES PÚBLICAS, que los puedes usar en cualquier hoja o cualquier formulario o cualquier módulo. 
    Investiga sobre la VISIBILIDAD O ALCANCE DE VARIABLES, PROCEDIMIENTOS Y FUNCIONES EN VBA EXCEL, O COSAS SEMEJANTES.
    Saludos.
  23. Thanks
    jose lopez contreras reacted to Leopoldo Blancas in Macro no funciona en boton de Userform   
    Hola Jose
    Lo que te recomiendo es que la Sub de Eliminar no la pongas en un Modulo, ponla en el codigo del formulario Busqueda_Salidas. Y ya cuando quieras eliminar cuando ya validaste el pasword, llamala asi: Call Busqueda_Salidas.eliminarProducto
    Saludos.
    Busqueda.rar
  24. Thanks
    jose lopez contreras reacted to Haplox in ¿Cómo copio los datos de una hoja a otra hoja mediante una condición?   
    @jose lopez contreras, usa el siguiente código
    Sub comparar_copiar() Dim uFo&, uFd& Dim celda As Range Dim cod As String, cod1 As Range uFo = Range("A" & Rows.Count).End(xlUp).Row For Each celda In Range("A2:A" & uFo) cod = celda With Sheets("Hoja2") uFd = .Range("A" & Rows.Count).End(xlUp).Row Set cod1 = .Range("A2:A" & uFd).Find(cod, lookat:=xlWhole) If Not cod1 Is Nothing Then .Cells(cod1.Row, "F") = .Cells(cod1.Row, "F") + celda.Offset(, 6) End If End With Next celda End Sub  
  25. Thanks
    jose lopez contreras reacted to Haplox in ¿Cómo copio los datos de una hoja a otra hoja mediante una condición?   
    @jose lopez contreras, solo tienes que modificar esa línea, porque entendí al reves (añadir en Hoja2)
×
×
  • Create New...

Important Information

Privacy Policy