Jump to content

JSDJSD

Members
  • Content Count

    1,073
  • Joined

  • Last visited

  • Days Won

    66

Reputation Activity

  1. Thanks
    JSDJSD got a reaction from joseppp in Convertir a macro.   
    Sub macro() Dim cont, ufh2 As Long With Hoja2 ufh2 = .Range("O" & .Rows.Count).End(xlUp).Row For cont = 3 To ufh2 If .Cells(cont, 15) <> 0 Then .Range("A1") = .Cells(cont, 15) End If Next cont End With End Sub Prueba el adjunto y comenta, pulsa flecha azul
    Calendario1 prueba 1.xlsm
  2. Like
    JSDJSD got a reaction from Pirtrafilla in Bucle FOR NEXT demasiado lento   
    Hola Pirtrafilla, te dejo una opción, prueba y comenta.

    Plantilla PARTE KM (v.2).xlsm
  3. Like
    JSDJSD got a reaction from Luis Antonio Torres in Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm   
    Inténtalo tú, y si no lo consigues mañana te doy una solución, y no olvides agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que hay en la parte inferior derecha, un saludo
  4. Thanks
    JSDJSD got a reaction from MauriciodeAbreu in Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm   
    Prueba y comenta
    Ejenplo-1 Prueba 4.xlsm
  5. Like
    JSDJSD reacted to Antoni in Agrupación de fila y suma de su contenido   
    Sub Acumular() Application.ScreenUpdating = False Range("A:C").Copy Range("E1") For x = Range("E" & Rows.Count).End(xlUp).Row To 3 Step -1 i1 = InStrRev(Range("E" & x), " ") i2 = InStrRev(Range("E" & x - 1), " ") If i1 = 0 Then i1 = Len(Range("E" & x)) If i2 = 0 Then i2 = Len(Range("E" & x - 1)) If Left(Range("E" & x), i1) = Left(Range("E" & x - 1), i2) Then Range("E" & x - 1) = Left(Range("E" & x - 1), i2) Range("F" & x - 1) = Range("F" & x - 1) + Range("F" & x) Range("E" & x).Resize(1, 3).Delete End If Next End Sub  
  6. ¡Excelente!
    JSDJSD got a reaction from MauriciodeAbreu in Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm   
    Lo prometido es deuda, te dejo el archivo prueba y comenta. La hoja Valores del formulario la he dejado puesto que de algún sitio tenemos que tomar la totalidad de baúles que entran en juego, ya que ni en la hoja Entradas ni en la de Salidas tenemos una lista completa de ellos. 
    Eliminadas las dos hojas que utilizaba para filtra los datos, y en caso de buscar un baúl que no tenga ni entradas ni salidas te los indica en la parte superior derecha.
    También en el apartado valores a reemplazar solamente te reemplazara cuando estos tengan algún dato independientemente uno del otro, es decir que si solo quieres cambiar Lado pues rellenas solamente dicho dato y pulsas reemplazar e igualmente con ubicación dentro del rack, y si quieres cambiar los dos al mismo tiempo pues rellenas los dos y pulsas reemplazar y listo.
    En vista previa te muestra la totalidad de baúles afectados tanto de entrada como de salida, y en los otros listbox te los muestra por separado. 

    Ejenplo-1 Prueba 3.xlsm
  7. ¡Excelente!
    JSDJSD got a reaction from MauriciodeAbreu in Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm   
    Prueba a ver si entendí lo que pretendes.
    Ejenplo-1 Prueba 2.xlsm
  8. Like
    JSDJSD got a reaction from MauriciodeAbreu in Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm   
    Hola MauriciodeAbreu, te dejo una opción

    Ejenplo-1 Prueba 1.xlsm
  9. Like
    JSDJSD got a reaction from avalencia in Como ocultar y hacer visibles hojas al seleccionar una pestaña de la cinta de opciones (Ribbon) ??   
    Después de ver todos los argumentos que me das Maestro Abraham Valencia quedo convencido de que no es posible hacerlo de la manera que yo pretendía. Muchas gracias por despejar mis dudas.
    Podemos dejar el tema como  solucionado.
  10. Like
    JSDJSD reacted to Héctor Miguel in Como ocultar y hacer visibles hojas al seleccionar una pestaña de la cinta de opciones (Ribbon) ??   
    otra alternativa: invierte las acciones:
    al seleccionar una hoja (u otra)...
    se activa/muestra/oculta una pestaña (o la otra ?)
  11. Like
    JSDJSD reacted to avalencia in Como ocultar y hacer visibles hojas al seleccionar una pestaña de la cinta de opciones (Ribbon) ??   
    Hola
    No hay un evento a través de VBA que detecte cuando una pestaña personalizada de la cinta se activa, necesariamente tendrías que recurrir a algún programa de Visual Studio que te permita crear cintas para Excel, como por ejemplo VSTO.
  12. Like
    JSDJSD reacted to Antoni in Como ocultar y hacer visibles hojas al seleccionar una pestaña de la cinta de opciones (Ribbon) ??   
    No he encontrado nada en Google.
    He intentado asignar directamente una macro a una pestaña y aparece esto:

    Por cierto ¿Cómo consigues ocultar toda la cinta de opciones y evitar que se pueda restaurar manualmente? 🤔
     
     
     
     
     
  13. Like
    JSDJSD got a reaction from Antoni in Sumar horas y minutos de una columna de listbox cuando superan estas las 24 horas.   
    Muchas gracias Antoni tema "requetesolucionado"
  14. Thanks
    JSDJSD reacted to Antoni in Sumar horas y minutos de una columna de listbox cuando superan estas las 24 horas.   
    Hoy no tengo el día, supongo que hay una alternativa a mi solución.
     
    Horario.xlsm
  15. Thanks
    JSDJSD reacted to Gerson Pineda in Sumar horas y minutos de una columna de listbox cuando superan estas las 24 horas.   
    Hola
    Puedes hacerlo asi TextBox3 = VBA.Format(vtotal * 24, "0.0") O TextBox3 = vtotal * 24  
    Saludos 
  16. Like
    JSDJSD got a reaction from javierfincias in Rango celdas sin conocer el número exacto   
    Sub BorrarDatos() 'primero borro los datos de la hoja Sheets("macro").Range("A2:B55").ClearContents Sheets("macro").Range("D4:F55").ClearContents Sheets("macro").Range("I4:L55").ClearContents 'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar ultimaFila = Sheets("datos").Cells(Rows.Count, 5).End(xlUp).Row Sheets("datos").Range("A2","B" & ultimaFila).Copy Destination:=Sheets("macro").Range("A4") Sheets("datos").Range("C2","E" & ultimaFila).Copy Destination:=Sheets("macro").Range("D4") Sheets("datos").Range("F2","I" & ultimaFila).Copy Destination:=Sheets("macro").Range("I4") ' CeldasVacias Macro ' Las celdas vacías de serie y número se cumplimentan. Range("A4").Select ActiveWindow.SmallScroll Down:=15 Range("A4:A41").Select ActiveWindow.SmallScroll Down:=-54 Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" Range("B4").Select ActiveWindow.SmallScroll Down:=18 Range("B4:B41").Select ActiveWindow.SmallScroll Down:=-60 Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" End Sub Prueba y comenta
  17. Like
    JSDJSD reacted to javierfincias in Rango celdas sin conocer el número exacto   
    Perdona.. ya le he dado al corazoncito.. Gracias.
     
  18. Like
    JSDJSD got a reaction from javierfincias in Rango celdas sin conocer el número exacto   
    Me alegro, no olvides agradecer a quien te ayuda o intenta ayudar, y en este foro es mediante el corazoncillo que se encuentra en la parte inferior derecha, un saludo.
  19. Like
    JSDJSD got a reaction from javierfincias in Rango celdas sin conocer el número exacto   
    Sub BorrarDatos() 'primero borro los datos de la hoja Sheets("macro").Range("A2:B55").ClearContents Sheets("macro").Range("D4:F55").ClearContents Sheets("macro").Range("I4:L55").ClearContents 'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar ultimaFila = Sheets("datos").Cells(Rows.Count, 5).End(xlUp).Row Sheets("datos").Range("A2","B" & ultimaFila).Copy Destination:=Sheets("macro").Range("A4") Sheets("datos").Range("C2","E" & ultimaFila).Copy Destination:=Sheets("macro").Range("D4") Sheets("datos").Range("F2","I" & ultimaFila).Copy Destination:=Sheets("macro").Range("I4") ' CeldasVacias Macro ' Las celdas vacías de serie y número se cumplimentan. Range("A4").Select ActiveWindow.SmallScroll Down:=15 Range("A4:A41").Select ActiveWindow.SmallScroll Down:=-54 Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" Range("B4").Select ActiveWindow.SmallScroll Down:=18 Range("B4:B41").Select ActiveWindow.SmallScroll Down:=-60 Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" End Sub Prueba y comenta
  20. Like
    JSDJSD reacted to bigpetroman in MACRO PARA GERERAR INFORMES DE CORRESPONDENCIA   
    amigo, lamentablemente NO nos estamos entendiendo, tu quieres que la macro haga algo pero no terminas de explicar, lo mas que voy a hacer por ti es dejarte esta macro que hace lo mismo que tu macro original pero mucho mas resumida
    Sub correspondencia() Dim NumCriterios As Variant Dim nCantDatos As Double Dim nDatos As Double Dim wHoja As Worksheet Dim nVariable As Integer Dim sVariable As String Dim sDatos As String ' ' correspondencia Macro ' ' Acceso directo: CTRL+a ' ''''''''''''''''''pedimos la cantidad de crieterios ''''''''''''''''''''''''''''''''''''''''''''''''''''''' NumCriterios = InputBox("Escribe el número de criterios") 'Caja de texto para escribir el numero de criterios If IsNumeric(NumCriterios) = False Then Exit Sub '''''''''''''''''' obtenemos la cantidad de datos a procesar ''''''''''''''''''''''''''''''''''''''''''''''''''''''' nCantDatos = Sheets("BD").Cells(Rows.Count, "A").End(xlUp).Row 'contar el numero de nDatos For nDatos = 2 To nCantDatos 'Ciclo para realizar las combinaciones Worksheets("Correspondencia").Copy Before:=Sheets(nDatos) Set wHoja = ActiveSheet For nVariable = 1 To NumCriterios sVariable = Worksheets("BD").Cells(1, nVariable).Value sDato = Worksheets("BD").Cells(nDatos, nVariable).Value wHoja.Cells.Replace What:="<" & sVariable & ">", Replacement:=sDato, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'Busca y reemplaza los valores de la base de nDatos Next nVariable Next nDatos End Sub  
    de resto no puedo ayudarte mas, pues tienes que ayudarme a entender para poder ayudarte, la macro supuestamente busca hasta 8 campos (tu macro original) en la tabla de la hoja DB, pero esa hoja solo tiene 2 campos nombre y nota, no veo el sentido de elegir 8 criterios cuando NO existen.
    y lo otro, dices que algunos no te cuadran, pero no dices cual para revisar.
    suerte
     
  21. Like
    JSDJSD reacted to Antoni in cronograma por etiquetas   
    Revisa el adjunto.
    Pruebamant.xlsm
  22. Thanks
    JSDJSD got a reaction from andres palacios in COPIAR Y PEGAR UN RANGO DE CELDAS VISIBLES TRAS HACER FILTRO   
    Hola a ambos, te dejo otra opción más.
    Sub CopiarFiltro3() Hoja2.Range("A1").CurrentRegion.Delete Hoja1.Range("A1").CurrentRegion.SpecialCells(12).Copy Hoja2.Range("A1") End Sub  
  23. ¡Excelente!
    JSDJSD got a reaction from Teo1099 in Vencimientos   
    Me alegro, pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que hay en la parte inferior derecha.

  24. Thanks
    JSDJSD got a reaction from andres palacios in COPIAR Y PEGAR UN RANGO DE CELDAS VISIBLES TRAS HACER FILTRO   
    Hola a ambos, te dejo otra opción más.
    Sub CopiarFiltro3() Hoja2.Range("A1").CurrentRegion.Delete Hoja1.Range("A1").CurrentRegion.SpecialCells(12).Copy Hoja2.Range("A1") End Sub  
  25. ¡Excelente!
    JSDJSD got a reaction from comprodeco in busqueda inteligente en listbox   
    Prueba y comenta
    formulario empleados (v3).xlsm
×
×
  • Create New...

Important Information

Privacy Policy