Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 08/13/2019 in Posts

  1. 3 points
    amigo @eugeniocol, revisa el anexo, coloque dos formas de hacerlo, hay muchas formas de hacerlo, pero la forma como esta en tu macro, pues es la peor jejeje, suerte Foro copia con criterio.xlsm
  2. 3 points
    johnmpl

    ANSWERED Unificar cantidad de Códigos

    ¡Hola, a ambos! Revisa el adjunto, donde propongo una opción con formulación y formato condicional. ¡Bendiciones! Unificar.xlsx
  3. 1 point
    johnmpl

    Manejo excel avanzado

    ¡Hola, de nuevo! Revisa el adjunto, con la modificación de acuerdo con lo nuevo que pides. ¡Bendiciones! Libro1Ejemplo.xlsx
  4. 1 point
    Gerson gracias por tu aporte,y gracias por hacerte disponible a ayudar,tengo apenas semanas practicando y me surgen muchas dudas,ya hice mi primera medida con calculate y sumx sencillo ya que he visto que se combinan con funciones nivel superior,espero llegar a esos niveles,me quede enganchado,ya no veo la TD como antes con las medidas he podido hacer cosas que no sin ellas,ejemplo al colocar un campo varias veces pero digamos una para promedio y otra para suma y le cambias el nombre se cambia el nombre para las 2 columnas eso me frustraba,con las medidas quede muy satisfecho,lo dicho seguiré practicando y espero contar con esta comunidad como hasta ahora saludos cordiales ,tema cerrado
  5. 1 point
    Que genio! Se complica mucho calcular el tiempo entre 2 estados en particular seleccionados por mi?
  6. 1 point
    joe muchas gracias me obsesioné poniendo .Range en vez de coma, y también con el rango de la celda Muchas gracias
  7. 1 point
    Prueba esto Sub ActualizaExistencias() Dim c As Range, Registros As Object Dim celda Set c = Hoja1.Range("D3:F" & Hoja1.Range("c" & Rows.Count).End(xlUp).Row) c.ClearContents On Error Resume Next Set Registros = CreateObject("Scripting.Dictionary") Set c = Hoja3.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If CInt(.Offset(, 6)) > 0 Then Registros.Add .Text & .Offset(, 1).Text & "@" & _ .Offset(, 2).Text & "@" & .Offset(, 3).Text, .Offset(, 6).Text End If End With Next Set c = Hoja1.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda For Each key In Registros.Keys Dim mArray mArray = Split(key, "@") If mArray(0) = .Text & .Offset(, 1).Text Then .Offset(, 2).Value = mArray(1) .Offset(, 3).Value = mArray(2) .Offset(, 4).Value = Registros(key) Registros.Remove (key) Exit For End If Next key End With Next Set Registros = Nothing MsgBox "Existencias actualizadas" End Sub
  8. 1 point
    johnmpl

    FORMULA PARA QUITAR ULTIMO DECIMAL

    ¡Hola, @SALAVERRINO! Basta con que uses la siguiente fórmula: =TRUNCAR(C4;1) Dando formato a la celda para que muestre dos decimales. Nota: Mi separador de argumentos es ";". Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema. ¡Bendiciones!
  9. 1 point
    Nick Pues enhorabuena! Respecto a tu observación, en efecto falla la formula, pero haciendo cambio de función, creo da el resultado esperado =IF(DAY(Tabla1[Fecha Pedido])<8,1,ROUNDUP(DAY(Tabla1[Fecha Pedido])/7,0)) Modifica y prueba Saludos
  10. 1 point
    Hola, de nuevo! Entonces, bastaría con esto: =SUMA(N(MMULT(N(CONTAR.SI(DESREF(B$2:G$2;FILA(B$2:B$33)-FILA(B$2););$K2:$P2)>0);{1;1;1;1;1;1})={3\4})) Bendiciones!
  11. 1 point
    soy fanático de los "no bucles" (cuando se puede) y esta pudiera ser una alternativa viable (?) Sub FasterJoin() With Range("a3:a" & Cells(Rows.Count, 5).End(xlUp).Row) .Formula = "=""'""&text(e3,""ddmm"")&year(e3)&right(""0000000000""&h3,10)&right(""0000000000""&i3,10)&j3&k3" .Offset(, 1).Formula = "=g3&k3" With .Resize(, 2): .Value = .Value: End With End With End Sub
  12. 1 point
    Hola Abraham gracias por tu tiempo, hice la prueba instalando MySQL y con el mismo código guarda todo super rápido, creo que era la base de datos. Ahora tengo la duda para poder acceder a la base de datos desde otro equipo en mi red, pero iniciare otro tema distinto, doy este por cerrado.
  13. 1 point
    Holas! Nick Las semanas continuas son correctas, pero lo que tu deseas se debe armar, la TD no puede mostrar algo que no tiene, debemos hacerlo de una u otra forma, para ponerlo a disposición Lo que hice fue agregar una columna adicional [Columna Calculada] y listo, revisa el adjunto Saludos a ambos Segmentadores por semanas de mes_GP.zip
  14. 1 point
    Ya no se que decir 😅
  15. 1 point
    Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless
  16. 1 point
    Y coloca la pregunta en todos los foros en castellano, a pesar de que ya le hemos dicho que no es necesario ya que varios somo usuarios concurrentes de varios de esos foros. Un poco de paciencia y lectura le vendrían bien a nuestro amigo. OJO, no es deseo de no ayudarlo, al contrario, que se ordene un poco para que sea más fácil hacerlo. Abraham Valencia
  17. 1 point
    si entiendo bien, lo que pretendes es... - buscar un archivo *.pdf cuyo nombre contenga el texto de la "ActiveCell" - partiendo de una ruta "de base" (EN RED) incluyendo cualquier (posible) sub-carpeta - una vez localizado (cualquiera este sea), abrirlo con el lector pdf de acrobat pregunta de base: si hubiera dos archivos (o más) que cumplen la condición (parcial) del nombre... - cómo aseguras que "el primero" (que se encuentre) ES/ERA el que espera(ba)s encontrar ?
  18. 1 point
    Hola No me queda claro, o sea ¿quieres listar todos los archivos de esa carpeta y sus sub carpetas siempre y cuando sean pdf? y que además de eso ¿se conviertan en hipervínculos? Abraham Valencia
  19. 1 point
    Antoni

    Conteo de horas

    Última oferta. Parking control II.xlsm
  20. 1 point
    bigpetroman

    separar pares

    Saludos @MAURO_1512, el siguiente código hace lo que necesitas Sub Procesar() Dim nFilFin As Double Dim rCelda As Range Dim n As Integer Dim sTexto As String Dim nCol As Double Dim nFil As Double Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual nFilFin = Range("A" & Rows.Count).End(xlUp).Row For Each rCelda In Range("A2:A" & nFilFin) For n = 1 To Len(rCelda.Value) sTexto = Replace(rCelda.Value, Mid(rCelda, n, 1), "") If Len(sTexto) <= (Len(rCelda.Value) - 2) Then nCol = CDbl(Mid(rCelda, n, 1)) nFil = Range("A" & Rows.Count).Offset(0, nCol + 1).End(xlUp).Row + 1 Range("A1").Offset(nFil - 1, nCol + 1).Value = CDbl(sTexto) Exit For End If Next n Next Application.EnableEvents = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
  21. 1 point
    Antoni

    UserForm en ThisWorkbook

    Tienes un error de concepto, por eso no consigues hacer lo que quieres. Los formularios no son formas que están en una hoja, de hecho son objetos independientes de Excel que se muestran por encima de este. Por lo tanto cuando se muestran verás la hoja activada en ese momento detrás del formulario. Si tu muestras el formulario al abrir el archivo (Evento Workbook_Open de Workbook en Thisworkbook) verás el formulario por encima de la hoja activa en el momento de guardar por última vez el archivo. Si quieres que el formulario aparezca por encima de una hoja en concreto, actívala antes de mostrarlo. Sheets("Nombre de la hoja").Activate Userform1.Show 'O Mensaje.Show o el nombre del formulario a mostrar .
  22. 1 point
    Jose BN

    El día de la marmota

    Antoni del tiempo que tengo de visitar el foro tú y el resto del equipo son seres extraordinarios de gran voluntad y bondad; solo espero que a veces no se pierda la buena acción de ayudar a una persona verdaderamente desorientado. Mis más cordiales saludos; JB
  23. 1 point
    Hola @Rafus99[/uSER]'][uSER=209110]@Rafus99[/uSER] ! Te dejo otra opción ya que hace tiempo leí que los nombres de rango, por precaución, deben ser eliminados antes de volverlos a definir. Mira el archivo que te envío y comenta. Mis respetos para @ gerson-pineda[/uSER]'][uSER=9328]@ gerson-pineda[/uSER]! Que tengan un buen día! Abrazo! poner_nombre.xls
  • Newsletter

    block_newsletter_signup
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5