Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 04/10/2021 in all areas

  1. Carga una imagen detrás de otra, si no existe la imagen de la persona, quedará la imagen de error. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A7")) Is Nothing Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Fotos\error.jpg") Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Fotos\" & Target & ".jpg") Range("B7").Select End If End Sub
    3 points
  2. Abre el adjunto y pulsa el botón, a ver que pasa. actualizar precios Prueba1 (1).xlsm
    2 points
  3. Prueba así: Private Sub Worksheet_Change(ByVal Target As Range) 'Updated by Extendoffice 2019/11/13 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 Then Exit Sub On Error Resume Next 'Set xRng = Cells.SpecialCells(xlCellTypeAllValidation) Set xRng = Columns("R") '<---------------------------- If xRng Is Nothing Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Target, xRng) Is Nothing Then xValue2 = Target.Value Application.Undo xValue1 = Target.Value
    2 points
  4. Cells(i, "B").FormulaLocal = "=Indice(Tablas!$N$6:$Q$8;COINCIDIR(A" & i & ";Tablas!$O$6:$O$8;1);4)"
    2 points
  5. Hola te paso una forma que poco te recomiendo por motivos de que se pierden algunas funciones, pero quizás para tu caso sirva, o al menos hacerlo antes de imprimir. ColorSelecion.xlsm
    2 points
  6. Maestro @Antoni di con la solución!, probando, fui buscando con la operación punto, los distintos métodos que ofrece VBA. Tengo un formulario de nombre "UserForm1" y un control creado en tiempo de ejecución de nombre "Fila2". Al escribir la instrucción siguiente dentro del evento clic en un CommandButton, logro eliminar el control. Private Sub CommandButton1_Click() UserForm1.Controls.Remove("Fila2") End Sub La instrucción .Remove solo funciona para controles creados en tiempo de ejecución, no sirve para los que son creados en tiempo de diseño. Para los que son creados
    2 points
  7. GabrielRaigosa

    Formula Logica

    Hola, La formula que necesitas en I4 es: =BUSCARV(F2,A11:C15,3) =BUSCARV(F2;A11:C15;3)
    2 points
  8. ea4djw

    Uso de ActiveControl

    Aquí está mi pequeño gran proyecto (Como he comentado está en pañales). Para acceder al mogollón del tema pulsar sobre probar luego sobre TPV->Entrada TPV TPV EXCEL.zip
    2 points
  9. Lo primero que te recomendaría es que te acostumbraras a trabajar con los mismos formatos en los datos y en los formularios. Lo primero que veo que me llama la atención y es una de las causas de tus problemas es que en las celdas AM3:AM19 las horas los valores de las horas las tienes introducidas en formato numérico, y al dar formato de celda a Hora Perú tu lo ves como hh/mm/ss a. m./p. m. incluidos espacios y puntos en am y pm. Lo que hace el listbox al seleccionar es tomar el valor REAL de la celda, que en este caso será un valor numérico (puedes verlo si cambias el formato de cel
    2 points
  10. Al pulsar el botón "Click para calcular", a parte de lo que ya hacía, calcula los vencimientos en función del periodo de liquidación seleccionado. Préstamos.xlsm
    2 points
  11. Usa la función Year() de SQL sql = "Where Year(Fecha)>=" & TextBox100 & " And Year(Fecha)<=" & TextBox200
    1 point
  12. el "error" que mencionas asoma por las traducciones "automáticas", si lees el artículo en inglés no existe tal discrepancia, por eso mismo prefiero leer los artículos "originales" al fin de cuentas, todos los que he visto en español (en algún momento) han "tocado base" en el origen de los mismos (en inglés) 😉
    1 point
  13. si quieres que sea el usuario quien dispare eventos al cambiar la hoja en cualquier libro, prueba desde módulos "de clase" con eventos a nivel de la aplicación lee, relee y vuelve a leer estos procedimientos: Events And Event Procedures In VBA
    1 point
  14. ¡Saludos a todos! Dejo otra opción en el adjunto, donde puedes promediar (o sumar) los "n" registros que aparezcan con la mayor fecha, de acuerdo con el campo base que necesites. ¡Bendiciones! PRUEBA (6).xlsx
    1 point
  15. Hola Carlos Revisa el adjunto donde te dejo una solución, reemplace las formulas Saludos Mas reciente formula_GP.xlsx
    1 point
  16. Prueba esta macro: Sub MaxRango() For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("C" & x) = WorksheetFunction.Max(Range("A" & x).Resize(1, 2)) Next End Sub
    1 point
  17. Hola @jeaa, puedo asumir que el tema quedo solucionado? Saludos.
    1 point
  18. Te adjunto de nuevo el archivo, si haces click en cualquiera de las imágenes, se crea un archivo .jpg con el face-id seleccionado. Todos los iconos de Excel II
    1 point
  19. En principio tal y como me lo has enviado me parece perfecto. Pero tenía la duda de si el pantallazo que ha adjuntado JoseBN era como lo habías programado y como lo tenía que ver yo, de ahí tanta duda. Mil perdones. Lo que Jose BN adjuntaba era esto:
    1 point
  20. Muchísimas gracias AlexanderS. Mi problema era que lo escribía en un módulo objeto. Muchas gracias de nuevo.
    1 point
  21. Solo tomaré el agradecimiento, este no es mi canal y el archivo es de ese autor. Pero es bueno saber que te resulto útil. Saludos
    1 point
  22. 1 point
  23. Jose BN... eres un capo. Era lo qe nesecitaba.... me suscribi a tu canal. O al youtube qe pusiste jaja. Gracias master y a la comunidad por el apoyo qe dan. Saludos
    1 point
  24. Debemos tener alguna condición para diferenciar que es una categoría y que no, en tu caso veo que las categorías no tienen un código numérico al inicio y los datos si, con esa condición se puede generar el cambio automático. Saludos mrzo-bdd.xlsm
    1 point
  25. A ver si por aquí van las balas, el archivo es de autoría de https://www.youtube.com/channel/UCS9GODhqnNOpMjuZp5TIKfA Saludos JB Buscar entre registros duplicados, el más reciente por fecha.xlsx
    1 point
  26. Hola de nuevo @Dajor Adjunto nuevo archivo, ya que el anterior viéndolo bien no creo que te sirva ya que muestra información de un solo SKU. Este nuevo archivo muestra los SKU si hay repetidos, pero con una condición, que agregue una columna auxiliar en la pestaña "Lista de inventario de almacén" columna A. Saludos PRUEBA INVENTARIO (2).xlsm
    1 point
  27. Lo he entendido así. Imprimir múltiple.xlsm
    1 point
  28. Sub Grabar() Dim fila As Integer, uf As Long, conta As Long Dim cn As ADODB.Connection, Rs As ADODB.Recordset '-- Set h = Sheets("DATOS") Set cn = New ADODB.Connection '-- cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\Ejemplo.accdb;" fila = 2 While h.Cells(fila, "A") <> Empty Descipción = "N/A" Select Case h.Cells(fila, 3) Case "1": Descipción = "Matutino" Case "2": Descipción = "Mixto" Case "3": Descipción = "Vespertino" Case "Mat": Descipción = "Matutino" Case "M": Descipción = "Mixto" Case "
    1 point
  29. torquemada

    BUSCARV EXPLICACION

    Hola CESAR25-03-76 Un par de cosas, ya sé que estas usando una hoja excel, y que te has cambiado rápidamente al navegador de internet, sin desactivar las mayúsculas. Pero despues de escribir unas cuantas palabras, deberías de haberte dado cuenta de ello. La segunda cosa es, ¿cómo es posible, que siendo tu separador de argumentos la coma, no hagas uso de ella en todo tu mensaje? ¿Te das cuenta que me quedo sin aire? ¿Si tu separador de argumentos es la coma, por que la fórmula está escrita con punto y coma? Y hasta aquí amigos, nuestro programa de cosas ocultas, naves espaciales
    1 point
  30. Hola Esa necesidad de transformacion se realizar en power query, partiendo de esto, revisa este tema reciente, es básicamente igual que tu necesidad Tranformar una tabla con fechas de inicio y fin en otra con fecha única - Power BI - Foro de Ayuda Excel Cualquier duda nos avisas Saludos!
    1 point
  31. Hola Para eso es necesario que vayas creando tus propias funciones personalizadas en power query Es muy sencillo hacerlas, solo debes crear una consulta en blanco y luego realizar lo pertinente Por ejemplo para el caso de obtener precio unitario mas iva (PuIva as number) => let Origen = PuIva * .13 + PuIva in Origen Para iva por cantidad (Iva as number, Uni as number) => let Origen = Iva * Uni in Origen Si te fijas bien, para iniciar una FP solo basta con integrar las variables dentro de los paréntesis Hay mas formas de estructura pero e
    1 point
  32. No se si es eso lo que quieres, porqué no entiendo el porqué del requerimiento. Sub NavegaHojas() Dim Origen As String Origen = ActiveSheet.Name Application.CommandBars.FindControl(ID:=957).Parent.ShowPopup If Origen <> ActiveSheet.Name Then MsgBox "Has saltado de la hoja " & Origen & " a la hoja " & ActiveSheet.Name End If End Sub
    1 point
  33. @Maria_80 te subo el archivo y le picas en el botón consolidar y seleccionas el archivo te importa en el la hoja consolidado, sea txt o csv es todo lo que pude ayudarte a ver si entendí, espero que te funcione saludos isidro consolidar-varios-archivos-csv-o-txt-usando-conexion-de-datos-externos-y-vba.xlsm
    1 point
  34. A ver que tal. Control Subv.xlsm
    1 point
  35. Sub IMPORTAR_CSV() 'Definimos Variables Dim Consulta As QueryTable, nArchivos As Variant, j As Long, i As Long Dim uFila As Long, Conexiones As Object 'Seleccionamos archivos vti = VBA.Timer nArchivos = Application.GetOpenFilename(FileFilter:="Text Files (*.txt*;*.csv*),*.txt*;.csv*", _ Title:="Seleccionar archivos a importar", MultiSelect:=True) 'Si no seleccionamos nada, salimos del proceso If IsArray(nArchivos) = False Then Exit Sub 'Dimensionamos datos For j = LBound(nArchivos) To UBound(nArchivos) nArchivos(j) = "TEXT;" & nArchivos(j) Next j For j = LB
    1 point
  36. El secreto está en poner un nombre al control cuando lo creas, para así poder discriminarlo en el evento del módulo de clase. Mañana, si puedo, te subo un ejemplo.
    1 point
  37. No existe el evento click en un textbox, por lo que hay que detectarlo a través del evento MouseDown o MouseUp. Sí existe, el evento doble-click, pero cuidado, a todos los efectos, un doble-click se tratará como dos clicks, uno detrás de otro. Te dejo un ejemplo de como utilizar un módulo de clase para detectar los eventos de cualquier control, válido tanto para los creados en tiempo de diseño, como para los creados en tiempo de ejecución. En él encontrarás como detectar los eventos: Doble-click Click Clic-derecho Shift+click Shift+clic-derecho
    1 point
  38. Prueba así: Private Sub cmb_Hora_Change() If cmb_Hora.ListIndex > -1 Then cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm") End Sub
    1 point
  39. La ejecución de Excel en formato web (365) no admite controles active x ni macros. Tienes obligatoriamente que abrir en el excel de esceritorio
    1 point
  40. En el evento change del combo hora: Private Sub cmb_Hora_Change() cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm") End Sub
    1 point
  41. Buenos días; -Adjunto macro corregida. Ahora se puede elegir el logo que se coloca en el título de impresión. A ver que os parece. Saludos. MAjustesImpresión.zip
    1 point
  42. ¡Hola, @santravis! Revisa el adjunto, con una opción. ¡Bendiciones! PRUEBA_PESOS_AUTOC_2.xlsx
    1 point
  43. ok, ok, ahora lo he pillado. Pensaba que trabajabas con la tabla dinámica.. Se me ocurre... en vez de usar si.error, porque no usas algo así?? N5:
    1 point
  44. Hola Carlos Prueba así: =SUMAPRODUCTO(--ESNUMERO(HALLAR(E2,B2:B5&C2:C5)),--A2:A5) Saludos
    1 point
  45. Otro enfoque. Abre el adjunto, hay una hoja nueva, la hoja Parámetros: En la celda B1, informa la carpeta donde están los archivos, si la dejas en blanco, se supondrá que está en la carpeta del archivo resumen. En la columna A, informa los archivos que quieras En la filas 2 y 3, informa las hojas y las celdas donde están los datos. Para obtener el resumen pulsa sobre la flecha azul de la hoja Resumen. Válido para cualquier número de archivos y columnas del resumen. Ya contarás. Resumen.xlsm
    1 point
  46. ya, ya, por eso decía "Y haciendo una pequeña trampa..." La misma trampa cambiada de sitio.... Ejemplo tabla dinamica.xlsx
    1 point
  47. Hola vic Para logra ese objetivo, primero tu tabla merece una transformación tabular, la cual realizo con power query, luego de eso la cargo en la hoja "power query", posteriormente creo una tabla dinámica "td" y a partir de la misma, inserto el grafico de barra agrupada, para que se haga el efecto de mostrar el eje como lo deseas También comentar que con Power BI, los gráficos llevan otro nivel, por ejemplo mira una imagen, haciendo uso de tus datos Saludos Grafico barra agrupada power query - td_GP.xlsx
    1 point
  48. Respuesta: direccion hipervinculo como texto Hola KRRE888 Revisa el adjunto, lleva una macro que extrae el hipervínculo. Un saludo desde Vitoria ExtraerHipervínculos_io_fae.zip
    1 point


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy